又来：：msxml3.dll 错误 '800c0005'问题

Question

是否文件操作没有释放资源？
如果代码没问题重新注册dll还会出现问题吗

Answer 1

关键是每次什么操作都不做,只重启机器就好了,不知怎么解决
function getHTTPPage(url) 
  dim Http 
  set Http=server.createobject("MSXML2.XMLHTTP") 
  Http.open "GET",url,false 
  Http.send() 
  if Http.readystate<>4 then 
    exit function 
  end if 
  getHTTPPage=bytesToBstr(Http.responseBody) 
  set http=nothing 
  if err.number<>0 then err.Clear 
end function
Function BytesToBstr(body) 
  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 = "GB2312" '转换原来默认的UTF-8编码转换成GB2312编码，否则直接用XMLHTTP组件调用有中文字符的网页得到的将是乱码 
  BytesToBstr = objstream.ReadText 
  objstream.Close 
  set objstream = nothing 
End Function