杜伟滴BLOG

写采集程序一直被msxml3.dll 错误困扰，网上找了半天大多是说防火墙 UDP的什么问题，但偶得服务器并没有装防火墙这些东西，所以偶觉得真正的原因并不在这里

一次采集图片站。图片都要本地化 遇到了msxml3.dll 错误，经过偶不断的研究发现了问题的所在，只要采集程序出现msxml3.dll 错误，那么对方网站的图片肯定是一个失效的连接，导致msxml3.dll 错误真正的原因就是 msxml3.dll运行超时了

 知道了原因解决就很简单了，修改

function getHTTPPage(url) 
 dim http
 set http=Server.createobject(”Microsoft.XMLHTTP”)
 Http.open “GET”,url,false
 Http.send()
 if Http.readystate<>4 then
  exit function
 end if
 getHTTPPage=bytes2BSTR(Http.responseBody)
 set http=nothing
 if err.number<>0 then err.Clear 
end function

 function getHTTPPage(url)
 on error resume next
 dim http
 set http=Server.createobject(”Microsoft.XMLHTTP”)
 Http.open “GET”,url,false
 Http.send()
 if Http.readystate<>4 then
  exit function
 end if
 getHTTPPage=bytes2BSTR(Http.responseBody)
 set http=nothing
 if err.number<>0 then err.Clear 
end function

加上on error resume next  不抱错继续运行，问题解决了