|
HTML网页中调用方法 〈form target=_blank action= method=POST〉 〈table cellspacing= cellpadding= frame=box bordercolor=#dcdcdc rules=none 〉 〈tr〉 〈td class=frmHeader background=#dcdcdc 〉参数〈/td〉 〈td class=frmHeader background=#dcdcdc〉值〈/td〉 〈/tr〉 〈tr〉 〈td class=frmText 〉sTypeNum:〈/td〉 〈td〉〈input class=frmInput type=text size= name=sTypeNum〉〈/td〉 〈/tr〉 〈tr〉 〈td〉〈/td〉 〈td align=right〉 〈input type=submit value=调用 class=button〉〈/td〉 〈/tr〉 〈/table〉 〈/form〉 实例:如何调用服务产生位关键值 相关文档: 使用vbscript脚本调用web服务 ASP中调用方法(SOAP方式) 实例:如何使用asp调用服务产生位关键值 asp源文件代码 说明:总的来讲采用webservice的列表页说明来构造不同的SoapRequest然后从返回xmlDoc中取返回值xmlDOCgetElementsByTagName ASP中调用方法(HTTP方式) 实例:如何使用asp调用服务产生位关键值 asp源文件代码 VB中调用方法 Dim strxml As String Dim str As String str = TextText 定义soap消息 strxml = xmlns:xsi= xmlns:xsd= xmlns:soap=> & str &
定义一个http对象一边向服务器发送post消息 Dim h As MSXMLServerXMLHTTP 定义一个XML的文档对象将手写的或者接受的XML内容转换成XML对象 Dim x As MSXMLDOMDocument 初始化XML对象 Set x = New MSXMLDOMDocument 将手写的SOAP字符串转换为XML对象 xloadXML strxml 初始化http对象 Set h = New MSXMLServerXMLHTTP 向指定的URL发送Post消息 hopen POST False hsetRequestHeader ContentType text/xml hsend (strxml) While hreadyState <> Wend 显示返回的XML信息 TextText = hresponseText 将返回的XML信息解析并且显示返回值 Set x = New MSXMLDOMDocument xloadXML TextText TextText = xchildNodes()Text VBNET中调用方法 首先添加web引用地址为: 定义:dim sCom as New netydcomwwwS_COMM 调用:dim strCZID as string = sCommGetCZID() 实例:如何使用VBNET调用服务产生位关键值 VBNET源文件代码 PBNET(PB)中调用方法 SoapConnection conn Test_wsservicesoap sCom long rVal //string str_endpoint //str_endpoint = conn = create SoapConnection rVal = ConnCreateInstance(sCom test_wsservicesoap) sle_text = sComGetCZID()) destroy conn |
