atom_js.asp

　　<%

　　' 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

　　' [email protected]

　　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>")

　　%>