XML相关技术资料(3)

    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 

GetResult()函数带入一个服务网页的URL参数，把上传的指令安放在URL后面的参数上，如： 
    urlStr = "server.asp?cmd=" & cmd & "&db=" & db & "table=" & table 
    cmd：执行方式，例如查询，修改，删除等等。 
    db：服务端数据库名 
    table：服务端表名 

然后提交指令，等待并接收返回的处理结果。结果以字符串方式返回。 

最后由函数调用者处理并显示结果。