Alamat contoh:
http://www.18eden.com/rss.asp
Situs: http://www.18eden.com/jiankang
Program ini ditempatkan di direktori root
Atau ubah alamat direktori lain dan diri Anda sendiri untuk membacakan 20 sumber daya terbaru. (Dapat dimodifikasi untuk membaca parameter GET)
Secara otomatis menentukan alamat situs web dan port tanpa intervensi manual.
Salinan kode adalah sebagai berikut:
<%OptionExplicit%>
<!-#includeFile = "kelola/include/config.do"->
<%
DimsSQL, RS, SCRLF, SXMLCLEAR, SRSSHEAD, SRSSEND, URL
SCRLF = CHR (13) & CHR (10) 'Enter+Win
Ifrequest.serverVariable ("https") = "on" lalu
Url = "https: //"
Kalau tidak
Url = "http: //"
Endif
Url = url & request.serverVariable ("server_name") & ":" & request.serverVariable ("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/elements/1.1.1.1.1.1.1 S: sy = 'http: //purl.org/rss/1.0/modules/syndication/'xmlns: admin =' http: //webns.net/mvcb/'xmlns='http: //purl.org/rss/1.0/0/ "
srsshead = "<rssversion = '2.0'>" & scrlf
srsshead = srsshead & "<nalel>" & scrlf
srsshead = srsshead & "<title>" & def_mysitetitle & "</itement>" & scrlf
srsshead = srsshead & "<crencher>" & DEF_SYSTITLE & "</cripence>" & scrlf
srsshead = srsshead & "<link>" & url & "</link>" & scrlf
srsshead = srsshead & "<sangage> zh-cn </sanger>" & scrlf
srsshead = srsshead & "<cocs> newscenter </cocs>" & scrlf
'srsshead = srsshead & "<dc: creator> yezhan, [email protected] </dc: creator>" & scrlf
srsshead = srsshead & "<generator> rssgenerator </generator> <Tertems>" & scrlf
SRSSEND = "</TEMENTS> </LANCHEL> </RSS>"
'Response.charset = "GB2312"' Dataset
Response.contentType = "Teks/XML" 'Definisi Format Aliran Data
Response.contentType = "Application/XML"
Response.expires = 0
Response.writesxmlclear
Response.WritesRsShead
Dimconn
SetConn = server.CreateObject ("adodb.connection")
Conn.openconnstr
Dimsql