ASP调用带验证的XFiresoap Header

<%mD1中国设计秀
 'response.ContentType = "text/html" mD1中国设计秀
 'Response.Charset = "utf-8"mD1中国设计秀
 mD1中国设计秀
 url = "http://172.17.99.94:8080/rishis/services/QueryService"mD1中国设计秀
 soapUserName = "ris"mD1中国设计秀
 soapPassword = "tzyyage542"mD1中国设计秀
 mD1中国设计秀
 SoaPRequest="<?xml version="&CHR(34)&"1.0"&CHR(34)&" encoding="&CHR(34)&"gbk"&CHR(34)&"?>"& _mD1中国设计秀
 "<soap:Envelope xmlns:xsi="&CHR(34)&"http://www.w3.org/2001/XMLSchema-instance"&CHR(34)&" "& _mD1中国设计秀
 "xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _mD1中国设计秀
 "xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&">"& _mD1中国设计秀
 "<soap:Header>"& _mD1中国设计秀
 "<AuthenticationToken xmlns="&CHR(34)&"http://spring.com"&CHR(34)&">"&_mD1中国设计秀
 "<Username>"& soapUserName &_mD1中国设计秀
 "</Username>"&_mD1中国设计秀
 "<Password>" & soapPassword &_mD1中国设计秀
 "</Password>"&_mD1中国设计秀
 "</AuthenticationToken>"&_mD1中国设计秀
 "</soap:Header>"& _mD1中国设计秀
 "<soap:Body>"& _mD1中国设计秀
 "<GetYjSqd_All xmlns="&CHR(34)&"http://spring.com"&CHR(34)&">"& _mD1中国设计秀
 "<in0>1</in0>"& _mD1中国设计秀
 "<in1>2007-06-01 00:00:00</in1>"& _mD1中国设计秀
 "<in2>2007-06-06 00:00:00</in2>"& _mD1中国设计秀
 "</GetYjSqd_All>"& _mD1中国设计秀
 "</soap:Body>"& _mD1中国设计秀
 "</soap:Envelope>"mD1中国设计秀
 mD1中国设计秀
 mD1中国设计秀
 Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")mD1中国设计秀
 xmlhttp.Open "POST",url,falsemD1中国设计秀
 xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=gbk"mD1中国设计秀
 xmlhttp.setRequestHeader "HOST","172.17.99.94:8080"mD1中国设计秀
 xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)mD1中国设计秀
 xmlhttp.setRequestHeader "SOAPAction", "http://spring.com/GetYjSqd_All" mD1中国设计秀
 xmlhttp.Send(SoapRequest)mD1中国设计秀
 mD1中国设计秀
 If xmlhttp.Status = 200 ThenmD1中国设计秀
 mD1中国设计秀
 Set xmlDOC =server.CreateObject("MSXML.DOMDocument")mD1中国设计秀
 Response.write xmlhttp.getResponseHeader("Content-Type")mD1中国设计秀
 xmlDOC.load(xmlhttp.responseXML)mD1中国设计秀
 xmlDOC.save("C:1.xml")mD1中国设计秀
 mD1中国设计秀
 ElsemD1中国设计秀
 Response.Write xmlhttp.Status&"&nbsp;"mD1中国设计秀
 Response.Write xmlhttp.StatusTextmD1中国设计秀
 End ifmD1中国设计秀
 mD1中国设计秀
 Set xmlDOC = nothingmD1中国设计秀
 Set xmlhttp = NothingmD1中国设计秀
 mD1中国设计秀
%>mD1中国设计秀