作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

<%
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+"<?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_ID_UserIDType")&"</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+"<FeatureStr />"&vbcrlf
XmlBody=XmlBody+"</UnSubscribeServiceReq>"&vbcrlf
XmlBody=XmlBody+"</SOAP-ENV:Body>"&vbcrlf
XmlBody=XmlBody+"</SOAP-ENV:Envelope>"
ReturnValue=PostXmlAndGetResponse(PostToUrl,XmlBody)
response.Write(ReturnValue)
else
%>
<form name="form1" method="post" action="">
  <table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td width="219"> <div align="right">TransactionID </div></td>
      <td width="549"><input name="TransactionID" type="text" id="TransactionID" value="00240301801050"></td>
    </tr>
    <tr>
      <td><div align="right">Version</div></td>
      <td><input name="Version" type="text" id="Version" value="1.5.0"></td>
    </tr>
    <tr>
      <td><div align="right">MsgType</div></td>
      <td><input name="MsgType" type="text" id="MsgType" value="UnSubscribeServiceReq"></td>
    </tr>
    <tr>
      <td> <div align="right">Send_Address_DeviceType</div></td>
      <td><input name="Send_Address_DeviceType" type="text" id="Send_Address_DeviceType" value="400"></td>
    </tr>
    <tr>
      <td><div align="right">Send_Address_DeviceID</div></td>
      <td><input name="Send_Address_DeviceID" type="text" id="Send_Address_DeviceID" value="911131"></td>
    </tr>
    <tr>
      <td><div align="right">Dest_Address_DeviceType</div></td>
      <td><input name="Dest_Address_DeviceType" type="text" id="Dest_Address_DeviceType" value="0"></td>
    </tr>
    <tr>
      <td><div align="right">Dest_Address_DeviceID</div></td>
      <td><input name="Dest_Address_DeviceID" type="text" id="Dest_Address_DeviceID" value="0014"></td>
    </tr>
    <tr>
      <td> <div align="right">FeeUser_ID_UserIDType</div></td>
      <td><input name="FeeUser_ID_UserIDType" type="text" id="FeeUser_ID_UserIDType" value="1"></td>
    </tr>
    <tr>
      <td> <div align="right">FeeUser_ID_MSISDN</div></td>
      <td><input name="FeeUser_ID_MSISDN" type="text" id="FeeUser_ID_MSISDN" value="13588144652"></td>
    </tr>
    <tr>
      <td><div align="right">DestUser_ID_UserIDType</div></td>
      <td><input name="DestUser_ID_UserIDType" type="text" id="DestUser_ID_UserIDType" value="1"></td>
    </tr>
    <tr>
      <td><div align="right">DestUser_ID_MSISDN</div></td>
      <td><input name="DestUser_ID_MSISDN" type="text" id="DestUser_ID_MSISDN" value="13588144652"></td>
    </tr>
    <tr>
      <td><div align="right">ServiceIDType</div></td>
      <td><input name="ServiceIDType" type="text" id="ServiceIDType" value="1"></td>
    </tr>
    <tr>
      <td><div align="right">SPID</div></td>
      <td><input name="SPID" type="text" id="SPID" value="911131"></td>
    </tr>
    <tr>
      <td><div align="right">SPServiceID</div></td>
      <td><input name="SPServiceID" type="text" id="SPServiceID" value="YXS"></td>
    </tr>
    <tr>
      <td><div align="right"></div></td>
      <td><input type="submit" name="Submit" value="提交">
      <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </table>
</form>
<%
end if
%>

相关软件：