[提问] 求助高手，msxml3.dll 错误 '800c0005'

msxml3.dll 错误 '800c0005'

系统未找到指定的资源。

functions.asp，行29



<%
function node_exists(byval pnode,byval node)
  dim element
  node_exists=0
  for each element in pnode.ChildNodes
  if element.nodename=node then
  node_exists=1
  end if
  next
  set element=nothing
  set node=nothing
  set pnode=nothing
end function


sub SaveFile(byval RemoteFileUrl,byval LocalFileName,byval str,byval the_notexist)
dim Ads,Retrieval,GetRemoteData,str_arr,str_arr_sub,i,flag
dim http
'后台目录url
http=request.ServerVariables("HTTP_REFERER")
http=Mid(http,1,InStrRev(http,"/"))
if InStr(lcase(RemoteFileUrl),"http://")<=0 then
RemoteFileUrl=http&RemoteFileUrl
end if
'end 后台目录url
Set Retrieval = Server.CreateObject("MS"&"XM"&"L2.XM"&"LHT"&"TP")
With Retrieval
  .Open "Get", RemoteFileUrl, False, "", ""
  .Send
if .readyState=4 then
     if .status = 200 then
         flag=true
     GetRemoteData = .ResponseBody
     else
          flag=false
      GetRemoteData ="flase"
     end if
else
   Set Retrieval = Nothing
   Exit Sub
end if
  if Err.Number <> 0 then
    Err.Clear
    Set Retrieval = Nothing
    Exit Sub
  end if
End With
Set Retrieval = Nothing




（看看能给改一下吗，谢谢）