复制代码 代码如下:<% ' I converted some of your example found on http://www.iteam5.net/francesco/atom/ over to jscript. ' Feel free to use it and keep up the good work. ' Tyson Kopczynski ' tyson@cco.com function atom(strURL) { var objXML = new ActiveXObject("msxml2.DOMDocument.3.0"); objXML.async = false; objXML.setProperty("ServerHTTPRequest", true); objXML.validateOnParse = true; objXML.preserveWhiteSpace = false; if (!objXML.load(strURL)) { var array = new Array(); Response.Write("<P>ERROR<br>code: " + objXML.parseError.errorCode) Response.Write("<br>Linea/Col: " + objXML.parseError.line & "/" + objXML.parseError.linepos) Response.Write("</P>") return(array) } else { var objNodeList = objXML.getElementsByTagName("entry"); var arrDicts = new Array(objNodeList.length); for (var i=0; i<objNodeList.length; i++) { arrDicts[i] = new ActiveXObject("Scripting.Dictionary"); arrDicts[i].Item("issued") = objNodeList[i].getElementsByTagName("issued")[0].firstChild.nodeValue arrDicts[i].Item("id") = objNodeList[i].getElementsByTagName("id")[0].firstChild.nodeValue arrDicts[i].Item("link") = objNodeList[i].getElementsByTagName("link")[1].getAttribute("href") arrDicts[i].Item("author") = objNodeList[i].getElementsByTagName("author")[0].xml arrDicts[i].Item("title") = objNodeList[i].getElementsByTagName("title")[0].firstChild.nodeValue arrDicts[i].Item("content") = objNodeList[i].getElementsByTagName("content")[0].xml } return(arrDicts) } } var blogURL = "http://taosage-net.blogspot.com/atom.xml"; var blogItems = atom(blogURL); Response.Write("<strong>") Response.Write("<a href='" + blogItems[0].Item("link") + "'>" + blogItems[0].Item("title") + "</a>") Response.Write("</strong>") Response.Write("<table width='100%' cellspacing='0' cellpadding='0'>") Response.Write("<tr>") Response.Write("<td width='10' rowspan='2'> </td>") Response.Write("<td>" + blogItems[0].Item("content") + "<br></td>") Response.Write("</tr>") Response.Write("<tr>") Response.Write("<td>posted by " + blogItems[0].Item("author") + " @ " + blogItems[0].Item("issued") + "</td>") Response.Write("</tr>") Response.Write("</table>") %>

　　推荐阅读

　　一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例

一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例 我做了一个网站，www.zydn.net 当然啦，跟大家一样，也摆了个计数器在上面，每天看计数器都在不断的翻，心里很高兴，不过后来我又想，到底是谁看>>>详细阅读

本文标题：atom_js.asp

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

 1/2    1