取出数据库中数据标题色彩值并放于另一字段中

    <!--#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
    %>