Asp开发中出现“msxml3.dll 错误 ‘800c0005‘系统未找到指定的

在进行 ASP开发中一些朋友尤其是经常使用ASP采集程序的朋友一定遇到过：
msxml3.dll 错误 '800c0005'
系统未找到指定的资源。

这样的错误。

网上很多帖子会说是防火墙或UDP站口权限造成的错误，建议打开防火墙等等解决，但是我发现以下这个方法还是很有它的独到之处的

采集时出现：

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

回收进程池以后，无效

重启iis，无效

搜索到网上有以下的解决方案，尝试到第四步时候，问题解决。

（一）那就是最基本的了，你的服务器不支持xmlhttp或组件版本态低，需要下载相应的组件。这个一般服务器都不需要的，大多数情况下都支持xmlhttp，所以这个情况较少。

（二）msxml3.dll文件可能损坏或该文件使用权限不够(权限这个情况可能性较小)，如果是文件损坏的话，你可以到网上下载相应系统环境的msxml3.dll文件替换下(2003系统好像在c:\\windows\system32下)，需要关闭相应的服务例如iis等才能覆盖。