为ServerXMLHTTP对象的HTTP请求设置超时时间

如果用ServerXMLHTTP(SXH)对象向另一个ASP页面或者Internet资源发起HTTP请求，建议设置一下超时限制。 既可以异步提交这种HTTP请求，也可以通过同步操作时调用setTimeouts方法做到这一点。 setTimeouts的各项参数为： HRESULT setTimeouts (long resolveTimeout, long connectTimeout, long sendTimeout, long receiveTimeout) 这些参数分别指定了解析DNS名字、建立socket连接、发送Request Data和接收Response Data的超时时间。     如果不指定超时，那么假如客户端同步发送数据给服务器，而服务器却挂起了这个请求，这样，要么客户端等待5分钟后发生send超时，要么等待一小时后发生receive超时。在这段时间内，客户端表现为Hang。 经常会被问的一个问题是，我如何把这种超时失败同其他错误区分开来？ 是这个样子，如果有一个时间超时的错误发生，就会引发一个COM异常： 0x80072ee2 "The operation timed out"   附录A中给出一个简单的VB DEMO。如果服务器的RS.asp中执行一句话：Sleep(15000)，肯定会send超时，于是异常就被捕获到了。这时的对话框如下所示： -2147012894就是0x80072EE2的错误。   SXH的open方法其实并不作任何network I/O，它只是初始化一下SXH对象的一些内部状态。所有“Real”的工作是在send方法中作的（如果这次的请求是同步的），setTimeouts中设置的超时值也将应用在这里。 send方法解析DNS名字，同服务器建立连接，发送request，等待reponse和读response data入内存。每个超时可能会被应用好多次。比如，如果response较大，SXH将需要调用多次Winsock receive来load response，这时receive超时将被应用到每一个Winsock receive调用上。

附录A：    #If Win32 Then       Declare Function GetTickCount Lib "kernel32" () As Long    #Else       Declare Function GetTickCount Lib "User" () As Long    #End If   Private Sub Command1_Click()     On Error Resume Next     Dim objClient As MSXML2.ServerXMLHTTP     Dim lngStartTime As Long     Dim lngFinnishTime As Long     Dim lngOpenTime As Long     Dim lngSendTime As Long     Dim lngRespTime As Long     Dim strMessage As String         Set objClient = New MSXML2.ServerXMLHTTP         txtOpen.Text = ""     txtSend.Text = ""     txtResponse.Text = ""       objClient.setTimeouts 650, 650, 650, 650       lngStartTime = GetTickCount()    objClient.open "GET", "http://localhost:80/asp/rs.asp", False         ' no failure here - the operation succeeds in 0 ms     lngFinnishTime = GetTickCount()     lngOpenTime = lngFinnishTime - lngStartTime     strMessage = CStr(lngOpenTime)         If Err.Number <> 0 Then         strMessage = strMessage & ": " & Err.Description         Err.Clear     End If         txtOpen.Text = strMessage     lngStartTime = GetTickCount()         objClient.send ' this is the operation that times out.         lngFinnishTime = GetTickCount()     lngSendTime = lngFinnishTime - lngStartTime     strMessage = CStr(lngSendTime)         If Err.Number <> 0 Then         strMessage = strMessage & ":ErrNumber-" & _                      Err.Number & "|ErrDescription-" & Err.Description         Err.Clear     End If         txtSend.Text = strMessage     ' this value is set to 672ms appended to a timeout error message     ' example: "672: The operation timed out"             Dim respDom As MSXML2.DOMDocument     lngStartTime = GetTickCount()         Set respDom = objClient.responseXML    ' no failure here - the operation succeeds in 0 ms     lngFinnishTime = GetTickCount()     lngRespTime = lngFinnishTime - lngStartTime     strMessage = CStr(lngRespTime)     If Err.Number <> 0 Then         strMessage = strMessage & ": " & Err.Description         Err.Clear     End If     txtResponse.Text = strMessage     Set objClient = Nothing     Exit Sub ERR_HANDLER:     MsgBox Err.Description   End Sub

附录B： 下面我们给出常见的SXH对象的错误码及其解释： 0x80004005  Unspecified error 0x8000FFFF  Unexpected error 0x80070008  Out of memory 0x8007000E  Out of memory 0x80072ee1  Cannot create any more ServerXMLHTTP objects (cannot exceed 5460 concurrent objects per process) 0x80072ee2  The operation timed out 0x80072ee4  internal error 0x80072ee5  The URL is invalid 0x80072ee7  The server name or address could not be resolved 0x80072eee  incorrect password 0x80072eef  authentication failure (credentials not accepted) 0x80072efd  A connection with the server could not be established 0x80072efe  connection aborted 0x80072eff  connection reset 0x80072f05  The date in the certificate is invalid or has expired 0x80072f06  The host name in the certificate is invalid or does not match 0x80072f07  A redirect request will change a non-secure to a secure connection 0x80072f08  A redirect request will change a secure to a non-secure connection 0x80072f0c  A certificate is required to complete client authentication 0x80072f0d  The certificate authority is invalid or incorrect 0x80072f0e  Client authentication has not been correctly installed 0x80072f76  The requested header was not found 0x80072f78  The server returned an invalid or unrecognized response 0x80072f7a  The request for a HTTP header is invalid 0x80072f7c  The HTTP redirect request failed 0x80072f7d  An error occurred in the secure channel support 0x80072f80  The HTTP request was not redirected 0x80072f82  A cookie from the server has been declined acceptance 0x80072f88  The HTTP redirect request must be confirmed by the user 0x80072f89  The server certificate was invalid