复制代码 代码如下:
<%
'atom2rss.asp
'Author:FrancescoPassantino
'Email:francesco@iteam5.net
'Blog:municationTechnologies"
rsslink="http://www.iteam5.net/blog"
rsslanguage="it"

xml="<?xmlversion=""1.0""encoding=""UTF-8""?><rssversion=""0.91""><channel><title>"&server.htmlencode(rsstitle)&"</title><description>"&server.htmlencode(rssdescription)&"</description><link>"&server.htmlencode(rsslink)&"</link><language>"&server.htmlencode(rsslanguage)&"</language>"

SetobjNodeList=objXML.getElementsByTagName("entry")
ForEachobjNodeInobjNodeList
ForEachobjNode2InobjNode.childNodes

SelectCaseobjNode2.nodeName
Case"issued"
strdate=left(objNode2.firstChild.nodevalue,10)
Case"link"
strURL=objNode2.GetAttribute("href")
Case"title"
strTitle=objNode2.firstChild.nodevalue

'insteadofCase"content"
Case"summary"

strDescription=objNode2.firstChild.data
ForEachobjNode3InobjNode2.childNodes
SelectCaseobjNode3.nodeName
Case"div"
StrDescription=objNode3.text
ForEachobjNode4InobjNode3.childNodes
SelectCaseobjNode4.nodeName
Case"a"
linkable=objNode4.firstChild.text
htmlink="<ahref='"&_
objNode4.GetAttribute("href")&"'>"&_
linkable&"</a>"
StrDescription=replace(StrDescription,linkable,htmlink)
endselect
next
endselect
next
EndSelect
Next

xml=xml&"<item>"
xml=xml&"<title><![CDATA["&server.htmlencode(strTitle)&"]]></title>"
xml=xml&"<description><![CDATA["&server.htmlencode(strDescription)&"]]></description>"
xml=xml&"<link><![CDATA["&server.htmlencode(strURL)&"]]></link></item>"

strTitle=""
strURL=""
strDescription=""

Next

xml=xml&"</channel></rss>"
response.ContentType="text/xml"
response.writexml

setobjNodeList=Nothing

Endif
Endsub

callatom2rss("http://www.iteam5.net/blog/feed.xml")

%>