示例地址:
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