ServerXMLHTTP对象的危险特性

类别:软件工程 点击:0 评论:0 推荐:
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+SP2Win2000+SP4(都已经打了MSXML3SP3补丁)环境上运行,至少在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

本文地址:http://com.8s8s.com/it/it36999.htm