调用webservice（不用安装SoapToolkit20.exe）

View Post

1. VB代码：

Dim strxml As String

Dim strVendorId As String

Dim strEmployeeID As String

Dim strGUID As String

Dim strConfirmationNo As String

strVendorId = Text1.Text

strEmployeeID = Text2.Text

strGUID = Text3.Text

strConfirmationNo = Text4.Text

strxml = "<?xml version='1.0' encoding='utf-8'?><soap:Envelope 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/'><soap:Body><GetRideDetails xmlns='http://tempuri.org/VendorService/Service1'><VendorId>" & strVendorId & "</VendorId><EmployeeID>" & strEmployeeID & "</EmployeeID><GUID>" & strGUID & "</GUID><ConfirmationNo>" & strConfirmationNo & "</ConfirmationNo></GetRideDetails></soap:Body></soap:Envelope>"

Dim h As MSXML2.ServerXMLHTTP40

Dim x As MSXML2.DOMDocument40

Set h = New MSXML2.ServerXMLHTTP40

h.open "POST", "http://192.168.0.22/vendorservice/service1.asmx", False

h.setRequestHeader "HOST", "192.168.0.22"

h.setRequestHeader "Content-Type", "text/xml; charset=utf-8"

h.setRequestHeader "Content-Length", Len(strxml)

h.setRequestHeader "SOAPAction", "http://tempuri.org/VendorService/Service1/GetRideDetails"

h.send (strxml)

'While h.readyState <> 4

'Wend

Text5.Text = h.responseText

2. ASP代码

Dim t1,t2,t3,t4,t5

t1 = Request.Form("text1")

t2 = Request.Form("text2")

t3 = Request.Form("text3")

t4 = Request.Form("text4")

url = "http://192.168.0.22/vendorservice/service1.asmx"

SoapRequest = "<?xml version='1.0' encoding='utf-8'?><soap:Envelope 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/'><soap:Body><GetRideDetails xmlns='http://tempuri.org/VendorService/Service1'><VendorId>" & t1 & "</VendorId><EmployeeID>" & t2 & "</EmployeeID><GUID>" & t3 & "</GUID><ConfirmationNo>" & t4 & "</ConfirmationNo></GetRideDetails></soap:Body></soap:Envelope>"

Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")

xmlhttp.Open "POST",url,false

xmlhttp.setRequestHeader "HOST","192.168.0.22"

xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"

xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)

xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/VendorService/Service1/GetRideDetails"

xmlhttp.Send(SoapRequest)

If xmlhttp.Status = 200 Then

Set xmlDOC =server.CreateObject("MSXML.DOMDocument")

xmlDOC.load(xmlhttp.responseXML)

xmlStr = xmlDOC.xml

Set xmlDOC=nothing

xmlStr = Replace(xmlStr,"<","<")

xmlStr = Replace(xmlStr,">",">")

'Response.write xmlStr

t5= xmlStr

'Response.write("OK<br>")

'Response.write(xmlhttp.responseText)

'msgbox xmlDOC.getElementsByTagName("getStringResult")(0).text

else

Response.write("Failed")

end if

</div>

</p>

</form>

</textarea>

posted on 2005-07-13 01:48 MingIsMe 阅读(1137) 评论(0) 编辑收藏所属分类: 01 ASP/HTML

Samuel Learning

文章分类(203)

新闻分类(52)

.NET资源

Ajax

Java开源

Mobile

WEB资源

Workflow

其他连接

大牛人

开源软件

敏捷

数据库

未归类

经典框架

网络教程

著名站点

项目管理

最新评论

View Post

调用webservice（不用安装SoapToolkit20.exe）