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

遭遇“msxml3.dll 错误 '800c0005' 系统未找到指定的资源”这一难题时，许多开发者在运用xmlhttp组件编写程序的过程中都会碰到。这个错误大体上是因为防火墙或UDP端口权限所导致，但实际的产生原因却更为复杂。

在深入分析后，我们发现错误的本质在于“系统未找到指定的资源”。这通常发生在调用xmlhttp组件的Open方法后，紧接着使用Send方法时，如果Open方法的URL参数无法访问，就会触发这个错误代码8000005。而且，一旦这种错误产生，应用程序会立即终止，无法继续执行。

许多程序在编写时，会依赖xmlhttp的ReadyState属性来判断服务器的返回状态。这种做法在许多情况下并不适用，因为即便ReadyState的值显示为完成，如果在发送请求时发生错误，Status的返回值就不会是200，意味着请求并未成功。我们需要一种更为准确的方法来检测和应对这种错误。

我们可以修改原有的程序结构，添加错误处理机制，使程序在遇到错误时能够继续运行。修改后的代码如下：

```vbscript

Function functionName(pararm ...)

Dim Http

Set Http = Server.CreateObject("MSXML2.XMLHTTP.4.0")

With Http

.open "GET", HttpUrl, False

On Error Resume Next ' 启用错误处理机制

.Send

If Http.Status <> 200 Then

Set Http = Nothing

'...其他错误处理操作...

Exit Function

End If

End With

End Function

```

在这里，我们添加了错误处理语句`On Error Resume Next`，这样当Send方法产生错误时，程序不会立即终止，而是会继续执行后续的判断语句。我们不再依赖ReadyState属性，而是使用Status属性来判断请求是否成功。如果Status的值不是200，说明请求失败，此时我们可以进行相应的错误处理。

这种修改方案能够帮助我们绕过程序执行过程中的错误，使程序能够继续运行。希望这个解决方案能够帮助到你。如果你有任何更好的方法或者建议，欢迎分享。注意，以上解决方案适用于MSXML2.XMLHTTP.4.0及其他版本的XMLHTTP组件。

关于你的`/Admin/Item/Admin_ItemFunction.asp`文件中行166附近的代码修改，通过加入错误处理机制，你应该可以正常进行采集操作，无需进行安装组件、重启、关闭防火墙等复杂操作。如果在实施过程中遇到其他问题，建议检查XMLHTTP组件的版本以及系统的相关设置。