アドレスの例:
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) 'Enter+Win
ifrequest.servervariables( "https")= "on" then
url = "https://"
それ以外
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/'xmln S: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
respons.writexmlclear
respons.writesrsshead
ディムコン
setConn = server.createObject( "adodb.connection")
conn.openconnstr
dimsql