曾經在互聯網技術和Java技術方面一度落后的微軟公司在XML應用開發則走在了前頭。她的XML解析器(MSXML)中的XMLHTTP協議是一個非常方便實用的客戶/服務通訊管道。綜合運用XMLHTTP以及ActiveX數據對象(ActiveX Data Objects, ADO/ADOX)可以簡單方便地實現數據庫遠程管理。
下面是本文附件源程序中的一個應用示例: Function GetResult(urlStr) Dim xmlHttp Dim retStr
Set xmlHttp = CreateObject("Msxml2.XMLHTTP") '創建對象 On Error Resume Next '出錯處理 xmlHttp.Open "POST", urlStr, False '用POST方式打開連接,異步執行。 xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '上傳表單 xmlHttp.Send '發送指令
If Err.Number = 0 Then '如果連接正確 retStr = xmlHttp.responseText '等待并獲得服務端返回的結果字符串 Else retStr = "Url not found" '否則返回出錯信息 End If Set xmlHttp = nothing '釋放對象 GetResult = retStr '返回結果 End Function