アドレスの例：
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