上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
最新日志:
不错呦！smile@林凯西，确保“准备文件”中的几个文件都有安装，S...您好，看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了，主要是A...PJ3啊，貌似很少有人用PJ了，现在不是WP就是z...@332347365，我当时接入时错误码没有-10...楼主，ChkValue值应为-103是什么意思呢？...大哥 你最近能看到我发的信息，请跟我联系，我有个制...
msxml3.dll 错误 '80070005' 拒绝访问解决方法
编辑:dnawo 日期:2012-02-09
今天查看日志时发现有个ASP页面偶尔会运行出错，提示：
引用内容
问题还原
经过一番分析，提取出了主要的代码：
运行结果：
解决方法
将代码中Microsoft.XMLHTTP替换成Msxml2.ServerXMLHTTP即可。
原因分析
通过Firebug发现访问上边url时有个302跳转：
于是尝试在服务器建立一个302跳转页面希望对问题进行重现：
Redirect.asp：
遗憾的是问题没有再次出现，所以具体的错误原因暂且不知。
引用内容msxml3.dll 错误 '80070005'
拒绝访问。
拒绝访问。
问题还原
经过一番分析，提取出了主要的代码：
复制内容到剪贴板
程序代码
程序代码<%
'编码转换
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 HttpGet(weburl)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", weburl, False, "", ""
.Send
HttpGet = .ResponseBody
End With
HttpGet = BytesToBstr(HttpGet,"GB2312")
Set Retrieval = Nothing
End Function
Response.Write(HttpGet("http://member1.taobao.com/member/userProfile.jhtml?userID=huxueqi2011"))
%>
'编码转换
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 HttpGet(weburl)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", weburl, False, "", ""
.Send
HttpGet = .ResponseBody
End With
HttpGet = BytesToBstr(HttpGet,"GB2312")
Set Retrieval = Nothing
End Function
Response.Write(HttpGet("http://member1.taobao.com/member/userProfile.jhtml?userID=huxueqi2011"))
%>
运行结果：
解决方法
将代码中Microsoft.XMLHTTP替换成Msxml2.ServerXMLHTTP即可。
原因分析
通过Firebug发现访问上边url时有个302跳转：
于是尝试在服务器建立一个302跳转页面希望对问题进行重现：
Redirect.asp：
复制内容到剪贴板 程序代码
程序代码<%
Response.Status="302 Moved Temporarily"
Response.AddHeader "Location","http://www.qq.com/"
Response.End
%>
Response.Status="302 Moved Temporarily"
Response.AddHeader "Location","http://www.qq.com/"
Response.End
%>
遗憾的是问题没有再次出现，所以具体的错误原因暂且不知。
评论: 0 | 引用: 0 | 查看次数: 10551
发表评论
请登录后再发表评论！
