%>
<html>
<head>
<title>美联软通二次开发接口HTTP方式ASP调用演示</title>
</head>
<body>
<%
If request("m")="send" Then
'mobile是手机号,只发一个号码：13800000001。发多个号码：13800000001,13800000002,...N 。使用半角逗号分隔。
'content是发送的短信内容，特别注意：签名必须设置，网页验证码应用需要加添加【图形识别码】，以防被短信攻击。
sendSMS trim(replace(request("mobile"),",",",")),trim(request("content"))
Else
%>
<form name=form1 method=post action="?m=send" onSubmit="if(this.mobile.value==''){alert('输入接收手机号码');this.mobile.focus();return false}">
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="80" height="30" align="center" bgcolor="#FFFFFF">手机号码：</td>
<td bgcolor="#FFFFFF"><input name=mobile type=text value="13585519197"></td>
</tr>
<tr>
<td width="80" height="30" align="center" bgcolor="#FFFFFF">发送内容：</td>
<td bgcolor="#FFFFFF"> <textarea name="content" rows=6 style="width:98%">HTTP接口发送演示</textarea></td>
</tr>
<tr>
<td height="30" colspan="2" align="center" bgcolor="#FFFFFF"><input type=submit value="发送短信" id=submit1 name=submit1></td>
</tr>
</table>
</form>
<%
End If
%>
</body>
</html>
<%
Sub sendSMS(mobile,content)
'多个手机号之间用“,”分隔
dim username,password,status
dim xmlObj,url
username = "" '用户名
password_md5 = "" '密码
apikey = "" 'apikey秘钥（请登录 http://m.5c.com.cn 短信平台-->账号管理-->我的信息 中复制apikey）
encode = "UTF-8" '页面编码和短信内容编码为GBK。重要说明：如提交短信后收到乱码，请将GBK改为UTF-8测试。如本程序页面为编码格式为：ASCII/GB2312/GBK则该处为GBK。如本页面编码为UTF-8或需要支持繁体，阿拉伯文等Unicode，请将此处写为：UTF-8
url="http://m.5c.com.cn/api/send/?apikey="&apikey&"&username="&username&"&password_md5="&password_md5&"&mobile="&mobile&"&content="&server.URLEncode(content)&"&encode="&encode
Set xmlObj = server.CreateObject("Microsoft.XMLHTTP")
xmlObj.Open "POST",url,false
xmlObj.send()
status = xmlObj.responseText
Set xmlObj = nothing
Response.Write status
End sub
%>
