asp中使用MSXML2.ServerXMLHTTP實(shí)現異步請求例子

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

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

/a.asp，行 18

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

代碼如下:
<%
if request.QueryString("dc")="1" then'xhr請求則輸出當前時(shí)間并停止繼續執行
  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'發(fā)起異步請求
xmlServerHttp.send
 
While xmlServerHttp.readyState <> 4'注意這里要判斷xhr對象的狀態(tài)，如果不為4則等待1000ms，要不最下面那句會(huì )報上面貼出來(lái)的錯誤
    xmlServerHttp.waitForResponse 1000
Wend
 
response.contenttype = "text/html"
response.write "Receiver Page: " & xmlServerHttp.responseText & "<br/>"
%>