复制代码代码如下:
<٪
'Atom2rss.asp
المؤلف: Francescopassantino
البريد الإلكتروني: [email protected]
'المدونة: www.iteam5.net/blog
'StartDate: 17Sep2004
subatom2rss (url)
setObjxml = server.createBject ("msxml2.domdocument.3.0")
objxml.async = خطأ
OBJXML.SetProperty "ServerHttPrequest" ، صحيح
OBJXML.ValidateOnParse = صحيح
objxml.preservehitespace = false
ifnotobjxml.load (url) ثم
استجابة. write "<p> خطأ <br> الكود:" & _
objxml.parseerror.errorcode & _
"<br> linea/col:" & _
objxml.parseerror.line & "/" & _
objxml.parseerror.linepos و "</p>"
آخر
rsstitle = "iteam5.net/blog"
RSSDescription = "blogsullenovit؟ delsettoreinformation & communication technologies"
rsslink = "http://www.iteam5.net/blog"
rsslanguage = "it"
xml = "<؟ xmlversion =" "" 1.0 "" chigoding = "" utf-8 "؟> <rssversion =" "" 0.91 ""> <title> <title> "& server.htmlencode (rsstitle) & .htmlencode (RSSDescription) و "</description> <link>" & server.htmlencode (RSSLink) و "</ink> <Nignal>" & server.htmlencode (rsslanguage) & "</lange>"
setObjnodelist = objxml.getelementsbytagname ("الدخول")
foreachobjnodeinobjnodelist
foreachobjnode2inobjnode.childnodes
selectascyObjnode2.Nodename
قضية "صدرت"
strdate = يسار (objnode2.firstchild.nodevalue ، 10)
حالة "الرابط"
strurl = objnode2.getAttribute ("HREF")
حالة "العنوان"
strtitle = objnode2.firstchild.nodevalue
بدلا من ذلك محتوى "محتوى"
حالة "ملخص"
strdescription = objnode2.firstchild.data
foreachobjnode3inobjnode2.childnodes
selectascyObjnode3.Nodename
قضية "div"
strdescription = objnode3.text
foreachobjnode4inobjnode3.childnodes
selectascyObJnode4.Nodename
حالة "أ"