wap(东信平台)定购问题？

[chenhui328]

我的wap（asp开发）用的是东信的平台，用户定购的消息，平台通过xml包传递给我的定购地址（submit.asp）
传进来xml包中的值
【 uMDN = node.selectSingleNode("MDN").firstChild.nodeValue
uSPCode = node.selectSingleNode("SPCode").firstChild.nodeValue
uProductCode = node.selectSingleNode("ProductCode").firstChild.nodeValue
uTransactionID = node.selectSingleNode("TransactionID").firstChild.nodeValue

uFeeType = node.selectSingleNode("FeeType").firstChild.nodeValue 】都已经取得
但是我怎样把这些取得的值生成一个xml包返回给平台呢？请具体说明谢谢

[Eric1006]

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


PostToUrl="http://211.140.11.43/dsmp/dsmp.wsdl";
'**注意：下面为打包过程就是你想要的
XmlBody=XmlBody+"<?xml version=""1.0"" encoding=""UTF-8"" ?> "&vbcrlf
XmlBody=XmlBody+"<SOAP-ENV:Envelope xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/";" xmlns:SOAP-ENC=""http://schemas.xmlsoap.org/soap/encoding/";" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance";" xmlns:xsd=""http://www.w3.org/2001/XMLSchema";" SOAP-ENV:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/";" xmlns=""http://www.monternet.com/dsmp/schemas/";">"&vbcrlf
XmlBody=XmlBody+"<SOAP-ENV:Header>"&vbcrlf
XmlBody=XmlBody+"<TransactionID xmlns=""http://www.monternet.com/dsmp/schemas/";" xsi:type=""xsd:string"">00240301801050</TransactionID> "&vbcrlf
XmlBody=XmlBody+"</SOAP-ENV:Header>"&vbcrlf
XmlBody=XmlBody+"<SOAP-ENV:Body>"&vbcrlf
XmlBody=XmlBody+"<UnSubscribeServiceReq xmlns=""http://www.monternet.com/dsmp/schemas/";">"&vbcrlf
XmlBody=XmlBody+"<Version>"&request.Form("Version")&"</Version> "&vbcrlf
XmlBody=XmlBody+"<MsgType>"&request.Form("MsgType")&"</MsgType> "&vbcrlf
XmlBody=XmlBody+"<Send_Address>"&vbcrlf
XmlBody=XmlBody+"<DeviceType>"&request.Form("Send_Address_DeviceType")&"</DeviceType> "&vbcrlf
XmlBody=XmlBody+"<DeviceID>"&request.Form("Send_Address_DeviceID")&"</DeviceID> "&vbcrlf
XmlBody=XmlBody+"</Send_Address>"&vbcrlf
XmlBody=XmlBody+"<Dest_Address>"&vbcrlf
XmlBody=XmlBody+"<DeviceType>"&request.Form("Dest_Address_DeviceType")&"</DeviceType> "&vbcrlf
XmlBody=XmlBody+"<DeviceID>"&request.Form("Dest_Address_DeviceID")&"</DeviceID> "&vbcrlf
XmlBody=XmlBody+"</Dest_Address>"&vbcrlf
XmlBody=XmlBody+"<FeeUser_ID>"&vbcrlf
XmlBody=XmlBody+"<UserIDType>"&request.Form("FeeUser_IDUserIDType")&"</UserIDType> "&vbcrlf
XmlBody=XmlBody+"<MSISDN>"&request.Form("FeeUser_ID_MSISDN")&"</MSISDN> "&vbcrlf
XmlBody=XmlBody+"<PseudoCode /> "&vbcrlf
XmlBody=XmlBody+"</FeeUser_ID>"&vbcrlf
XmlBody=XmlBody+"<DestUser_ID>"&vbcrlf
XmlBody=XmlBody+"<UserIDType>"&request.Form("DestUser_ID_UserIDType")&"</UserIDType> "&vbcrlf
XmlBody=XmlBody+"<MSISDN>"&request.Form("DestUser_ID_MSISDN")&"</MSISDN> "&vbcrlf
XmlBody=XmlBody+"<PseudoCode /> "&vbcrlf
XmlBody=XmlBody+"</DestUser_ID>"&vbcrlf
XmlBody=XmlBody+"<Service_ID>"&vbcrlf
XmlBody=XmlBody+"<ServiceIDType>"&request.Form("ServiceIDType")&"</ServiceIDType> "&vbcrlf
XmlBody=XmlBody+"<SPID>"&request.Form("SPID")&"</SPID> "&vbcrlf
XmlBody=XmlBody+"<SPServiceID>"&request.Form("SPServiceID")&"</SPServiceID> "&vbcrlf
XmlBody=XmlBody+"<AccessNo /> "&vbcrlf
XmlBody=XmlBody+"<FeatureStr /> "&vbcrlf
XmlBody=XmlBody+"</Service_ID>"&vbcrlf
XmlBody=XmlBody+"</UnSubscribeServiceReq>"&vbcrlf
XmlBody=XmlBody+"</SOAP-ENV:Body>"&vbcrlf
XmlBody=XmlBody+"</SOAP-ENV:Envelope>"
'**调用发送函数函数
Returnvalue=PostXmlAndGetResponse(PostToUrl,XmlBody)
response.Write(Returnvalue)

[chenhui328]

关键是如何获取平台的PostToUrl