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

时间:2021-12-21 14:12:51

采集时出现:

msxml3.dll错误'800c0005'

系统未找到指定的资源。

/Admin/Item/Admin_ItemFunction.asp,行166

我查了资料:

在运用xmlhttp组件编写程序中,会碰到"msxml3.dll错误'800c0005'系统未找到指定的资源。"这种错误,网上对这种错误的产生原因有很多钟解释,大体说是因为防火墙或UDP站口权限造成了,也说了相应的解决办法。其它有时候也未必。其实错误的描述中就说出了主要的原因"系统未找到指定的资源"。这种错误都是出现在调用了xmlhttp组件的Open方法,接着再用Send方法后造成的。当open方法的的url参数无法访问时,就会造成8000005错误。并且一旦产生这种错误,就会导致应用程序终止,无法继续操作。大多说的程序是这样写的:

  1. FunctionfunctionName(pararm...) 
  2.  
  3. DimHttp 
  4.  
  5. SetHttp=Server.CreateObject("MSXML2.XMLHTTP.4.0"
  6.  
  7. WithHttp 
  8.  
  9. .open"GET",HttpUrl,False 
  10.  
  11. .Send 
  12.  
  13. EndWith 
  14.  
  15. IfHttp.Readystate<>4then 
  16.  
  17. SetHttp=Nothing 
  18.  
  19. ...... 
  20.  
  21. Exitfunction 
  22.  
  23. Endif 
  24.  
  25. EndFunction 

大多数的程序都是运用xmlhttp的Readystate属性判断从服务器的返回状态。其实这样未必适合,很多时候用ReadyState属性判断并不能真正检测到程序流程中的错误。当遇到错误的时候,仍然会致使程序终止。其实修改一下上面的代码,完全可以实现跳过程序执行过程中遇到的错误,使程序继续运行。修改代码如下:

  1. FunctionfunctionName(pararm...) 
  2.  
  3. DimHttp 
  4.  
  5. SetHttp=Server.CreateObject("MSXML2.XMLHTTP.4.0"
  6.  
  7. WithHttp 
  8.  
  9. .open"GET",HttpUrl,False 
  10.  
  11. .Send 
  12.  
  13. EndWith 
  14.  
  15. OnErrorResumeNext 
  16.  
  17. IfHttp.Status<>200then 
  18.  
  19. SetHttp=Nothing 
  20.  
  21. ...... 
  22.  
  23. Exitfunction 
  24.  
  25. Endif 
  26.  
  27. EndFunction 

Send方法产生错误的时候,ReadyState的值或许为4,但Status的返回值就一定不是200的。呵呵,我经过多次跟踪ReadyState和Status的值得到以前结果。可能会有差错,目前我还没有发现。

希望以上程序解决方案能够帮到你!!如果朋友你有更好的解决方法,请一定告诉我哟。

我是以MSXML2.XMLHTTP.4.0为例说明的程序,也适合其它版本的XMLHTTP组件。想检查的你系统中已经安装了哪些版本的XMLHTTP组件,请到注册表的HKEY_CLASSES_ROOT下查找。

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

/Admin/Item/Admin_ItemFunction.asp,行166附近:

Http.Send()

IfHttp.Readystate<>4then

改为

OnErrorResumeNext

Http.Send()

IfHttp.Status<>200then