ServerXMLHTTP对象的危险特性-一小时超时
The information in this article applies to:
- Microsoft XML 3.0，SP3
- Microsoft Windows XP,SP2
- Microsoft Windows 2000,SP4
对本文档所有修改都应按修改时间顺序记录在此。
Version
Date
Creator
Description
1.0.0.1
2004-5-11
郑昀
草稿
如果你在你的组件中使用了MSXML3开发包的ServerXMLHTTP对象，利用它作HTTP各种操作，那么请注意它的一个危险特性：
如果你的目标URL地址实际上并不存在，用浏览器访问它得到“找不到服务器或发生 DNS 错误”提示，那么ServerXMLHTTP访问它时，有可能会长时间（长达1个小时）不返回，导致你的应用阻塞！
这种情况我只在访问如：“http://210.82.95.171:9090/EntSmsUp.asp”时遇到，而且对方IP地址确实有效。对于一般的URL，如果找不到服务器，ServerXMLHTTP最多30秒就会中断执行而返回。
更多试验发现，只有极少数情况的URL，才会导致访问1小时后才返回。原因不详。
但是以防万一，请一定要设置SXH的超时时间限制！
更多信息：
你可以建立下面VBS脚本文件：
dim objXmlHttp
Set objXmlHttp = CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.Open "POST", "http://210.82.95.171:9090/EntSmsUp.asp", False
objXmlHttp.send "1"
上面这样的脚本在WinXP+SP2和Win2000+SP4(都已经打了MSXML3的SP3补丁)环境上运行，至少在1小时后才返回。（试验了若干台机器，效果一样）
执行时间一般是3605秒，刚好是1小时，如下所示：
解决方案：
你必须主动设置ServerXMLHTTP操作的超时时间，如下所示：
lresolveTimeout = 10000 ‘ 解析DNS名字的超时时间,10秒
lconnectTimeout = 10000 ‘ 建立Winsock连接的超时时间,10秒
lsendTimeout = 120000 ‘ 发送数据的超时时间,120秒
lreceiveTimeout = 60000 ' 接收response的超时时间,60秒
objXmlHttp.setTimeouts lresolveTimeout, _
lconnectTimeout, _
lsendTimeout, _
lreceiveTimeout
方可避免这种问题。这样的话，访问一个不存在的URL，只需要60秒后就可以超时返回，COM异常错误码是0x80072EE2。
重现：
将下面代码保存为“testTimeout.vbs”文件，双击运行：
BeginTimer = Timer()
BeiginTime = Now()
On error resume next
dim objXmlHttp
Set objXmlHttp = CreateObject("Msxml2.ServerXMLHTTP")
' ------------------------------------------------------------
lresolveTimeout = 10000 ' 解析DNS名字的超时时间,10秒
lconnectTimeout = 10000 ' 建立Winsock连接的超时时间,10秒
lsendTimeout = 120000 ' 发送数据的超时时间,120秒
lreceiveTimeout = 60000 ' 接收response的超时时间,60秒
'objXmlHttp.setTimeouts lresolveTimeout, _
' lconnectTimeout, _
' lsendTimeout, _
' lreceiveTimeout
' ------------------------------------------------------------
sURL ="http://210.82.95.171:9090/xxx.asp"
objXmlHttp.Open "POST", sURL, False
objXmlHttp.send "1212312"
EndTimer = Timer()
TimeSpan_Send = EndTimer - BeginTimer
EndTime = Now()
msgbox sURL & " okay!TimeSpan=" & CStr(TimeSpan_Send) & ";start:" & BeiginTime & ";EndTime:" & EndTime
Writen by zhengyun.NoJunk(at)tomosoft.dot.com