首页 / JAVASCRIPT / atom_js.asp
atom_js.asp
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了atom_js.asp,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含2569字,纯文字阅读大概需要4分钟。
内容图文
![atom_js.asp](/upload/InfoBanner/zyjiaocheng/386/01c1181d3eb74070b47afd3c4dbfd254.jpg)
<%
' I converted some of your example found on http://www.gxlsystem.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>")
%>
内容总结
以上是互联网集市为您收集整理的atom_js.asp全部内容,希望文章能够帮你解决atom_js.asp所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。
来源:【匿名】