标题:msxml3.dll 错误 '80070005' 拒绝访问。死活找不到原因,请大神帮助
只看楼主
boubleyu
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-7-16
结帖率:0
已结贴  问题点数:20 回复次数:1 
msxml3.dll 错误 '80070005' 拒绝访问。死活找不到原因,请大神帮助
ASP的程序,弄了个生成HTML的功能,本来好好的,前段时间因为更换了域名,所以在代码里将域名更换,这下好了,出现了这个错误,但奇怪的是,一共需要生成六种页面,而只有其中的生成两个页面出现此错误,其他正常。

[local]1[/local]

msxml3.dll 错误 '80070005'拒绝访问。/Saveshtml/include/function.asp,行 358

程序代码:
 '*************************************************
'函数名:GetWebFile
'作  用:获取WEB文件并保存到本地
'参  数:FileName 网站下的相对文件包/文件名称,WebUrl ,RefererUrl
'返回值:
'**************************************************
function SaveWebFile(FileName,WebFileUrl,RefererUrl)
if RefererUrl="" then RefererUrl=WebFileUrl

 if instr(FileName,":")=0 then FileName=server.MapPath(FileName) 

 set Retrieval=server.createobject("MSXML2.XMLHTTP")

 Retrieval.Open "Get",WebFileUrl, false

 Retrieval.setRequestHeader "Referer",RefererUrl 

 Retrieval.Send() *****/这里是第358行

 GetRemoteData = Retrieval.ResponseBody
   set Ads=server.createobject("Adodb.Stream")
   Ads.Type = 1
   Ads.Open()
   Ads.Write(GetRemoteData)
   Ads.SaveToFile FileName,2 
   Ads.Cancel()
   Ads.Close()
End  function

function BytesToBstr(body,Cset)
    Set obj = Server.CreateObject("adodb.stream")
    obj.Type = 1
    obj.Mode =3
    obj.Open
    obj.Write body
    obj.Position = 0
    obj.Type = 2
    obj.Charset = Cset
    BytesToBstr=obj.ReadText 
End  function
%>


求大神帮助,万分感谢,用的是阿里云的IIS服务器.
搜索更多相关主题的帖子: include 
2014-07-16 23:57
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:20 
个人觉得这个错误提示好像和代码没关系,是权限问题
2014-07-18 10:18



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-434115-1-1.html




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

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