运行时错误，怎么回事？

方法一：

这个情况以前也遇到过，一般出现在采集信息或用XMLHTTP静态更新网页的时候会出现这个问题，以前出现类似的错误我都是用 set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") '一般在msxml2.6以下版本使用 ' set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP") '受msxml3.dll+支持 替换着使用，现在却怎么都报错。 搜索了网上我所知道所有的技术论坛和搜索引擎，引起这样的问题可能存在多种情况，下面总结一下： （一）那就是最基本的了，你的服务器不支持xmlhttp或组件版本态低，需要下载相应的组件。这个一般服务器都不需要的，大多数情况下都支持xmlhttp，所以这个情况较少。 （二）msxml3.dll文件可能损坏或该文件使用权限不够(权限这个情况可能性较小)，如果是文件损坏的话，你可以到网上下载相应系统环境的msxml3.dll文件替换下(2003系统好像在c:\\windows\system32下)，需要关闭相应的服务例如iis等才能覆盖。 （三）防火强或杀毒软件禁用了相应的端口，具体该怎么设置要根据不同的软件而定，你可以试着关闭防火墙或杀毒软件后再测试确定是否是这个问题。 （四）重新注册下该组件试试看。开始>>运行: regsvr32 msxml3.dll （五）DNS解析错误，检查你的网络设置或正确的域名解析访问 （六）检查你的IP筛选的设置（这个不是太了解） （七）对方资源失效，比如采集某条信息时，对方该条信息不存在导致程序终止错误，也可能是这种情况。这种错误都是出现在调用了 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.Readystate4 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.Status200 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 下查找。 （八）进入服务器

方法二、

昨天和前天公司网站不知为何突然打不开了先前以为是服务器等其它原因,后来仔细瞧了下出现"msxml3.dll 错误'800c0005' 系统未找到指定的资源错误",根据提示我找到了精确的路径以及相关的文件代码,查看了下里面有百度的踪影,然后把百度的相关信息去掉后再上传网站OK了,后来又有其它文件出现类似的情况,经过检查发现其实是"Microsoft.XMLHTTP"这个的原因,也就是系统根本不支持XMLHTTP组件的原因,经过网上资料查询得到了如下答案,一点经验记着先: