复制代码代码如下:
-
'atom2rss.asp
'ผู้แต่ง: Francescopassantino
'อีเมล: [email protected]
'บล็อก: www.iteam5.net/blog
'startdate: 17Sep2004
Subatom2RSS (URL)
setObjxml = server.createObject ("msxml2.domdocument.3.0")
objxml.async = false
objxml.setProperty "ServerHttpRequest", true
objxml.validateonparse = true
objxml.preserveWhitespace = false
ifnotobjxml.load (url) จากนั้น
Response.write "<p> ข้อผิดพลาด <br> รหัส:" & _
objxml.parseerror.errorCode & _
"<br> linea/col:" & _
objxml.parseerror.line & "/" & _
objxml.parseerror.linepos & "</p>"
อื่น
rsstitle = "iteam5.net/blog"
rssdescription = "blogsullenovit? delsettoreinformation & CommunicationTechnologies"
rsslink = "http://www.iteam5.net/blog"
rsslanguage = "มัน"
XML = "<? xMlVersion =" "1.0" "การเข้ารหัส =" "UTF-8" "?> <rsSversion =" "0.91" "> <vannel> <title>" & server.htmlencode (rsstitle) .htmlencode (rssdescription) & "</คำอธิบาย> <link>" & server.htmlencode (rsslink) & "</link> <language>" & server.htmlencode (rsslanguage) & "</ภาษา>"
setObJnodelist = objxml.getElementSbyTagname ("รายการ")
foreachobjnodeinobjnodelist
foreachobjnode2inobjnode.childnodes
SelectCaseObJnode2.NodeName
กรณี "ออก"
strdate = ซ้าย (objnode2.firstchild.nodevalue, 10)
กรณี "ลิงก์"
strurl = objnode2.getAttribute ("href")
กรณี "ชื่อ"
strtitle = objnode2.firstchild.nodevalue
'แทนที่จะเป็น "เนื้อหา"
กรณี "สรุป"
strdescription = objnode2.firstchild.data
foreachobjnode3inobjnode2.childnodes
SelectCaseObJnode3.NodeName
กรณี "div"
strdescription = objnode3.Text
foreachobjnode4inobjnode3.childnodes
SelectCaseObJnode4.NodeName
กรณี "A"