【www.bbyears.com--刷单平台】
<%Function PostXmlAndGetResponse(PostToUrl,XmlBody)
set xhttp = createObject("Microsoft.XMLHTTP")
xhttp.open "POST", PostToUrl, False
xhttp.send XmlBody
PostXmlAndGetResponse= xhttp.responseText
set xhttp=nothing
End Function
if request.Form.count>0 then
PostToUrl="http://211.140.11.43/dsmp/dsmp.wsdl"
XmlBody=XmlBody+" "&vbcrlf
XmlBody=XmlBody+"
XmlBody=XmlBody+"
XmlBody=XmlBody+"00240301801050 "&vbcrlf
XmlBody=XmlBody+"
XmlBody=XmlBody+"
XmlBody=XmlBody+"
XmlBody=XmlBody+"
XmlBody=XmlBody+"
XmlBody=XmlBody+"
XmlBody=XmlBody+"