1  SOA 2.0接口 2 Function GetDepartmentCode(reqDeptCode) 3     Dim soaRequestXML : soaRequestXML = "" 4     Dim strCustomerSOAServer : strCustomerSOAServer = "www.td.com"    14 15     soaRequestXML ="
     "16     soaRequestXML = soaRequestXML & "
     
      "17     soaRequestXML = soaRequestXML & "
      
       "&reqDeptCode&"
      "18     soaRequestXML = soaRequestXML & "
      
       H
      "22     soaRequestXML = soaRequestXML & "
     "23 24     dim url25     url="http://"&strCustomerSOAServer&"/td-core/api/GetDepartmentCode.xml"26     dim xmlHttp27     Set xmlHttp = CreateObject("Microsoft.XMLHTTP")28      xmlHttp.open "POST", url, False 29      xmlHttp.setRequestHeader "Content-Type", "application/xml;" 30      xmlHttp.send (soaRequestXML)31      While xmlHttp.readyState <> 4        32      Wend33     34 35     GetDepartmentCode = xmlHttp.responseText36 37 End Function

 

1 调用上面接口方法 并解析返回的xml数据 2 Sub ShowVdnSelect(strRouteDest) 3     dim strVdnCode, strVdnName, strSelected, soapXml 4     set soapXml = Server.CreateObject("microsoft.xmldom") 5     soapXml.async=false 6     soapXml.setProperty "SelectionLanguage","XPath" 7          8     soapXml.loadXML(GetDepartmentCode("yiget")) 9                         10     Response.Write ""11     Response.Write "请选择一个服务组"12 13     for each tempNode in soapXml.SelectNodes("//Vdn")14         strVdnCode = tempNode.SelectSingleNode("VdnCode").text15         strVdnName = tempNode.SelectSingleNode("VdnName").text16         17         18         if instr(AllowVDNList, ","& strVdnCode &",") then19             if strRouteDest=strVdnCode then20                 strSelected=" selected"21             else22                 strSelected=""23             end if24             25             if left(strVdnName,4)<>"公共组" then26                 Response.Write "" & strVdnCode & " " & strVdnName & ""27             end if28         end if    29         'end if    30     next 31                          32     Response.Write ""33 End Sub