webservice 调用出错,请高手指正,谢谢
url = "http://test.lovehua.com/getdata.asmx"
HOST="test.lovehua.com"
SOAPAction="http://tempuri.org/GetData/Get_PeiZaiID"
returnnode="pfdep"
strxml ="<?xml version='1.0' encoding='utf-8'?>"
strxml = strxml & "<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/'>"
strxml = strxml & " <soap:Body>"
strxml = strxml & " <Get_PeiZaiID xmlns='http://tempuri.org/GetData'>"
strxml = strxml & " <UID>test</UID>"
strxml = strxml & " <pwd>123456</pwd>"
strxml = strxml & " <SDATE>" & "2007-1-1" &"</SDATE>"
strxml = strxml & " <EDATE>2007-1-10</EDATE>"
strxml = strxml & " </Get_PeiZaiID>"
strxml = strxml & " </soap:Body>"
strxml = strxml & "</soap:Envelope>"
SoapRequest=strxml
Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
xmlhttp.setRequestHeader "HOST",host
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.setRequestHeader "SOAPAction", SOAPAction
'一定要与WEBSERVICE的命名空间相同,否则服务会拒绝
xmlhttp.Send(SoapRequest)
'这样就利用XMLHTTP成功发送了与SOAP示例所符的SOAP请求.
'检测一下是否成功:
response.write xmlhttp.Status
Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
response.Write(xmlDOC.xml)
If xmlhttp.Status = 200 Then
Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
response.Write(xmlDOC.xml) '显示收到的所有信息
'显示指定的节点内容
' Response.Write xmlDOC.documentElement.selectNodes("//" & returnnode
'显示节点为LoginByAccountResult的数据(有编码则要解码)
Set xmlDOC = nothing
Else
Response.Write xmlhttp.Status&" "
Response.Write xmlhttp.StatusText
End if