XML SOAP应用简介

bjHTTP.setRequestHeader "Content-Type", "text/"
    
    '设置调用头
    objHTTP.setRequestHeader "SOAPMethodName", _
     "urn:myserver/soap:TaxCalculator#GetSalesTax"
    
    'SOAP呼叫
    objHTTP.send strEnvelope
    
    '取出返回信封
    strReturn = objHTTP.responseText
    
    '加载到DOM
    objReturn.load 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.DOM")

   '加载请求到 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-soap-org:soap.v1"">" & _
   "<soap:header></soap:header>" & _
   "<soap:body>" & _
   "<m:getsalestaxresponse ns:m=""urn:myserver/soap:TaxCalc"">" & _
   "<salestax>" & varSalesTax & "</salestax>" & _
   "</m:getsalestaxresponse>" & _
   "</soap:body>" & _
   "</soap:envelope>"

   '回写结果文件
   Response.Write strTmp
   %>