asp中使用MSXML2.ServerXMLHTTP實現異步請求例子

asp使用MSXML2.ServerXMLHTTP異步發送請求時，需要注意判斷MSXML2.ServerXMLHTTP對象的readyState是否為4，如果不判斷直接獲取對象的屬性，如responseText會出現如下錯誤：
復制代碼 代碼如下:
msxml3.dll 錯誤 '8000000a'

完成該操作所需的數據還不可使用。

/a.asp，行 18

asp使用MSXML2.ServerXMLHTTP異步發送請求源代碼：

復制代碼 代碼如下:
<%
if request.QueryString("dc")="1" then'xhr請求則輸出當前時間並停止繼續執行
  response.Write now
  response.End
end if
Dim xmlServerHttp
set xmlserverhttp = server.createobject("MSXML2.ServerXMLHTTP")
xmlServerHttp.open "GET", "http://root.jb51.net/a.asp?dc=1", true'發起異步請求
xmlServerHttp.send
 
While xmlServerHttp.readyState <> 4'注意這裡要判斷xhr對象的狀態，如果不為4則等待1000ms，要不最下面那句會報上面貼出來的錯誤
    xmlServerHttp.waitForResponse 1000
Wend
 
response.contenttype = "text/html"
response.write "Receiver Page: " & xmlServerHttp.responseText & "<br/>"
%>