为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叁数的形式。推送的默认设置为20条,可以自行修改)

自动判断网站地址端口,无需要人工干预.
[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(“

相关日志

发表于:2006-06-09 08:06:19 at 08:06 分类:工作 发表评论 Tags:,

发表评论

(必填)

(必填)您的电子邮箱不会被公开。

*

正在加载信息...

Archives