服务器不支持XMLHTTP是怎么回事
我有几个页面是用抓取然后生成的静态文件，之前一直都是正常的，今天突然发现不能使用了   报500错误
我尝试了下面两种方式都不行
    set   objXmlHttp   =   Server.CreateObject( "Microsoft.XMLHTTP ")  
'     set   objXmlHttp   =   Server.CreateObject( "MSXML2.XMLHTTP ")  
这可能是哪些问题引起的，以前也遇到过，然后两个切换下用就可以了，现在都不行了

------解决方案--------------------
去掉 "HTTP友好错误. "看看到底什么错误....
------解决方案--------------------
服务器默认的是显示错误信息的，去掉 "HTTP友好错误. "是客户端的浏览器的事情,IE设置自己找下,FireFox默认的是显示错误的信息的.
PS:外面雨下得真大.那就玩下再走了.
------解决方案--------------------
http://zhidao.baidu.com/question/1685835.html
------解决方案--------------------
一句话,重新注册组件.
------解决方案--------------------
关注
------解决方案--------------------
产生 < msxml3.dll 错误 ‘800c0005‘ 资源未找到 > 有以下几种原因：1、url不存在2、防火墙问题3、没有启用Web服务扩展的4、msxml3.dll损坏了5、DNS设置问题（确保能够以域名打开网站，注意，这里指的是出现错误的那台服务器）问题3的解决办法：启用 WebDev服务，把DNS client服务启动问题4的解决办法：到其他机器上找同样版本的文件覆盖（要先停止iis）问题5的解决办法：设置正确的DNS（可以正确解析域名）


在运用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 下查找。