为TSYS增加RSS输出

本文来源于：
http://www.im286.com/viewthread.php?tid=1370996&extra=page%3D1%26filter%3Dtype%26typeid%3D41

此代码为config.asp中需要改的，加红为增加的

'生成的网站地图列表每页显示数目
Const MapNewsList_PageSize=5


'生成的网站Rss推送最新资源数目
Const RssNewsList_PageSize=20

'生成资源时允许的服务器脚本超时时间
Const Def_CreateNewsFiles_ScriptTimeOut=900

该程序放根目录

或者其他目录,地址自己改,读出最新的20条资源.( 可以修改成读取get叁数的形式。推送的默认设置为２０条，可以自行修改)

自动判断网站地址端口,无需要人工干预.
[code]

" & sCrLf
        'sRssHead =""
        sRssHead =  "" & sCrLf
        sRssHead = sRssHead & "" & sCrLf
        sRssHead = sRssHead & " "& Def_MySiteTitle &" " & sCrLf
        sRssHead = sRssHead & " "& Def_SysTitle &" " & sCrLf
        sRssHead = sRssHead & "" & url& "" & sCrLf
        sRssHead = sRssHead & "zh-cn" & sCrLf
        sRssHead = sRssHead & "News Center" & sCrLf
        'sRssHead = sRssHead & "Yezhan,okhtm@msn.com" & sCrLf
        sRssHead = sRssHead & "Rss Generator" & sCrLf

        sRssEnd = ""

        'Response.CharSet="gb2312" '数据集
        Response.ContentType="text/xml" '数据流格式定义
        Response.ContentType="application/xml"
        Response.Expires=0
        Response.write sXmlClear
        Response.write sRssHead
Dim Conn
                Set Conn = Server.CreateObject("Adodb.Connection")
                        Conn.Open ConnStr
Dim sql
        Sql="select Top "& RssNewsList_PageSize &" Title,FilePath,AddTime,KeyWord,Content,Classtitle,EditorTitle From view_NewsInfo where  Del=0 order By addTime DESC"
        Set Rs=Server.CreateObject("ADODB.RecordSet")
        Rs.open sql,conn,1,2
IF RS.EOF AND RS.BOF Then
                Response.Write("")
Else
        do while not rs.eof
                        Response.Write("")&RS("Title")
                        Response.Write("

相关文章

采用TSYS创建门户新闻网TSYS资源特性的效率提高重置TSYS系统中的所有"生成的文件"成"未生成文件"TSYS中生成静态页时溢出: 'CInt'TSYS SQL1.1 版的全面修改及调试记录TSYS同时生成静态分类为TSYS SQL版增加"内部链接"TSYS文件上传安全补丁终于清楚TSYS的首页更新原理

标签：tsys、RSS 发布于：2006-06-09 08:06:19