📄 messanger.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file=function.asp-->
<!--#include file="char.asp"-->
<html>
<head>
<title><%=Request.Cookies("bookbaby")("username")%>的信箱</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="style.asp"-->
</head>
<body topmargin=5 leftmargin=5 onkeydown="if(event.keyCode==13 && event.ctrlKey)form1.submit()">
<%
stat="处理短信息"
if Request.Cookies("bookbaby")("username")<>"" then
set rs1=conn.execute("select username from online where username='"&Request.Cookies("bookbaby")("username")&"'")
if not rs1.eof then
conn.execute("update online set stat='"&stat&"',lasttime='"&now()&"' where username='"&Request.Cookies("bookbaby")("username")&"'")
else
conn.execute "insert into online(username,sex,stat,lasttime) values ('"&Request.Cookies("bookbaby")("username")&"',"&Request.Cookies("bookbaby")("usersex")&",'"&stat&"','"&now()&"')"
end if
set rs1=nothing
else
conn.execute("delete * from online where datediff('n',lasttime,now())>20")
end if
dim errmsg
dim founderr
founderr=false
dim msg
set rs=server.createobject("adodb.recordset")
membername=Request.Cookies("bookbaby")("username")
if Request.Cookies("bookbaby")("username")="" or isnull(Request.Cookies("bookbaby")("username")) or Request.Cookies("bookbaby")("userpwd")="" or isnull(Request.Cookies("bookbaby")("userpwd")) then
errmsg="<li>你尚未登陆！</li>"
founderr=true
end if
if founderr=true then
call error()
else
if request("action")="inbox" then
call inbox()
elseif request("action")="outbox" then
call outbox()
elseif request("action")="new" then
call sendmsg()
elseif request("action")="read" then
call read()
elseif request("action")="outread" then
call outread()
elseif request("action")="delete" then
call delete()
elseif request("action")="send" then
call savemsg()
elseif request("action")="newmsg" then
call newmsg()
else
call error()
end if
end if
'收件箱
sub inbox()
%>
<table cellpadding=0 cellspacing=0 border=0 width=100% bgcolor=<%=tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor="<%=tabletitlecolor%>">
<td align=center colspan=3><font face="宋体" color=#333333><b><font color="#0000AA">欢迎使用您的收件箱，</font><font color="#FFFFFF"><%=membername%></font></b></font></td>
</tr>
<tr bgcolor="<%=tablebodycolor%>">
<td valign=middle align=center colspan=3><a href="messanger.asp?action=inbox"><img src="images/inboxpm.gif" border=0 alt="收件箱"></a>
<a href="messanger.asp?action=outbox"><img src="images/outboxpm.gif" border=0 alt="发件箱"></a>
<a href="messanger.asp?action=new"><img src="images/newpm.gif" border=0 alt="发送消息"></a></td>
</tr>
<tr bgcolor="<%=tablebodycolor%>">
<td align=center valign=middle><font face="宋体" color=#333333><b>来自</b></font></td>
<td align=center valign=middle><font face="宋体" color=#333333><b>主题</b></font></td>
<td align=center valign=middle><font face="宋体" color=#333333><b>已读</b></font></td>
</tr>
<%
sql="select * from message where (delR=0 or delR is null) and incept='"&trim(membername)&"' order by flag,sendtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr bgcolor="<%=tablebodyacolor%>">
<td align=center valign=middle colspan=3><font face="宋体" color=#333333>您还没有新留言噢：）</font></td>
</tr>
<%else%>
<%do while not rs.eof%>
<tr bgcolor="<%=tablebodyacolor%>">
<td align=center valign=middle><font face="宋体" color=#333333><%=rs("sender")%></font></td>
<td align=left valign=middle><font face="宋体" color=#333333><a href="messanger.asp?action=read&id=<%=rs("id")%>"><%=rs("title")%></a></font></td>
<td align=center valign=middle bgcolor="<%=tablebodyacolor%>"><font face="宋体" color="#333333">
<%if rs("flag")=0 then%>
<font color=red><b>否</b></font>
<%else%>
是
<%end if%>
</font></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
<tr bgcolor="<%=tablebodycolor%>">
<td align=center valign=middle colspan=3><font color=#f20000>短消息 --> 让彼此的心靠的更近</font></td>
</tr>
</table></td></tr></table>
<%
end sub
'发件箱
sub outbox()
%>
<table cellpadding=0 cellspacing=0 border=0 width=100% bgcolor=<%=tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr>
<td align=center colspan=3 bgcolor="<%=tabletitlecolor%>"><font face="宋体" color=#333333><b><font color="#0000AA">欢迎使用短消息发送，</font><font color="#FFFFFF"><%=membername%></font></b></font></td>
</tr>
<tr bgcolor="<%=tablebodycolor%>">
<td valign=middle align=center colspan=4><a href="messanger.asp?action=inbox"><img src="images/inboxpm.gif" border=0 alt="收件箱"></a>
<a href="messanger.asp?action=outbox"><img src="images/outboxpm.gif" border=0 alt="发件箱"></a>
<a href="messanger.asp?action=new"><img src="images/newpm.gif" border=0 alt="发送消息"></a></td>
</tr>
<tr bgcolor="<%=tablebodycolor%>">
<td align=center valign=middle width=20%><font face="宋体" color=#333333><b>收件人</b></font></td>
<td align=center valign=middle><font face="宋体" color=#333333><b>标题</b></font></td>
<td align=center valign=middle><font face="宋体" color=#333333><b>已读</b></font></td>
</tr>
<%
sql="select * from message where (delS=0 or delS is null) and sender='"&trim(membername)&"' order by sendtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr bgcolor="<%=tablebodyacolor%>">
<td align=center valign=middle colspan=3><font face="宋体" color=#333333>您还没有给别人发过信息呢~</font></td>
</tr>
<%else%>
<%do while not rs.eof%>
<tr bgcolor="<%=tablebodyacolor%>">
<td align=center valign=middle width=20%><font face="宋体" color=#333333><%=rs("incept")%></font></td>
<td align=left valign=middle><font face="宋体" color=#333333><a href="messanger.asp?action=outread&id=<%=rs("id")%>"><%=rs("title")%></a></font></td>
<td align=center valign=middle><font face="宋体" color="#333333">
<%if rs("flag")=0 then%>
<font color=red><b>否</b></font>
<%else%>
是
<%end if%>
</font></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
<tr bgcolor="<%=tablebodycolor%>">
<td align=center valign=middle colspan=3><font color=#f20000>短消息 --> 让彼此的心靠的更近</font></td>
</tr>
</table>
</td></tr></table>
<%
end sub
'发送信息
sub sendmsg()
%>
<table cellpadding=0 cellspacing=0 border=0 width=100% bgcolor=<%=tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<form name=form1 action="messanger.asp" method=post>
<tr>
<td align=center colspan=3 bgcolor="<%=tabletitlecolor%>"><b><font color="#0000AA">发送短消息</font></b></td>
</tr>
<tr bgcolor="<%=tablebodycolor%>">
<td valign=middle align=center colspan=3><a href="messanger.asp?action=inbox"><img src="images/inboxpm.gif" border=0 alt="收件箱"></a>
<a href="messanger.asp?action=outbox"><img src="images/outboxpm.gif" border=0 alt="发件箱"></a>
<a href="messanger.asp?action=new"><img src="images/newpm.gif" border=0 alt="发送消息"></a></td>
</tr>
<tr bgcolor="<%=tablebodycolor%>">
<td colspan=2 align=center>
<input type=hidden name="action" value="send">
<font face="宋体" color=#333333><b>请完整输入下列信息</b></font></td>
</tr>
<tr bgcolor="<%=tablebodyacolor%>">
<td valign=middle align=right><font face="宋体" color=#333333><b>收件人：</b></font></td>
<td valign=middle> <input type=text name="touser" value="<%=request("name")%>" size=20> </td>
</tr>
<tr bgcolor="<%=tablebodyacolor%>">
<td valign=top width=30% align=right><font face="宋体" color=#333333><b>标题：</b></font></td>
<td valign=middle>
<input type=text name="title" size=36 maxlength=80></td>
</tr>
<tr bgcolor="<%=tablebodyacolor%>">
<td valign=top width=30% align=right><font face="宋体" color=#333333><b>内容：</b></font></td>
<td valign=middle>
<textarea cols=35 rows=6 name="message"></textarea></td>
</tr>
<tr bgcolor="<%=tablebodycolor%>">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -