ServerXMLHTTP对象的危险特性

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

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=12759