以FeitecCMS Pro V2.0为例,代码如下:
<!--#include file="Ft_Admin_Conn.asp"-->
<!--#include file="../Ft_Format.asp"-->
<!--#include file="Ft_Admin_Top.asp"-->
<%
'news
'Sql="Select News_Title,TitleColor From Ft_News Where Instr(News_Title,'<font')<>0 Order By News_Id Desc"
'article
'Sql="Select Art_Title,TitleColor From Ft_Art Where Instr(Art_Title,'<font')<>0 Order By Art_Id Desc"
'course
'Sql="Select Course_Title,TitleColor From Ft_Course Where Instr(Course_Title,'<font')<>0 Order By Course_Id Desc"
'soft
'Sql="Select Soft_Title,TitleColor From Ft_Soft Where Instr(Soft_Title,'<font')<>0 Order By Soft_Id Desc"
'pic
'Sql="Select Pic_Title,TitleColor From Ft_Pic Where Instr(Pic_Title,'<font')<>0 Order By Pic_Id Desc"
'dj
'Sql="Select Dj_Title,TitleColor From Ft_Dj Where Instr(Dj_Title,'<font')<>0 Order By Dj_Id Desc"
'channel
'Sql="Select Channel_Title,TitleColor From Ft_Channel Where Instr(Channel_Title,'<font')<>0 Order By Id Desc"
'announce
'Sql="Select A_Title,TitleColor From Ft_Announce Where Instr(A_Title,'<font')<>0 Order By A_Id Desc"
'Produ
'Sql="Select Pr_Name,TitleColor From Ft_Produ Where Instr(Pr_Name,'<font')<>0 Order By Pr_Id Desc"
'vote
'Sql="Select Vt_Name,TitleColor From Ft_VoteTopic Where Instr(Vt_Name,'<font')<>0 Order By Vt_Id Desc"
'subject
'Sql="Select S_Name,TitleColor From Ft_Subject Where Instr(S_Name,'<font')<>0 Order By S_Id Desc"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open Sql,FtConn,1,3
If Not (Rs.Eof Or Rs.Bof ) Then
Do While Not Rs.eof
Dim aa,bb
aa=Rs(0)
aa=Replace(aa,"</font>","")
bb=Split(aa,">")
Rs(0)=bb(1)
Rs(1)=Left(split(bb(0),"#")(1),Len(split(bb(0),"#")(1))-1)
Rs.Update
Rs.MoveNext
Loop
Else
Response.Write"暂无色彩标题内容"
End If
Rs.Close:Set Rs=Nothing
%>