identityStr="<Identity_1_0>"& _
                "<Operator>tyn196</Operator>"& _
                "<Pwd>123456</Pwd>"& _
            "</Identity_1_0>"
requestStr="<YeeGo.QueryPolicyByPNR_1_0>"& _
                "<Pnr>HFJS34</Pnr>"& _
                "<Gds>1E</Gds>"& _
                "<Plats>ALL</Plats>"& _
            "</YeeGo.QueryPolicyByPNR_1_0>"
'identityStr="<Identity_1_0><Operator>tyn196</Operator><Pwd>123456</Pwd></Identity_1_0>"
'requestStr="<YeeGo.QueryPolicyByPNR_1_0><Pnr>HFJS34</Pnr><Gds>1E</Gds><Plats>ALL</Plats></YeeGo.QueryPolicyByPNR_1_0>"
FilterStr=""

SoapRequest="<?xml version="&CHR(34)&"1.0"&CHR(34)&" encoding="&CHR(34)&"utf-8"&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:Body>"& _
"<XmlSubmit xmlns="&CHR(34)&"http://openapi.yeego.net/"&CHR(34)&">"& _
    "<identity>"&identityStr&"</identity>"& _
    "<request>"&requestStr&"</request>"& _
    "<filter>"&FilterStr&"</filter>"& _
"</XmlSubmit>"& _
"</soap:Body>"& _
"</soap:Envelope>"

Set xmlhttp = server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
xmlhttp.setRequestHeader "HOST","localhost"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.setRequestHeader "SOAPAction", "http://openapi.yeego.net/XmlSubmit" '一定要与WEBSERVICE的命名空间相同，否则服务会拒绝

xmlhttp.Send(SoapRequest)
Response.Write(xmlhttp.Status)