复制代码代码如下：
<％
'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）then
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" "？ .htmlencode（rssdescription）＆ "</description> <link>"＆server.htmlencode（rsslink）＆ "</link> <language>"＆server.htmlencode（rsslanguage）＆ "</language>"
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」