ASP调用带验证的XFire(soap Header) -pc6资讯

您的位置：首页 → 技术开发 → ASP 学院 → ASP调用带验证的XFire(soap Header)

ASP调用带验证的XFire(soap Header) 时间：2009/11/10 11:55:00来源：本站整理作者：我要评论(0)

-
<%
'response.ContentType = "text/html"
'Response.Charset = "utf-8"

url = "http://172.17.99.94:8080/rishis/services/QueryService"
soapUserName = "ris"
soapPassword = "tzyyage542"

SoapRequest="<?xml version="&CHR(34)&"1.0"&CHR(34)&" encoding="&CHR(34)&"gbk"&CHR(34)&"?>"& _
"<soap:Envelope xmlns:xsi="&CHR(34)&"http://www.w3.org/2001/XMLSchema-instance"&CHR(34)&" "& _
"xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _
"xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&">"& _
"<soap:Header>"& _
"<AuthenticationToken xmlns="&CHR(34)&"http://spring.com"&CHR(34)&">"&_
"<Username>"& soapUserName &_
"</Username>"&_
"<Password>" & soapPassword &_
"</Password>"&_
"</AuthenticationToken>"&_
"</soap:Header>"& _
"<soap:Body>"& _
"<GetYjSqd_All xmlns="&CHR(34)&"http://spring.com"&CHR(34)&">"& _
"<in0>1</in0>"& _
"<in1>2007-06-01 00:00:00</in1>"& _
"<in2>2007-06-06 00:00:00</in2>"& _
"</GetYjSqd_All>"& _
"</soap:Body>"& _
"</soap:Envelope>"

Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=gbk"
xmlhttp.setRequestHeader "HOST","172.17.99.94:8080"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.setRequestHeader "SOAPAction", "http://spring.com/GetYjSqd_All"
xmlhttp.Send(SoapRequest)

If xmlhttp.Status = 200 Then

Set xmlDOC =server.CreateObject("MSXML.DOMDocument")
Response.write xmlhttp.getResponseHeader("Content-Type")
xmlDOC.load(xmlhttp.responseXML)
xmlDOC.save("C:\1.xml")

Else
Response.Write xmlhttp.Status&" "
Response.Write xmlhttp.StatusText
End if

Set xmlDOC = nothing
Set xmlhttp = Nothing

相关视频

没有数据

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。