如何在各种开发语言中调用web service

HTML网页中调用 方法

〈form target="_blank" action=''''http://www.ydcom.net/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="#dcdcdc" style="border-right: 2px solid white;"〉参数〈/td〉
〈td class="frmHeader" background="#dcdcdc"〉值〈/td〉
〈/tr〉
〈tr〉
〈td class="frmText" style="color: #000000; font-weight: normal;"〉sTypeNum:〈/td〉
〈td〉〈input class="frmInput" type="text" size="50" name="sTypeNum"〉〈/td〉
〈/tr〉
〈tr〉
〈td〉〈/td〉
〈td align="right"〉 〈input type="submit" value="调用" class="button"〉〈/td〉
〈/tr〉
〈/table〉
〈/form〉

实例:如何调用服务产生18位关键值

相关文档: 使用vbscript脚本调用web服务

ASP中调用方法(SOAP方式)

<%
Dim url,xmlhttp,dom,node,xmlDOC
''''根据webservice的测试页不同的方法构造不同的soap request
SoapRequest = ""& _
""xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _
"xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&">"& _
""& _
""& _
"311"& _
""& _
""& _
""
url = "http://www.ydcom.net/service/S_COMM.asmx?methodname=GetCZID"
Set xmlDOC =server.CreateObject("MSXML.DOMDocument")
xmlDOC.loadXML(SoapRequest)
Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
xmlhttp.setRequestHeader "SOAPAction", "http://www.ydcom.net/service/SrvCOMM/S_COMM/GetCZID"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.Send(xmlDOC)

If xmlhttp.Status = 200 Then
xmlDOC.load(xmlhttp.responseXML)
Response.Write xmlhttp.Status&"
"
Response.Write xmlhttp.StatusText&"
执行结果为："
Response.Write xmlDOC.getElementsByTagName("GetCZIDResult")(0).text
else
Response.Write xmlhttp.Status&"
"
Response.Write xmlhttp.StatusText
end if
%>

实例:如何使用asp调用服务产生18位关键值 asp源文件代码

说明:总的来讲采用webservice的列表页说明来构造不同的SoapRequest,然后,
从返回xmlDoc中取返回值xmlDOC.getElementsByTagName

ASP中调用方法(HTTP方式)

<%
Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")
Set xmlDOC =Server.CreateObject("MSXML.DOMDocument")
strWebserviceURL = "http://www.ydcom.net/service/S_COMM.asmx/GetCZID"
''''设置参数及其值
strRequest = "sTypeNum=311"
objHTTP.Open "POST", strWebserviceURL, False
''''设置这个Content-Type很重要
objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.SetRequestHeader("Content-Length: 30")
objHTTP.Send(strRequest)
bOK = xmlDOC.load(objHTTP.responseXML)
''''看看状态值
if objHTTP.Status=200 then
xmlStr = xmlDOC.xml
Response.Write xmlStr
else
Response.Write objHTTP.Statu&"
"
Response.Write objHTTP.StatusText
end if
%>

实例:如何使用asp调用服务产生18位关键值 asp源文件代码

VB6中调用方法

Dim strxml As String
Dim str As String
str = Text2.Text
''''定义soap消息
strxml = "xmlns:xsi=''''http://www.w3.org/2001/XMLSchema-instance''''
xmlns:xsd=''''http://www.w3.org/2001/XMLSchema''''
xmlns:soap=''''http://schemas.xmlsoap.org/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信息

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!