复制代码代码如下:
<%
'atom2rss.asp
Autor: Francescopassantino
'E -mail: [email protected]
'Blog: 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.preservewhitaSpace = false
Ifnotobjxml.load (url) Então
Response.Write "<p> Erro <br> Código:" & _
objxml.parseerror.errorcode & _
"<br> linea/col:" & _
objxml.parseerror.line & "/" & _
objxml.parseerror.linepos & "</p>"
Outro
rsstitle = "iTeam5.net/blog"
rssdescription = "BlogSulleNovit? DelSettoreinformation & CommunicationTechnologies"
rsslink = "http://www.iteam5.net/blog"
rsslanguage = "it"
xml = "<? xmlversion =" "1.0" "coding =" "utf-8" "?> <rssversion =" "0.91" "> <nange> <title>" & server.htmlencode (rsstitle) & "</title> <cription>" & servidor .htmlencode (rssdescription) & "</cription> <link>" & server.htmlencode (rsslink) & "</link> <diumgus>" & server.htmlencode (rssslanguage) & "</dium>"
Setobjnodelist = objxml.getElementsByTagName ("Entrada")
Foreachobjnodeinobjnodelist
Foreachobjnode2inobjnode.childnodes
SelectCaseobjNode2.Nodename
Caso "emitido"
strdate = esquerda (objNode2.firstchild.nodEvalue, 10)
Case "link"
strurl = objNode2.getAttribute ("href")
Caso "título"
strtitle = objNode2.firstchild.nodEvalue
'Em vez de "conteúdo"
Caso "resumo"
strDescription = objNode2.firstchild.data
Foreachobjnode3inobjnode2.childnodes
SelectCaseObjNode3.Nodename
Caso "div"
StrDescription = objNode3.text
Foreachobjnode4inobjnode3.childnodes
SelectCaseobjNode4.Nodename
Caso "A"