复制代码 代码如下:<% ' atom2rss.asp ' Author: Francesco Passantino ' Email: francesco@iteam5.net ' Blog: www.iteam5.net/blog ' Start date: 17 Sep 2004 Sub atom2rss(URL) Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") objXML.async = false objXML.setProperty "ServerHTTPRequest", True objXML.validateOnParse = true objXML.preserveWhiteSpace = false If Not objXML.Load(URL) Then Response.write "<P>ERROR<br>code: " & _ objXML.parseError.errorCode & _ "<br>Linea/Col: " & _ objXML.parseError.line & "/" & _ objXML.parseError.linepos & "</P>" Else rsstitle="iteam5.net/blog" rssdescription="Blog sulle novit?del settore Information & Communication Technologies" rsslink="http://www.iteam5.net/blog" rsslanguage="it" xml= "<?xml version=""1.0"" encoding=""UTF-8""?><rss version=""0.91""><channel><title>"&server.htmlencode(rsstitle)&"</title><description>"&server.htmlencode(rssdescription)&"</description><link>"&server.htmlencode(rsslink)&"</link><language>"&server.htmlencode(rsslanguage)&"</language>" Set objNodeList = objXML.getElementsByTagName("entry") For Each objNode In objNodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "issued" strdate= left(objNode2.firstChild.nodevalue,10) Case "link" strURL = objNode2.GetAttribute("href") Case "title" strTitle = objNode2.firstChild.nodevalue 'instead of Case "content" Case "summary" strDescription = objNode2.firstChild.data For Each objNode3 In objNode2.childNodes Select Case objNode3.nodeName Case "div" StrDescription = objNode3.text For Each objNode4 In objNode3.childNodes Select Case objNode4.nodeName Case "a" linkable=objNode4.firstChild.text htmlink=" <a href='"& _ objNode4.GetAttribute("href")&"'>"& _ linkable&"</a>" StrDescription = replace(StrDescription,linkable,htmlink) end select next end select next End Select 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.write xml set objNodeList = Nothing End if End sub call atom2rss("http://www.iteam5.net/blog/feed.xml") %>

　　推荐阅读

　　获取远程flash并保存到本地

复制代码 代码如下:<% '-------------------------------------------------------------- Dbname = "../data/flash.mdb" '更改数据库文件位置，强烈建议更改为.asp的文件！ Set Conn = Server.CreateO>>>详细阅读

本文标题：atom2rss.asp

地址：http://www.17bianji.com/kaifa2/ASP/32928.html

 1/2    1