主页 > 知识库 > atom_js.asp

atom_js.asp

热门标签:服务器配置 Mysql连接数设置 银行业务 Linux服务器 团购网站 阿里云 电子围栏 科大讯飞语音识别系统
复制代码 代码如下:

%                     
' 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>ERRORbr>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; iobjNodeList.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'>nbsp;/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》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 上一篇:atom2rss.asp

    下一篇:google sitemap.asp

    收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266