复制代码代码如下:
<%
'Atom2rss.asp
«Автор: Франскопасантино
«Электронная почта: [email protected]
Блог: www.iteam5.net/blog
'Startdate: 17 Sep2004
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 = "it"
xml = "<? xmlversion =" "1.0" "Encoding =" "utf-8" "?> <rssversion =" "0.91" "> <nelance> <title>" & server.htmlencode (rsstitle) & "</title> <sonist>" & server .htmlencode (rssdescription) & "</description> <link>" & server.htmlencode (rsslink) & "</link> <language>" & server.htmlencode (rsslanguage) & "</language>"
Setobjnodelist = objxml.getelementsbytagname ("entry")
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"