📄 messanger.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/chkinput.asp"-->
<%
'=========================================================
' File: messanger.asp
' Version:5.0
' Date: 2002-9-11
' Script Written by satan
'=========================================================
' Copyright (C) 2001,2002 AspSky.Net. All rights reserved.
' Web: http://www.aspsky.net,http://www.dvbbs.net
' Email: info@aspsky.net,eway@aspsky.net
'=========================================================
%>
<html>
<head>
<title><%=Forum_info(0)%>--短消息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Forum_css.asp"-->
</head>
<body <%=Forum_body(11)%>" onkeydown="if(event.keyCode==13 && event.ctrlKey)messager.submit()">
<%
dim msg
dim abgcolor
dim username
if not founduser then
errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
founderr=true
end if
if Cint(GroupSetting(32))=0 then
Errmsg=Errmsg+"<br>"+"<li>您没有浏览发送短信的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
founderr=true
end if
stats="短信管理"
if founderr then
call dvbbs_error()
else
select case request("action")
case "new"
call sendmsg()
case "read"
call read()
case "outread"
call read()
case "delet"
call delete()
case "newmsg"
call newmsg()
case "send"
call savemsg()
case "fw"
call fw()
case "edit"
call edit()
case "savedit"
call savedit()
case "删除收件"
stats=request("action")
call nav()
call head_var(0,0,membername & "的控制面板","usermanager.asp")
call delinbox()
case "清空收件箱"
stats=request("action")
call nav()
call head_var(0,0,membername & "的控制面板","usermanager.asp")
call AllDelinbox()
case "删除草稿"
stats=request("action")
call nav()
call head_var(0,0,membername & "的控制面板","usermanager.asp")
call deloutbox()
case "清空草稿箱"
stats=request("action")
call nav()
call head_var(0,0,membername & "的控制面板","usermanager.asp")
call AllDeloutbox()
case "删除已发送的消息"
stats=request("action")
call nav()
call head_var(0,0,membername & "的控制面板","usermanager.asp")
call delissend()
case "清空已发送的消息"
stats=request("action")
call nav()
call head_var(0,0,membername & "的控制面板","usermanager.asp")
call AllDelissend()
case "删除垃圾"
stats=request("action")
call nav()
call head_var(0,0,membername & "的控制面板","usermanager.asp")
call delrecycle()
case "清空垃圾箱"
stats=request("action")
call nav()
call head_var(0,0,membername & "的控制面板","usermanager.asp")
call AllDelrecycle()
case else
errmsg=errmsg+"<br>"+"<li>请指定正确的参数。"
founderr=true
end select
if founderr then call dvbbs_error()
end if
call activeonline()
call footer()
'发送信息
sub sendmsg()
stats="发送短信"
dim sendtime,title,content
if request("id")<>"" and isNumeric(request("id")) then
set rs=server.createobject("adodb.recordset")
sql="select sendtime,title,content from message where incept='"&membername&"' and id="&request("id")
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
sendtime=rs("sendtime")
title="RE " & rs("title")
content=rs("content")
end if
rs.close
set rs=nothing
end if
%>
<form action="messanger.asp" method=post name=messager>
<input type=hidden name="action" value="send">
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr>
<th colspan=3>发送短消息（请输入完整信息）</td>
</tr>
<tr>
<td class=tablebody1 valign=middle><b>收件人：</b></td>
<td class=tablebody1 valign=middle>
<input type=text name="touser" value="<%=request("touser")%>" size=50>
<SELECT name=font onchange=DoTitle(this.options[this.selectedIndex].value)>
<OPTION selected value="">选择</OPTION>
<%
set rs=server.createobject("adodb.recordset")
sql="select F_friend from Friend where F_username='"&membername&"' order by F_addtime desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<OPTION value="<%=rs(0)%>"><%=rs(0)%></OPTION>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</SELECT>
</td>
</tr>
<tr>
<td class=tablebody1 valign=top width=15%><b>标题：</b></td>
<td class=tablebody1 valign=middle>
<input type=text name="title" size=70 maxlength=80 value="<%=title%>">
</td>
</tr>
<tr>
<td class=tablebody1 valign=top width=15%><b>内容：</b></td>
<td class=tablebody1 valign=middle>
<textarea cols=70 rows=6 name="message" title="Ctrl+Enter发送"><%if request("id")<>"" then%>
====== 在 <%=sendtime%> 您来信中写道： ======
<%=server.htmlencode(content)%>
=====================================
<%end if%></textarea>
</td>
</tr>
<tr>
<td class=tablebody1 colspan=2>
<b>说明</b>：<br>
① 您可以使用<b>Ctrl+Enter</b>键快捷发送短信<br>
② 可以用英文状态下的逗号将用户名隔开实现群发，最多<b><%=GroupSetting(33)%></b>个用户<br>
③ 标题最多<b>50</b>个字符，内容最多<b><%=GroupSetting(34)%></b>个字符<br>
</td>
</tr>
<tr>
<td class=tablebody2 valign=middle colspan=2 align=center>
<input type=Submit value="发送" name=Submit>
<input type=Submit value="保存" name=Submit>
<input type="reset" name="Clear" value="清除">
<%if request("reaction")="chatlog" then%>
<input type=button value="关闭聊天记录" name="chatlog" onclick="location.href='?action=new&id=<%=request("id")%>&touser=<%=request("touser")%>'">
<%else%>
<input type=button value="查看聊天记录" name="chatlog" onclick="location.href='?action=new&id=<%=request("id")%>&touser=<%=request("touser")%>&reaction=chatlog'">
<%end if%>
<input type="button" name="close" value="关闭" onclick="window.close()">
</td>
</tr>
<%if request("reaction")="chatlog" then%>
<tr>
<th colspan=3>我与<%=request("touser")%>的聊天记录</th>
</tr>
<%if membername=request("touser") then%>
<tr>
<td class=tablebody1 colspan=3>自己跟自己的聊天记录没什么好看的：）</td>
</tr>
<%else%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from message where ((sender='"&trim(membername)&"' and incept='"&replace(request("touser"),"'","")&"') or (sender='"&replace(request("touser"),"'","")&"' and incept='"&membername&"')) and delS=0 order by sendtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr>
<td class=tablebody1 colspan=3>还没有任何聊天记录！</td>
</tr>
<%
else
do while not rs.eof
%>
<tr>
<td class=tablebody2 height=25 colspan=3>
<%if rs("sender")=membername then%>
在<b><%=rs("sendtime")%></b>，您发送此消息给<b><%=htmlencode(rs("incept"))%></b>！
<%else%>
在<b><%=rs("sendtime")%></b>，<b><%=htmlencode(rs("sender"))%></b>给您发送的消息！
<%end if%></td>
</tr>
<tr>
<td class=tablebody1 valign=top align=left colspan=3>
<b>消息标题：<%=htmlencode(rs("title"))%></b><hr size=1>
<%=dvbcode(rs("content"),4,3)%>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<%end if%>
<%end if%>
</table>
</form>
<%
end sub
'读取信息
sub read()
stats="阅读短信"
if request("id")="" or not isNumeric(request("id")) then
Errmsg=Errmsg+"<br>"+"<li>请指定相关参数。"
Founderr=true
exit sub
end if
set rs=server.createobject("adodb.recordset")
if request("action")="read" then
sql="update message set flag=1 where ID="&cstr(request("id"))
conn.execute(sql)
end if
sql="select * from message where (incept='"&membername&"' or sender='"&membername&"') and id="&cstr(request("id"))
rs.open sql,conn,1,1
if rs.eof and rs.bof then
errmsg=errmsg+"<br>"+"<li>你是不是跑到别人的信箱啦、或者该信息已经收件人删除。"
founderr=true
end if
if not founderr then
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr>
<th colspan=3>欢迎使用短消息接收，<%=membername%></th>
</tr>
<tr>
<td class=tablebody1 valign=middle align=center colspan=3><a href="messanger.asp?action=delet&id=<%=rs("id")%>"><img src="<%=Forum_info(7)%>m_delete.gif" border=0 alt="删除消息"></a> <a href="messanger.asp?action=new"><img src="<%=Forum_info(7)%>m_write.gif" border=0 alt="发送消息"></a> <a href="messanger.asp?action=new&touser=<%=htmlencode(rs("sender"))%>&id=<%=request("id")%>"><img src="<%=Forum_info(7)%>m_reply.gif" border=0 alt="回复消息"></a> <a href="messanger.asp?action=fw&id=<%=request("id")%>"><img src=<%=Forum_info(7)%>m_fw.gif border=0 alt=转发消息></a></td>
</tr>
<tr>
<td class=tablebody2 height=25>
<%if request("action")="outread" then%>
在<b><%=rs("sendtime")%></b>，您发送此消息给<b><%=htmlencode(rs("incept"))%></b>！
<%else%>
在<b><%=rs("sendtime")%></b>，<b><%=htmlencode(rs("sender"))%></b>给您发送的消息！
<%end if%></td>
</tr>
<tr>
<td class=tablebody1 valign=top align=left>
<b>消息标题：<%=htmlencode(rs("title"))%></b><hr size=1>
<%=dvbcode(rs("content"),4,3)%>
</td>
</tr>
<%
rs.close
set rs=nothing
sql="select id,sender from message where incept='"&membername&"' and flag=0 and issend=1 and id>"&cstr(request("id")&" order by sendtime")
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
%>
<tr>
<td class=tablebody2 valign=top align=right><a href=messanger.asp?action=read&id=<%=rs(0)%>&sender=<%=rs(1)%>>[读取下一条信息]</a>
</td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table>
<%end if%>
<%
end sub
'转发信息
sub fw()
stats="发送短信"
dim title,content,sender
if request("id")<>"" and isNumeric(request("id")) then
set rs=server.createobject("adodb.recordset")
sql="select title,content,sender from message where (incept='"&membername&"' or sender='"&membername&"') and id="&request("id")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Errmsg=Errmsg+"<br>"+"<li>请选择相关参数。"
Founderr=true
exit sub
else
title=rs("title")
content=rs("content")
sender=rs("sender")
end if
rs.close
set rs=nothing
end if
%>
<form action="messanger.asp" method=post name=messager>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr>
<th colspan=2 height=25>
<input type=hidden name="action" value="send">
发送短消息--请完整输入下列信息</th>
</tr>
<tr>
<td class=tablebody1 valign=middle width=15%><b>收件人：</b></td>
<td class=tablebody1 valign=middle>
<input type=text name="touser" value="<%=request("touser")%>" size=50>
<SELECT name=font onchange=DoTitle(this.options[this.selectedIndex].value)>
<OPTION selected value="">选择</OPTION>
<%
set rs=server.createobject("adodb.recordset")
sql="select F_friend from Friend where F_username='"&membername&"' order by F_addtime desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<OPTION value="<%=rs(0)%>"><%=rs(0)%></OPTION>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</SELECT>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -