各种语言调用webservice的方法.docxVIP

如何在各种开发语言中调用WEB ServiceHTML网页中调用方法　　〈form target=_blank action=/service/S_COMM.asmx/GetCZID method=POST〉　　〈table cellspacing=0 cellpadding=4 frame=box bordercolor=#dcdcdc rules=none style=border-collapse: collapse;〉　　〈tr〉　　〈td class=frmHeader background=#dcdcdcstyle=border-right: 2px solid white;〉参数〈/td〉　　〈td class=frmHeaderbackground=#dcdcdc〉值〈/td〉　　〈/tr〉　　〈tr〉　　〈td class=frmTextstyle=color: #000000; font-weight: normal;〉sTypeNum:〈/td〉　　〈td〉〈input class=frmInput type=text size=50 name=sTypeNum〉〈/td〉　　〈/tr〉　　〈tr〉　　〈td〉〈/td〉　　〈tdalign=right〉〈input type=submit value=调用class=button〉〈/td〉　　〈/tr〉　　〈/table〉　　〈/form〉　　　　实例:如何调用服务产生18位关键值　　　　相关文档:使用vbscript脚本调用web服务　　　　ASP中调用方法(SOAP方式)　　实例:如何使用asp调用服务产生18位关键值asp源文件代码　　　　说明:总的来讲采用webservice的列表页说明来构造不同的SoapRequest,然后,从返回xmlDoc中取返回值xmlDOC.getElementsByTagName　　　　ASP中调用方法(HTTP方式)　　实例:如何使用asp调用服务产生18位关键值asp源文件代码　　　　VB6中调用方法　　Dim strxml As String　　Dim str As String　　str = Text2.Text　　定义soap消息　　strxml = xmlns:xsi=/2001/XMLSchema-instance　　xmlns:xsd=/2001/XMLSchema　　xmlns:soap=/soap/envelope/ str 　　　　定义一个http对象，一边向服务器发送post消息　　Dim h As MSXML2.ServerXMLHTTP40　　定义一个XML的文档对象，将手写的或者接受的XML内容转换成XML对象　　Dim x As MSXML2.DOMDocument40　　初始化XML对象　　Set x = New MSXML2.DOMDocument40　　将手写的SOAP字符串转换为XML对象　　x.loadXML strxml　　初始化http对象　　Set h = New MSXML2.ServerXMLHTTP40　　向指定的URL发送Post消息　　h.open POST, http://localhost/TestWebService/Service1.asmx, False　　h.setRequestHeader Content-Type, text/xml　　h.send (strxml)　　While h.readyState 4　　Wend　　显示返回的XML信息　　Text1.Text = h.responseText　　将返回的XML信息解析并且显示返回值　　Set x = New MSXML2.DOMDocument40　　x.loadXML Text1.Text　　Text1.Text = x.childNodes(1).Text　　　　VB.NET中调用方法　　1,首先添加web引用,地址为:/service/s_comm.asmx　　　　2,定义:dim sCom as New net.ydcom.www.S_COMM　　　　3,调用:dim strCZID as string = sComm.GetCZID(313)　　　　实例:如何使用VB.NET调用服务产生18位关键值VB.NET源文件代码　　　　PB.NET(PB9)中调用方法　　SoapConnection conn　　Test_wsservice1soap sCom　　long rVal　　//string str_endpoint　　//str_endpoint = /service/s_comm.asmx?WSDL　　conn = create SoapConnection　　r