msxml3.dll 错误 '80070005' 拒绝访问。死活找不到原因，请大神帮助

'*************************************************
'函数名：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
%>