📄 savesms.asp
字号:
<!--#include file="../conn.asp"-->
<body bgcolor=<%=backcolor%>>
<%
if request("touser")<>"" and request("title")<>"" and request("message")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset") '已打开短信数据库-------------------------
sql="select * from shortinfo "
rs.open sql,conn,1,3
rs.AddNew
rs("发件人")=request("sendser")
rs("是否发送标记")="Y"
rs("发件人删除标记")="N"
rs("发件人回收站删除标记")="N"
rs("是否已读")="N"
rs("收件人删除标记")="N"
rs("收件人回收站删除标记")="N"
rs("收件人")=request("touser")
rs("消息标题")=request("title")
rs("消息内容")=request("message")
rs("日期")=date()
rs.Update
rs.Close
Response.Write "<br><br><center>发送成功!!!!! OK!</center>"
else
Response.Write "<br><br><center><font color=red><b>发送失败!!</b></font> 注意:收件人,标题,内容都不能为空,请正确填写!</center>"
end if
%>
<br><center><a href="shortinfo.asp?optionvar=短消息&shortinfo=收件箱">返回</a></center>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -