久久乐国产精品亚洲综合,在线观看亚洲电影,亚洲精品动漫人成3d在线

View Post

調用webservice（不用安裝SoapToolkit20.exe）

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 閱讀(1127) 評論(0) 編輯收藏所屬分類: 01 ASP/HTML

Samuel Learning

文章分類(203)

新聞分類(52)

.NET資源

Ajax

Java開源

Mobile

WEB資源

Workflow

其他連接

大牛人

開源軟件

敏捷

數據庫

未歸類

經典框架

網絡教程

著名站點

項目管理

最新評論

View Post

調用webservice（不用安裝SoapToolkit20.exe）