?? smartsms.asp
字號:
<!--#include file="conn.asp"-->
<HTML><title>發(fā)送短信息</title>
<BODY BGCOLOR="white">
<h1><font face="宋體" size="5">短消息發(fā)送</font></h1>
<HR>
<p>
<%
'要發(fā)送的手機號碼
SendNumber=request("SenderNumber")
'要發(fā)送的信息內容
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>手機號出現(xiàn)了非數(shù)字字符，請檢查！"
'是否出錯
if errmsg<>"" Then
'發(fā)生了錯誤,顯示錯誤信息
response.Write(errmsg)
response.Write("<a href='javascript:window.history.back();'>返回</a>")
'終止響應
response.End()
end if
'更新信息發(fā)送數(shù)據(jù)表
conn.execute("insert into senddata(mobile,message) values('" +sendnumber+ "','" +message+ "')")
'將信息發(fā)送到移動服務商指定的地址
'這里應該被更換為您自己的服務地址
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")
'提示用戶發(fā)送成功
response.write "您的消息已經成功發(fā)出,謝謝您的使用！"
%>
</p>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -