复制代码 代码如下:

<%

'Iconvertedsomeofyourexamplefoundonhttp://www.iteam5.net/francesco/atom/overtojscript.

'Feelfreetouseitandkeepupthegoodwork.

'TysonKopczynski

'tyson@cco.com

functionatom(strURL)

{

varobjXML=newActiveXObject("msxml2.DOMDocument.3.0");

objXML.async=false;

objXML.setProperty("ServerHTTPRequest",true);

objXML.validateOnParse=true;

objXML.preserveWhiteSpace=false;

if(!objXML.load(strURL))

{

vararray=newArray();

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

{

varobjNodeList=objXML.getElementsByTagName("entry");

vararrDicts=newArray(objNodeList.length);

for(vari=0;i<objNodeList.length;i++)

{

arrDicts[i]=newActiveXObject("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)

}

}

varblogURL="http://taosage-net.blogspot.com/atom.xml";

varblogItems=atom(blogURL);

Response.Write("<strong>")

Response.Write("<ahref='"+blogItems[0].Item("link")+"'>"+blogItems[0].Item("title")+"</a>")

Response.Write("</strong>")

Response.Write("<tablewidth='100%'cellspacing='0'cellpadding='0'>")

Response.Write("<tr>")

Response.Write("<tdwidth='10'rowspan='2'></td>")

Response.Write("<td>"+blogItems[0].Item("content")+"<br></td>")

Response.Write("</tr>")

Response.Write("<tr>")

Response.Write("<td>postedby"+blogItems[0].Item("author")+"@"+blogItems[0].Item("issued")+"</td>")

Response.Write("</tr>")

Response.Write("</table>")

%>

【atom_js.asp】相关文章：

★ ASP实例教程:asp无限级显示分类代码

★ 关于使用存储过程创建分页

★ 网站生成静态页面攻略2:数据采集

★ 再来个专门为google量身定做的sitemap生成代码,(可是动态的哦)

★ FSO文件对象介绍及常用函数

★ 本人常用的分页代码

★ Asp中文件上传，fso方法大全

★ ASP智能搜索的实现

★ 在ASP中使用均速分页法提高分页速度的方法

★ 实现支持逻辑搜索/单词搜索/词组搜索+支持OR/AND关键字的VBS CLASS!