复制代码代码如下 :
<%
'atom2rss.asp
'저자 : Francescopassantino
'이메일 : [email protected]
'블로그 : www.iteam5.net/blog
'StartDate : 17Sep2004
subatom2rss (url)
setobjxml = server.createobject ( "msxml2.document.3.0")
objxml.async = false
objxml.setProperty "serverhttprequest", true
objxml.validateonparse = true
objxml.preservewhitespace = false
ifnotobjxml.load (url)
response.write "<p> error <br> 코드 :"& _
objxml.parseerror.errorcode & _
"<br> Linea/col :"& _
objxml.parseerror.line & "/"& _
objxml.parseerror.linepos & "</p>"
또 다른
rsstitle = "iteam5.net/blog"
rssdescription = "blogsullenovit? delettoreinformation & CommunicationTechnologies"
rsslink = "http://www.iteam5.net/blog"
rsslanguage = "it"
xml = "<? xmlversion =" "1.0" "encoding =" "utf-8" "?> <rssversion =" "0.91" "> <channer> <title>"& server.htmlencode (rsstitle) & "</title> <description>"& server .htmlencode (rssdescription) & "</description> <link>"& server.htmlencode (rsslink) & "</link> <lang
setobjnodelist = objxml.getElementsByTagName ( "Entry")
foreachobjnodeinobjnodelist
foreachobjnode2inobjnode.childnodes
selectcaseobjnode2.nodename
"발행"사례
strdate = left (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"