📄 smartsms.asp
字号:
<!--#include file="conn.asp"-->
<HTML><title>发送短信息</title>
<BODY BGCOLOR="white">
<h1><font face="宋体" size="5">短消息发送</font></h1>
<HR>
<p>
<%
'要发送的手机号码
SendNumber=request("SenderNumber")
'要发送的信息内容
Message=request("message")
'手机号码和信息内容都不能为空
if Sendnumber="" or message="" then errmsg="<li>各项均不能为空！"
'短消息的长度不能超过140个字符
if len(message)>140 then errmsg=errmsg+"<li>短信内容超长，请查检！"
'检查手机号码的合法性
if left(sendnumber,2)<>"13" then errmsg=errmsg+"<li>手机号必须以13开头，请检查！"
if len(sendnumber)<11 then errmsg=errmsg+"<li>手机号不够11位，请检查！"
if not isnumeric(sendnumber) then errmsg=errmsg+"<li>手机号出现了非数字字符，请检查！"
'是否出错
if errmsg<>"" Then
'发生了错误,显示错误信息
response.Write(errmsg)
response.Write("<a href='javascript:window.history.back();'>返回</a>")
'终止响应
response.End()
end if
'更新信息发送数据表
conn.execute("insert into senddata(mobile,message) values('" +sendnumber+ "','" +message+ "')")
'将信息发送到移动服务商指定的地址
'这里应该被更换为您自己的服务地址
response.redirect("http://210.51.0.191/mt/SendServlet?dstmobile="+cstr(sendnumber)+"&feemobile="+cstr(sendnumber)+"&msg="+server.URLEncode(trim(message))+"&svcode=Zrr034&spnum=33343457&cp_id=wise6733333000&cp_pass=wtiaw6&ip=211.1.607.105")
'提示用户发送成功
response.write "您的消息已经成功发出,谢谢您的使用！"
%>
</p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -