📄 sendmsg.asp
字号:
<!-- #include file="密码验证.asp" -->
<title>发送短信息 -NOIP2006</title>
<%
NOIPsendto1=(Request.Form("NOIPsendto"))
NOIPmsgtitle=Request.Form("NOIPmsgtitle")
NOIPmsg=Request.Form("NOIPmsg")
if NOIPmsgtitle<>"" and NOIPsendto1<>"" then
if name2id(NOIPsendto1) = -1 then Response.Write "查无此人" :Response.End
NOIPsendto=name2id(NOIPsendto1)
if not ( len(NOIPmsgtitle)>200 or len(NOIPmsg)>250 ) then
set rs = server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM 短信息 WHERE 来自="&NOIPUserID&" order by -id",conn ,3,3
if not rs.bof and not rs.eof then if rs("时间")+ 10 / 24 / 3600 > now then Response.Write "您发信息发得太快了，歇一下咽一点口水吧？" :Response.End
rs.AddNew
rs("信息标题")=NOIPmsgtitle
rs("发到")=CInt(NOIPsendto)
rs("来自")=NOIPUserID
rs("时间")=now
rs("信息内容")=NOIPmsg
rs.Update
rs.AddNew
rs("信息标题")=NOIPmsgtitle
rs("发到")=-CInt(NOIPsendto)
rs("来自")=NOIPUserID
rs("时间")=now
rs("信息内容")=NOIPmsg
rs("读否")=true
rs.Update
rs.Close
set rs=nothing
if Request.Form("MSGBOX")="ON" and NOIPUserTit="管理员" then application("NOIP_MSG_"&NOIPsendto) = application("NOIP_MSG_"&NOIPsendto) & vbcrlf & "--------------------" & vbcrlf& NOIPUserName & " 给您发信息：" & vbcrlf & NOIPmsg
set rs = server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM NOIP选手 WHERE id=" & NOIPsendto ,conn ,3,3
rs("短信")=rs("短信")+1
rs.update
rs.Close
set rs=nothing
%>
<script language=VBScript>
self.alert "信息成功发送到对方信箱中"
window.close()
</script>
<%
Response.End
else
%>
<script language=VBScript>
self.alert "标题要在200字以内，内容要在250字以内"
</script>
<%
end if
end if
if Request.QueryString("replay")<>"" then
NOIPsendto=(Request.QueryString("replay"))
NOIPmsgtitle="Re:" & Request.QueryString("NOIPmsgtitle")
end if
%>
<link href=image/bbs.css rel=stylesheet>
<script src=image/BBSxp.js></script>
<script src=image/ybb.js></script>
<%
function valigntop()
Response.Write "<table cellpadding=0 cellspacing=0 width=97% align=center><tr><td><img src=image/T_left.gif></td><td width=100% background=image/T_bg.gif></td><td><img src=image/T_right.gif></td></tr></table>"
end function
function valignbottom()
Response.Write ("<table cellpadding=0 cellspacing=0 width=97% align=center><tr><td><img src=image/B_left.gif></td><td width=100% background=image/B_bg.gif></td><td><img src=image/B_right.gif></td></tr></table>")
end function
%>
<META content="MSHTML 6.00.2900.2802" name=GENERATOR></HEAD>
<BODY>
<CENTER>
<%valigntop%>
<table cellspacing="1" cellpadding="0" width="97%" align="center" border="0" class="a2"><tr height="25" id=TableTitleLink>
<td width="12%" height="24" class="a1" align="center">
<span style="font-style: 12px"><b>发送短信</b></span></td>
</table>
<table class="a2" cellSpacing="1" cellPadding="0" width="97%" border="0" id="table1">
<td class="a3" align="middle" width="95%">
<FORM name="msg" action="SendMSG.asp?" method=POST>
<P>主题：<span style="font-size: 12px"><INPUT size="26" name="NOIPmsgtitle" value="<%=NOIPmsgtitle%>"></span>发给：
<%set rs1 = server.CreateObject("ADODB.Recordset")
rs1.open "SELECT * FROM NOIP选手" ,conn ,3,1%>
<span style="font-size: 12px">
<INPUT size="12" name="NOIPsendto" value="<%=NOIPsendto%>">
</span> <br>
内容：<span style="font-size: 12px"><textarea rows="9" name="NOIPmsg" cols="44"><%=NOIPmsg%></textarea></span><br>
<%if NOIPUserTit="管理员" then%>
<input type="checkbox" name="MSGBOX" value="ON">使用直接弹出的方式
<%end if%>
<span style="font-size: 12px">
<script language=VBScript>
function submitFORM()
self.document.forms("msg").submit()
end function
</script>
<input type="button" value="发送" name="B1" onclick=javascript:submitFORM() ></span>
<span style="font-size: 12px"> <input type="button" value="取消" name="B2" onclick="javascript:window.close()">
</span></td>
</table><%valignbottom%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -