移动MISC1.6平台反向取消接口（取消短信定制关系）

新客网 XKER.COM 2004-09-10 来源： 收藏本文

<%
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
%>

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件