为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("
当前共有0条评论,我也要发表: