会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:教程首页>>Pro版本>>Pro V2.X版本>>取出数据库中数据标题色彩值并放于另一字段中
推荐给你的朋友阅读:

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

来源:飞腾设计网 发表日期: 2007-11-06 15:26:43

    以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
    %>

将其另存为TitleColor.asp文件并放于管理目录下即可运行。

0
0
[作者:雨城 关键词:FeitecCMS Pro,标题 录入:raincity 责编:raincity 阅读次数:2503]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:217.77ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]