atom_js.asp
更新時(shí)間:2006年11月25日 00:00:00 作者:
復(fù)制代碼 代碼如下:
<%
' 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>")
%>
相關(guān)文章
把字符串轉(zhuǎn)換成數(shù)據(jù)庫SQL語句格式
把字符串轉(zhuǎn)換成數(shù)據(jù)庫SQL語句格式...2006-10-10非常好用的asp備份,還原SQL數(shù)據(jù)庫的代碼
用asp的朋友,可以用下面的代碼,實(shí)現(xiàn)mssql數(shù)據(jù)庫的備份還原操作2008-06-06.Net core 的熱插拔機(jī)制的深入探索及卸載問題求救指南
這篇文章主要介紹了.Net core 的熱插拔機(jī)制的深入探索及卸載問題求救指南,本文給大家啊介紹的非常詳細(xì),對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2020-11-11asp下利用fso實(shí)現(xiàn)文件夾或文件移動改名等操作函數(shù)
以后利用fso來操作文件和文件夾就方便了2008-01-01