内容载入中...
<%
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
%>
