atom2rss.asp

代码如下:<% ‘ 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.valid