为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(“
相关日志
新一篇:中文语音合成系统
最近评论
6、7年前的内容了,外链能不挂吗?哈哈。…
链接挂了…
Thank you and thank you!…
应该是你IP有其它人扫描过我的系统,被我系统拦截了。一般24小时就解封。…
有,不过主题是2012年的了,兼容性不好了。还要吗?…
你好,我用公司的网络打开你的博客很多都是提示ip在黑名单,可是我们公司是…
你好,时隔这些年,我有幸访问到您的博客,我很喜欢您主题的风格,请问主题包…
09年的时候电信就干过,不过都是些偏远三线城市…