XMLHTTP方法

　　Open bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword

　　bstrMethod：數(shù)據(jù)傳送方式，即GET或POST。 

　　bstrUrl：服務(wù)網(wǎng)頁的URL。

　　varAsync：是否同步執(zhí)行。缺省為True，即同步執(zhí)行，但只能在DOM中實施同步執(zhí)行。應(yīng)用中一般將其置為False，即異步執(zhí)行。

　　bstrUser：用戶名，可省略。 

　　bstrPassword：用戶口令，可省略。 

　　Send varBody 

　　varBody：指令集?？梢允荴ML格式數(shù)據(jù)，也可以是字符串，流，或者一個無符號整數(shù)數(shù)組。也可以省略，讓指令通過Open方法的URL參數(shù)代入。 

　　setRequestHeader bstrHeader, bstrValue 

　　bstrHeader：HTTP 頭(header) 

　　bstrValue：HTTP 頭(header)的值

　　如果Open方法定義為POST，可以定義表單方式上傳xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 

　　XMLHTTP屬性

　　onreadystatechange：在同步執(zhí)行方式下獲得返回結(jié)果的事件句柄。只能在DOM中調(diào)用。 

　　responseBody：結(jié)果返回為無符號整數(shù)數(shù)組。 

　　responseStream：結(jié)果返回為IStream流。 

　　responseText ：結(jié)果返回為字符串。 

　　responseXML：結(jié)果返回為XML格式數(shù)據(jù)。 

　　下面是本文附件源程序中的一個應(yīng)用示例： 

　　Function GetResult(urlStr) 

　　Dim xmlHttp 

　　Dim retStr

　　Set xmlHttp = CreateObject("Msxml2.XMLHTTP") '創(chuàng)建對象

　　On Error Resume Next '出錯處理 

　　xmlHttp.Open "POST", urlStr, False '用POST方式打開連接，異步執(zhí)行。 

　　xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '上傳表單

　　xmlHttp.Send '發(fā)送指令

　　If Err.Number = 0 Then '如果連接正確 

　　retStr = xmlHttp.responseText '等待并獲得服務(wù)端返回的結(jié)果字符串

　　Else 

　　retStr = "Url not found" '否則返回出錯信息 

　　End If 

　　Set xmlHttp = nothing '釋放對象 

　　GetResult = retStr '返回結(jié)果 

　　End Function 

　　GetResult()函數(shù)帶入一個服務(wù)網(wǎng)頁的URL參數(shù)，把上傳的指令安放在URL后面的參數(shù)上，如： 

　　urlStr = "server.asp?cmd=" & cmd & "&db=" & db & "table=" & table 

　　cmd：執(zhí)行方式，例如查詢，修改，刪除等等。 

　　db：服務(wù)端數(shù)據(jù)庫名 

　　table：服務(wù)端表名 

　　然后提交指令，等待并接收返回的處理結(jié)果。結(jié)果以字符串方式返回。最后由函數(shù)調(diào)用者處理并顯示結(jié)果。

最新評論