曾经在互联网技术和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