عنوان المثال:
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" ثم
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 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 & "<Chanly>" & scrlf
srsshead = srsshead & "<title>" & def_mysititle & "</title>" & scrlf
srsshead = srsshead & "<spection>" & def_systitle & "</description>" & scrlf
srsshead = srsshead & "<link>" & url & "</ink>" & scrlf
srsshead = srsshead & "<Nigation> ZH-CN </langert>" & scrlf
srsshead = srsshead & "<cons> NewsCenter </docs>" & scrlf
'srsshead = srsshead & "<dc: creator> yezhan ، [email protected] </cc: creator>" & scrlf
srsshead = srsshead & "<enderator> rssgenerator </generator> <tems>" & scrlf
SRSSEND = "</items> </channel> </rss>"
"Response.charset =" GB2312 "" مجموعة البيانات
استجابة.
استجابة. contenttype = "application/xml"
استجابة. expires = 0
استجابة. writesxmlclear
استجابة. writesrsshead
Dimconn
setConn = server.createObject ("adodb.connection")
Conn.Openconnstr
Dimsql