ASP中调用webservice
%Dim url,xmlhttp,dom,sel,xmlDOC'根据webservice的测试页不同的方法构造不同的soap requestSoapRequest = "?xml version="CHR(34)&a
<%
Dim url,xmlhttp,dom,sel,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)&">"& _
""& _
" " & _
" 张靓颖" & _
"全部" & _
"1" & _
"15" & _
"" & _
""& _
""
url = "http://so.hustonline.net/remote.asmx?methodname=getResult"
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://tempuri.org/getResult"
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&"
执行结果为："
For Each xNode In xmlDOC.getElementsByTagName("folder")
Response.Write xNode.text & "
"
Next
'Response.Write xmlDOC.getElementsByTagName("folder")(0).text
'Response.Write xmlDOC.documentElement.xml
else
Response.Write xmlhttp.Status&"
"
Response.Write xmlhttp.StatusText
end if
%>
本文作者:nid's blog－快乐的日子 来源:http://www.ljnid.cn/
CIO之家 www.ciozj.com 微信公众号:imciow
免责声明:本站转载此文章旨在分享信息，不代表对其内容的完全认同。文章来源已尽可能注明，若涉及版权问题，请及时与我们联系，我们将积极配合处理。同时，我们无法对文章内容的真实性、准确性及完整性进行完全保证，对于因文章内容而产生的任何后果，本账号不承担法律责任。转载仅出于传播目的，读者应自行对内容进行核实与判断。请谨慎参考文章信息，一切责任由读者自行承担。
延伸阅读