最近偶尔遇到这个错误,很是郁闷~升级msxml4都无效,网上搜一下,都是说改文件夹权限IUSR用户为可写,不顶用,解决不了问题,后来终于找到方法,解决问题,在此记录下
FunctionfunctionName(pararm)
DimHttp
SetHttp=Server.CreateObject("MSXML2.XMLHTTP.4.0")
WithHttp
.open"GET",HttpUrl,False
.Send
EndWith
IfHttp.Readystate 4then
SetHttp=Nothing
Exitfunction
Endif
EndFunction
大多数的程序都是运用xmlhttp的Readystate属性判断从服务器的返回状态。其实这样未必适合,很多时候用ReadyState属性判断并不能真正检测到程序流程中的错误。当遇到错误的时候,仍然会致使程序终止。其实修改一下上面的代码,完全可以实现跳过程序执行过程中遇到的错误,使程序继续运行。修改代码如下:
FunctionfunctionName(pararm)
DimHttp
SetHttp=Server.CreateObject("MSXML2.XMLHTTP.4.0")
WithHttp
.open"GET",HttpUrl,False
.Send
EndWith
OnErrorResumeNext
IfHttp.Status 200then
SetHttp=Nothing
Exitfunction
Endif
EndFunction
Send方法产生错误的时候,ReadyState的值或许为4,但Status的返回值就一定不是200的。呵呵,我经过多次跟踪ReadyState和Status的值得到以前结果。可能会有差错,目前我还没有发现。
希望以上程序解决方案能够帮到你!!如果朋友你有更好的解决方法,请一定告诉我哟。
我是以MSXML2.XMLHTTP.4.0为例说明的程序,也适合其它版本的XMLHTTP组件。想检查的你系统中已经安装了哪些版本的XMLHTTP组件,请到注册表的HKEY_CLASSES_ROOT下查找。
呵呵~加了个Status 200判断解决了问题