VB调用WebService，SOA2.0接口

 1  SOA 2.0接口
 2 Function GetDepartmentCode(reqDeptCode)
 3     Dim soaRequestXML : soaRequestXML = ""
 4     Dim strCustomerSOAServer : strCustomerSOAServer = "www.td.com"    
14 
15     soaRequestXML ="<?xml version=""1.0"" encoding=""utf-8""?>"
16     soaRequestXML = soaRequestXML & "<GetDepartmentCodeRequest xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns=""http://www.td.com/platform/CTI/BaseWsCore/v1"">"
17     soaRequestXML = soaRequestXML & "<DepartmentCode xmlns="""">"&reqDeptCode&"</DepartmentCode>"
18     soaRequestXML = soaRequestXML & "<Regions xmlns="""">H</Regions>"
22     soaRequestXML = soaRequestXML & "</GetDepartmentCodeRequest>"
23 
24     dim url
25     url="http://"&strCustomerSOAServer&"/td-core/api/GetDepartmentCode.xml"
26     dim xmlHttp
27     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      Wend
33     
34 
35     GetDepartmentCode = xmlHttp.responseText
36 
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 "<select name='VDN_List' >"
11     Response.Write "<option value=''>请选择一个服务组</option>"
12 
13     for each tempNode in soapXml.SelectNodes("//Vdn")
14         strVdnCode = tempNode.SelectSingleNode("VdnCode").text
15         strVdnName = tempNode.SelectSingleNode("VdnName").text
16         
17         
18         if instr(AllowVDNList, ","& strVdnCode &",") then
19             if strRouteDest=strVdnCode then
20                 strSelected=" selected"
21             else
22                 strSelected=""
23             end if
24             
25             if left(strVdnName,4)<>"公共组" then
26                 Response.Write "<option value='" & strVdnCode & "'" & strSelected & ">" & strVdnCode & " " & strVdnName & "</option>"
27             end if
28         end if    
29         'end if    
30     next 
31                          
32     Response.Write "</select>"
33 End Sub