📄 messanger.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<script language="JavaScript">
var currentpos,timer;
function initialize()
{timer=setInterval("scrollwindow()",1);}
function sc(){clearInterval(timer); }
function scrollwindow()
{currentpos=document.body.scrollTop; window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop) sc();}
document.onmousedown=sc
document.ondblclick=initialize
function New(para_URL)
{var URL =new String(para_URL)
window.open(URL,'','resizable,scrollbars')}
</script>
<html>
<head>
<title><%=ForumName%>--短消息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="forum.css" rel=stylesheet>
</head>
<body bgcolor="<%=Tablebodycolor%>" alink="#333333" vlink="#333333" link="#333333" topmargin=10 leftmargin=10>
<%
dim errmsg
dim founderr
founderr=false
dim msg
set rs=server.createobject("adodb.recordset")
if Session.Contents("UserName")="" then
errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
founderr=true
else
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" or request("action")="outread" then
call read()
elseif request("action")="delete" then
call delete()
elseif request("action")="deleteall" then
call deleteall()
elseif request("action")="send" then
call savemsg()
elseif request("action")="newmsg" then
call newmsg()
else
call error()
end if
end if
'收件箱
sub inbox()
%>
<a name="top1"></a>
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=<%=aTablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr>
<td bgcolor=<%=aTabletitlecolor%> align=center>双击自动滚屏</td>
<td bgcolor=<%=aTabletitlecolor%> align=center><font face="宋体" color=#333333><b>欢迎使用您的收件箱，<%=session.contents("username")%></b></font></td>
<td bgcolor=<%=aTabletitlecolor%> align=center><a href="javascript:window.close()">关闭窗口</a></td>
</tr>
<tr>
<td bgcolor=<%=Tablebodycolor%> valign=middle align=center colspan=3><a href="messanger.asp?action=inbox"><img src="<%=picurl%>inboxpm.gif" border=0 alt="收件箱"></a>
<a href="messanger.asp?action=outbox"><img src="<%=picurl%>outboxpm.gif" border=0 alt="发件箱"></a>
<a href="messanger.asp?action=new"><img src="<%=picurl%>newpm.gif" border=0 alt="发送消息"></a></td>
</tr>
<tr>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle><font face="宋体" color=#333333><b>来自</b></td>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle><font face="宋体" color=#333333><b>主题</b></td>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle><font face="宋体" color=#333333><b>已读</b></td>
</tr>
<%
sql="select * from message where incept='"&trim(Session.Contents("UserName"))&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle colspan=3><font face="宋体" color=#333333>您还没有新留言噢：）</td>
</tr>
<%else%>
<%do while not rs.eof%>
<tr>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle><font face="宋体" color=#333333><%=htmlencode(rs("sender"))%></td>
<td bgcolor=<%=Tablebodycolor%> align=left valign=middle><font face="宋体" color=#333333><a href="messanger.asp?action=read&id=<%=rs("id")%>"><%=htmlencode(rs("title"))%></a></td>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle><font face="宋体" color="#333333">
<%if rs("flag")=0 then%>
否
<%else%>
是
<%end if%>
</font></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
<tr>
<td bgcolor=<%=aTabletitlecolor%> align=center valign=middle colspan=2><font face="宋体" color=#333333><a href="messanger.asp?action=deleteall">删除所有的短消息</a></td>
<td bgcolor=<%=aTabletitlecolor%> align=center valign=middle><a href="#top1">返回顶部</a></td>
</tr>
</table>
</td></tr></table>
<%
end sub
'发件箱
sub outbox()
%>
<a name="top"></a>
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=<%=aTablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr>
<td bgcolor=<%=aTabletitlecolor%> align=center width="34%">双击自动滚屏</td>
<td bgcolor=<%=aTabletitlecolor%> align=center width="48%"><font face="宋体" color=#333333><b>欢迎使用短消息发送，<%=session.contents("username")%></b></font></td>
<td bgcolor=<%=aTabletitlecolor%> align=center width="18%"><a href="javascript:window.close()">关闭窗口</a></td>
</tr>
<tr>
<td bgcolor=<%=Tablebodycolor%> valign=middle align=center colspan=4><a href="messanger.asp?action=inbox"><img src="<%=picurl%>inboxpm.gif" border=0 alt="收件箱"></a>
<a href="messanger.asp?action=outbox"><img src="<%=picurl%>outboxpm.gif" border=0 alt="发件箱"></a>
<a href="messanger.asp?action=new"><img src="<%=picurl%>newpm.gif" border=0 alt="发送消息"></a></td>
</tr>
<tr>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle width="34%"><font face="宋体" color=#333333><b>收件人</b></td>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle colspan="2"><font face="宋体" color=#333333><b>标题</b></td>
</tr>
<%
sql="select * from message where sender='"&trim(Session.Contents("UserName"))&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle colspan=3><font face="宋体" color=#333333>您还没有给别人发过信息呢~~</td>
</tr>
<%else%>
<%do while not rs.eof%>
<tr>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle width="34%"><font face="宋体" color=#333333><%=htmlencode(rs("incept"))%></td>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle colspan="2"><font face="宋体" color=#333333><a href="messanger.asp?action=outread&id=<%=rs("id")%>"><%=htmlencode(rs("title"))%></a></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
<tr>
<td bgcolor=<%=aTabletitlecolor%> align=center valign=middle colspan=2><font face="宋体" color=#333333><a href="messanger.asp?action=deleteall">删除所有的短消息</a></td>
<td bgcolor=<%=aTabletitlecolor%> align=center valign=middle width="18%"><a href="#top">返回顶部</a></td>
</tr>
</table>
</td></tr></table>
<%
end sub
'发送信息
sub sendmsg()
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=<%=aTablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr>
<td bgcolor=<%=aTabletitlecolor%> align=center colspan=3><font face="宋体" color=#333333><b>发送短消息</b></font></td>
</tr>
<tr>
<td bgcolor=<%=Tablebodycolor%> valign=middle align=center colspan=3><a href="messanger.asp?action=inbox"><img src="<%=picurl%>inboxpm.gif" border=0 alt="收件箱"></a>
<a href="messanger.asp?action=outbox"><img src="<%=picurl%>outboxpm.gif" border=0 alt="发件箱"></a>
<a href="messanger.asp?action=new"><img src="<%=picurl%>newpm.gif" border=0 alt="发送消息"></a></td>
</tr>
<tr>
<td bgcolor=<%=aTabletitlecolor%> colspan=2 align=center>
<form action="messanger.asp" method=post name=FORM>
<input type=hidden name="action" value="send">
<font face="宋体" color=#333333><b>请完整输入下列信息</b></font>
</form>
</td>
</tr>
<tr>
<td bgcolor=<%=Tablebodycolor%> valign=middle><font face="宋体" color=#333333><b>收件人：</b></font></td>
<td bgcolor=<%=Tablebodycolor%> valign=middle>
<input type=text name="touser" value="<%=request("touser")%>" size=20>
</td>
</tr>
<tr>
<td bgcolor=<%=Tablebodycolor%> valign=top width=30%><font face="宋体" color=#333333><b>标题：</b></font></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -