📄 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>祇癳Θ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -