savesms.asp
来自「仿雅虎论坛静态生成html版 后台管理:admin/admin.asp 用户」· ASP 代码 · 共 29 行
ASP
29 行
<!--#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 + =
减小字号Ctrl + -
显示快捷键?