示例地址:
http://www.18eden.com/rss.asp
站点:http://www.18eden.com/jiankang
该程序放根目录
或者其他目录,地址自己改,读出最新的20条资源.(可以修改成读取get叁数的形式)
自动判断网站地址端口,无需要人工干预.
复制代码代码如下:
<%Optionexplicit%>
<!--#includefile="Manage/Include/Config.do"-->
<%
DimsSQL,rs,sCrLf,sXmlClear,sRssHead,sRssEnd,Url
sCrLf=chr(13)&chr(10)'回车+换行
IfRequest.ServerVariables("HTTPS")="on"Then
URL="https://"
Else
URL="http://"
EndIf
Url=Url&Request.ServerVariables("SERVER_NAME")&":"&Request.ServerVariables("SERVER_PORT")
sXmlClear="<?xmlversion='1.0'encoding='gb2312'?>"&sCrLf
'sRssHead="<rdf:RDFxmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'xmlns:dc='http://purl.org/dc/elements/1.1/'xmlns:sy='http://purl.org/rss/1.0/modules/syndication/'xmlns:admin='http://webns.net/mvcb/'xmlns='http://purl.org/rss/1.0/'>"
sRssHead="<rssversion='2.0'>"&sCrLf
sRssHead=sRssHead&"<channel>"&sCrLf
sRssHead=sRssHead&"<title>"&Def_MySiteTitle&"</title>"&sCrLf
sRssHead=sRssHead&"<description>"&Def_SysTitle&"</description>"&sCrLf
sRssHead=sRssHead&"<link>"&url&"</link>"&sCrLf
sRssHead=sRssHead&"<language>zh-cn</language>"&sCrLf
sRssHead=sRssHead&"<docs>NewsCenter</docs>"&sCrLf
'sRssHead=sRssHead&"<dc:creator>Yezhan,[email protected]</dc:creator>"&sCrLf
sRssHead=sRssHead&"<generator>RssGenerator</generator><items>"&sCrLf
sRssEnd="</items></channel></rss>"
'Response.CharSet="gb2312"'数据集
Response.ContentType="text/xml"'数据流格式定义
Response.ContentType="application/xml"
Response.Expires=0
Response.writesXmlClear
Response.writesRssHead
DimConn
SetConn=Server.CreateObject("Adodb.Connection")
Conn.OpenConnStr
Dimsql