解决采集时出现msxml3.dll 错误的方法

采集时出现：


msxml3.dll 错误 '800c0005' 

系统未找到指定的资源。 

/admin/item/admin_itemfunction.asp，行166 

我查了资料：

在运用xmlhttp组件编写程序中，会碰到 "msxml3.dll 错误 '800c0005' 系统未找到指定的资源。" 这种错误，网上对这种错误的产生原因有很多钟解释，大体说是因为防火墙或udp站口权限造成了，也说了相应的解决办法。其它有时候也未必。其实错误的描述中就说出了主要的原因 "系统未找到指定的资源" 。这种错误都是出现在调用了 xmlhttp 组件的 open方法，接着再用send方法后造成的。当open方法的的 url 参数无法访问时，就会造成 8000005 错误。并且一旦产生这种错误，就会导致应用程序终止，无法继续操作。大多说的程序是这样写的:
function functionname(pararm ...)
dim http
set http=server.createobject("msxml2.xmlhttp.4.0") 
with http
.open "get",httpurl,false
.send
end with 
if http.readystate<>4 then 
set http=nothing 
......
exit function
end if
end function 
大多数的程序都是运用xmlhttp的 readystate 属性判断从服务器的返回状态。其实这样未必适合，很多时候用readystate 属性判断并不能真正检测到程序流程中的错误。当遇到错误的时候，仍然会致使程序终止。其实修改一下上面的代码，完全可以实现跳过程序执行过程中遇到的错误，使程序继续运行。修改代码如下:
function functionname(pararm ...)
dim http
set http=server.createobject("msxml2.xmlhttp.4.0") 
with http
.open "get",httpurl,false
.send
end with 
on error resume next 
if http.status<>200 then 
set http=nothing 
......
exit function
end if
end function 
send 方法产生错误的时候，readystate的值或许为4，但status的返回值就一定不是200的。呵呵，我经过多次跟踪readystate和status的值得到以前结果。可能会有差错，目前我还没有发现。
希望以上程序解决方案能够帮到你!!如果朋友你有更好的解决方法，请一定告诉我哟。
我是以msxml2.xmlhttp.4.0为例说明的程序，也适合其它版本的xmlhttp组件。想检查的你系统中已经安装了哪些版本的xmlhttp组件，请到注册表的 hkey_classes_root 下查找。


根据以上资料，我只做了如下修改，便可以正常采集，无需进行什么安装组件、重起、关闭防火墙等操作：

/admin/item/admin_itemfunction.asp，行166 附近：

http.send()
if http.readystate<>4 then

改为

on error resume next 
http.send()
if http.status<>200 then