asp中使用MSXML2.ServerXMLHTTP實(shí)現(xiàn)異步請(qǐng)求例子

2020-07-27 12:41:38

字體：大中小

供稿：網(wǎng)友

asp使用MSXML2.ServerXMLHTTP異步發(fā)送請(qǐng)求時(shí)，需要注意判斷MSXML2.ServerXMLHTTP對(duì)象的readyState是否為4，如果不判斷直接獲取對(duì)象的屬性，如responseText會(huì)出現(xiàn)如下錯(cuò)誤：

復(fù)制代碼代碼如下:

msxml3.dll 錯(cuò)誤 '8000000a'

完成該操作所需的數(shù)據(jù)還不可使用。

/a.asp，行 18

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

復(fù)制代碼代碼如下:

<%
if request.QueryString("dc")="1" then'xhr請(qǐng)求則輸出當(dāng)前時(shí)間并停止繼續(xù)執(zhí)行
  response.Write now
  response.End
end if
Dim xmlServerHttp
set xmlserverhttp = server.createobject("MSXML2.ServerXMLHTTP")
xmlServerHttp.open "GET", "http://root.VeVB.COm/a.asp?dc=1", true'發(fā)起異步請(qǐng)求
xmlServerHttp.send
 
While xmlServerHttp.readyState <> 4'注意這里要判斷xhr對(duì)象的狀態(tài)，如果不為4則等待1000ms，要不最下面那句會(huì)報(bào)上面貼出來(lái)的錯(cuò)誤
    xmlServerHttp.waitForResponse 1000
Wend
 
response.contenttype = "text/html"
response.write "Receiver Page: " & xmlServerHttp.responseText & "<br/>"
%>