新书推介:《语义网技术体系》
作者:瞿裕忠,胡伟,程龚
   XML论坛     W3CHINA.ORG讨论区     计算机科学论坛     SOAChina论坛     Blog     开放翻译计划     新浪微博  
 
  • 首页
  • 登录
  • 注册
  • 软件下载
  • 资料下载
  • 核心成员
  • 帮助
  •   Add to Google

    >> 讨论HTML、XHTML、Web2.0、Ajax、XUL, ExtJS, jQuery, JSON、Social Networking System(SNS)、Rich Internet Applications (RIA)、Tagging System、Taxonomy(tagsonomy,folkonomy)、XForms、XFrames、XInclude, XBL (XML Binding Language)等话题
    [返回] 中文XML论坛 - 专业的XML技术讨论区XML.ORG.CN讨论区 - XML技术『 HTML/XHTML/Ajax/Web 2.0/Web 3.0 』 → 关于读取rss出错,请多指教 查看新帖用户列表

      发表一个新主题  发表一个新投票  回复主题  (订阅本版) 您是本帖的第 4641 个阅读者浏览上一篇主题  刷新本主题   树形显示贴子 浏览下一篇主题
     * 贴子主题: 关于读取rss出错,请多指教 举报  打印  推荐  IE收藏夹 
       本主题类别:     
     jafu 帅哥哟,离线,有人找我吗?
      
      
      等级:大一新生
      文章:5
      积分:74
      门派:XML.ORG.CN
      注册:2007/6/25

    姓名:(无权查看)
    城市:(无权查看)
    院校:(无权查看)
    给jafu发送一个短消息 把jafu加入好友 查看jafu的个人资料 搜索jafu在『 HTML/XHTML/Ajax/Web 2.0/Web 3.0 』的所有贴子 引用回复这个贴子 回复这个贴子 查看jafu的博客楼主
    发贴心情 关于读取rss出错,请多指教

    关于读取rss出错

    请多指教

    <%
    Function readrss(xmlseed)
    dim xmlDoc
    dim http
    Set http=Server.CreateObject("Microsoft.XMLHTTP")
    http.Open "GET",xmlseed,False
    http.send
    Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
    xmlDoc.Async=False
    xmlDoc.ValidateOnParse=False
    xmlDoc.Load(http.ResponseXML)
    Set item=xmlDoc.getElementsByTagName("item")
    if item.Length<=1 then
    %>
    <script language="JavaScript">
    alert("对不起,该新闻条数已经少于1条新闻条数!");
    </script>
    <%
    else
    end if
    End Function
    %>

    <%
    call readrss("http://www.richfree.c/")
    %>


    如果call readrss的地址不对的话,会出错,请高手指教


       收藏   分享  
    顶(0)
      




    点击查看用户来源及管理<br>发贴IP:*.*.*.* 2007/7/30 0:22:00
     
     Qr 帅哥哟,离线,有人找我吗?
      
      
      威望:9
      等级:博士二年级(版主)
      文章:4392
      积分:29981
      门派:XML.ORG.CN
      注册:2004/5/15

    姓名:(无权查看)
    城市:(无权查看)
    院校:(无权查看)
    给Qr发送一个短消息 把Qr加入好友 查看Qr的个人资料 搜索Qr在『 HTML/XHTML/Ajax/Web 2.0/Web 3.0 』的所有贴子 访问Qr的主页 引用回复这个贴子 回复这个贴子 查看Qr的博客2
    发贴心情 
    不太懂ASP请求XMLHTTP,但知道XMLHTTP可以用onreadystatechange和readyState结合处理;
    XMLDOM也可以用parseError解析错误对象。

    ----------------------------------------------
    没人帮忙,那就靠自己,自己才是最好的老师!本人拒绝回答通过站内短消息提出的问题!

    blog:http://Qr.blogger.org.cn

    点击查看用户来源及管理<br>发贴IP:*.*.*.* 2007/7/30 8:46:00
     
     jafu 帅哥哟,离线,有人找我吗?
      
      
      等级:大一新生
      文章:5
      积分:74
      门派:XML.ORG.CN
      注册:2007/6/25

    姓名:(无权查看)
    城市:(无权查看)
    院校:(无权查看)
    给jafu发送一个短消息 把jafu加入好友 查看jafu的个人资料 搜索jafu在『 HTML/XHTML/Ajax/Web 2.0/Web 3.0 』的所有贴子 引用回复这个贴子 回复这个贴子 查看jafu的博客3
    发贴心情 
    <%
    Function readrss(xmlseed)
    dim xmlDoc
    dim objXMLHTTP
    Set objXMLHTTP=Server.CreateObject("Msxml2.ServerXMLHTTP")
    objXMLHTTP.setTimeouts lResolve*1000,lConnect*1000,lSend*1000,lReceive*1000
    objXMLHTTP.Open "post",xmlseed,False
    objXMLHTTP.send()

       Select Case objXMLHTTP.readyState
        Case 0
        Response.Write("对象初始化失败,估计你输入了一堆无效的字符....")
        GetXml=False
        Case 1
        Response.Write("域名分析超时/连接站点超时!也许是这个网站有问题,或许是超时设定太短,或许机器没有联网")
        GetXml=False
        Case 2   
        Response.Write("发送数据请求超时,是不是服务器出故障了?")
        GetXml=False
        Case 3
         ContentLength=objXMLHTTP.GetResponseHeader("Content-Length")
         If err.number=-2147012746 then
         Response.Write("数据下载超时/等待反馈时间超时")
         Else
         Response.Write("数据下载超时/等待反馈时间超时")
         End If
        Err.clear
        GetXml=False
        Case 4
      
       End Select 
       
      
      


    End Function
    %>

    <%
    call readrss("ghyu")
    %>

    麻烦看一下,是这样写吗?不过我还是出错阿,出错在 objXMLHTTP.send() 这一行

    错误类型:
    msxml3.dll (0x80004005)
    未指定的错误

    点击查看用户来源及管理<br>发贴IP:*.*.*.* 2007/7/31 0:10:00
     
     GoogleAdSense
      
      
      等级:大一新生
      文章:1
      积分:50
      门派:无门无派
      院校:未填写
      注册:2007-01-01
    给Google AdSense发送一个短消息 把Google AdSense加入好友 查看Google AdSense的个人资料 搜索Google AdSense在『 HTML/XHTML/Ajax/Web 2.0/Web 3.0 』的所有贴子 访问Google AdSense的主页 引用回复这个贴子 回复这个贴子 查看Google AdSense的博客广告
    2025/7/18 20:19:12

    本主题贴数3,分页: [1]

    管理选项修改tag | 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告
    W3C Contributing Supporter! W 3 C h i n a ( since 2003 ) 旗 下 站 点
    苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
    62.500ms