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服务器.