複製代碼代碼如下：
<％
'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）
響應。 write“ <p>錯誤<br>代碼：”＆_
objxml.parseerror.errorcode＆_
“ <br> linea/col：”＆_
objxml.parseerror.line＆“/”＆_
objxml.parseerror.linepos＆“ </p>”
別的
rsstitle =“ iteam5.net/blog”
rssdescription =“ Blogsullenovit？delsetToreToreformation＆CommunicationTechnologies”
rsslink =“ http://www.iteam5.net/blog”
rsslanguage =“ it”
xml =“ <？xmlversion =”“ 1.0”“ encoding =”“ utf-8”？ > <rssversion =“” 0.91“”> <chinder> <title> <title>“＆server.htmlencode（rsstitle）＆” .htmlencode（rssdescription）＆“ </Descript> <link>”＆server.htmlencode（rsslink）＆“ </link> </link> <語言>”＆server.htmlencode（rsSlanguage）＆“
setObjnodelist = objxml.getElementsbytagname（“ entry”）
foreach objnodeinobjnodelist
foreachObjnode2InoBjnode.ChildNodes
selectcaseObjnode2.nodeName
案件“已發行”
strdate = left（objnode2.firstchild.nodevalue，10）
案例“鏈接”
strurl = objnode2.getAttribute（“ href”）
案例“標題”
strtitle = objnode2.firstchild.nodevalue
'而不是face face“ content”
案例“摘要”
strdescription = objnode2.firstchild.data
foreachObjNode3InoBjNode2.ChildNodes
selectcaseObjnode3.nodeName
案件“ div”
strdescription = objnode3.text
foreachObjNode4InoBjnode3.ChildNodes
SelectCaseObjNode4.noDeName
案例“ a”