| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 610 人关注过本帖
标题:[求助]无法使用XML.Send,请高手们帮忙解决!
只看楼主 加入收藏
nglokhong
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2005-9-26
收藏
 问题点数:0 回复次数:3 
[求助]无法使用XML.Send,请高手们帮忙解决!
用ASP运行时在xml.Send报这个错误:msxml3.dll 错误 '800c0005' 系统未找到指定的资源。
我的代码是: <%Dim xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://www.21cn.com", false xml.Send %> 如果把http://www.21cn.com改为:http://oa.ecstudio.com/公司内部办公网网址,则能成功得到其网页. 我是通过代理服务器访问互联网的,用IE访问互联网正常,请问有谁遇到到此问题?如何解决使用msxml3.dll组件无法得到外网的网页呢?
搜索更多相关主题的帖子: XML Send 
2005-10-14 09:19
nglokhong
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2005-9-26
收藏
得分:0 
难道没有人用过该控制或遇过这种情况吗?请高手们帮帮忙!
2005-10-17 09:10
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
Server.ScriptTimeOut=9999999

Function getHTTPPage(Path)
        t = GetBody(Path)
        getHTTPPage=BytesToBstr(t,"GB2312")
End function

Function GetBody(url)
        on error resume next
        Set Retrieval = CreateObject("Microsoft.XMLHTTP")
        With Retrieval
        .Open "Get", url, False, "", ""
        .Send
        GetBody = .ResponseBody
        End With
        Set Retrieval = Nothing
End Function

function code(str_c)
str_c=replace(str_c,"'","&amp;#180;")
str_c=replace(str_c,"""","&amp;quot;")
code=str_c
end function

Function BytesToBstr(body,Cset)
        dim objstream
        set objstream = Server.CreateObject("adodb.stream")
        objstream.Type = 1
        objstream.Mode =3
        objstream.Open
        objstream.Write body
        objstream.Position = 0
        objstream.Type = 2
        objstream.Charset = Cset
        BytesToBstr = objstream.ReadText
        objstream.Close
        set objstream = nothing
End Function

Function Newstring(wstr,strng)
        Newstring=Instr(lcase(wstr),lcase(strng))
        if Newstring&lt;=0 then Newstring=Len(wstr)
End Function
Dim wstr,str,url,start,over,dtime

url="输入网址"
wstr=getHTTPPage(url)
response.write wstr
2005-10-17 09:32
nglokhong
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2005-9-26
收藏
得分:0 
顶一下,希望有人知道能指教一下!
2005-11-18 09:50
快速回复:[求助]无法使用XML.Send,请高手们帮忙解决!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016442 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved