XML和Web数据管理第十一章 简单对象访问协议SOAP.ppt

文件返回给客户后，客户经过解码就能得到结果： Dim objReturn As New MSXML.DomDocument objReturn.LoadXML strReturn strQuery = _ SOAP:Envelope/SOAP:Body/m:GetSalesTaxResponse/SalesTax dblTax = objReturn.SelectSingleNode(strQuery).Text 这样就完成了一个简单的SOAP服务应用。 客户端代码： VB Client Code Sub Main() Dim objHTTP As New MSXML.XMLHTTPRequest Dim strEnvelope As String Dim strReturn As String Dim objReturn As New MSXML.DOMDocument Dim dblTax As Double Dim strQuery As String 创建SOAP封装 strEnvelope = _ soap:envelope XMLns:soap=urn:schemas-XMLsoap-org:soap.v1 _ soap:header/soap:header _ soap:body _ m:getsalestax XMLns:m=urn:myserver/soap:TaxCalculator _ salestotal100/salestotal _ /m:getsalestax _ /soap:body _ /soap:envelope  设定发往本地服务器 objHTTP.open post, http://localhost/soap.ASP, False 设定标准SOAP/ XML格式 objHTTP.setRequestHeader Content-Type, text/XML 设置调用函数头 objHTTP.setRequestHeader SOAPMethodName, _ urn:myserver/soap:TaxCalculator#GetSalesTax SOAP呼叫 objHTTP.send strEnvelope  取出返回信封 strReturn = objHTTP.responseText 加载到DOM objReturn.loadXML strReturn 查询返回值 strQuery = _ SOAP:Envelope/SOAP:Body/m:GetSalesTaxResponse/SalesTax dblTax = objReturn.selectSingleNode(strQuery).Text Debug.Print dblTax End Sub 服务端代码： 服务端ASP代码(文件名soap.ASP，存放在本地服务器根目录下)： % Set objReq = Server.CreateObject(Microsoft.XMLDOM) 加载请求到XML DOM objReq.Load Request 按照输入参数查询 strQuery = SOAP:Envelope/SOAP:Body/m:GetSalesTax/SalesTotal varSalesTotal = objReq.SelectSingleNode(strQuery).Text 计算 varSalesTax = varSalesTotal * 0.04 准备返回信封 strTmp = _ soap:envelope XMLns:soap=urn:schemas-XMLsoap-org:soap.v1 _ soap:header/soap:header _ soap:body _ m:getsalestaxresponse XMLns:m=urn:myserver/soap:TaxCalc _ salestax varSalesTax /salestax _ /m:getsalestaxresponse _ /soap:body _ /soap:envelope 回写结果文件 Response.Write strTmp % 第十一章 简单对象访问协议 SOAP 简介 SOAP定义 SOAP是一个工业标准，它以XML的形式为一个松散的、分布的环境中对等的交换结构化和类型化信息，提供一个简单的而且是轻量级的机制，用于在Web上提高跨平台的互通性。 什么是 SOAP？ SOAP 指简易对象访问协议 SOAP 是