📄 messager.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<!--#include file="style.asp"-->
<html>
<head>
<title><%=WebTitle%>--短消息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#928699" topmargin=10 leftmargin=10 onkeydown="if(event.keyCode==13 && event.ctrlKey)messager.submit()">
<%
dim msg
if Session("DJ58User")="" or isnull(Session("DJ58User")) then
conn.close
set conn=nothing
response.write "<script language=javascript>alert('短消息功能只有会员才可以使用，请先登陆。如果您还不是本站会员，请免费注册！');history.back(1);</script>"
Response.End
end if
set rs=server.createobject("adodb.recordset")
if founderr=true then
response.write "<script language=javascript>alert('操作错误或服务器出错，请与程序作者联系，Email:heirui@163.com！');history.back(1);</script>"
else
action=request("action")
select case action
case "inbox"
call inbox()
case "outbox"
call outbox()
case "new"
call sendmsg()
case "read"
call read()
case "outread"
call read()
case "delete"
call delete()
case "deleteall"
call deleteall()
case "send"
call savemsg()
case "newmsg"
call newmsg()
case else
conn.close
set conn=nothing
response.write "<script language=javascript>alert('操作错误或服务器出错，请与程序作者联系，Email:heirui@163.com！');history.back(1);</script>"
Response.End
end select
end if
'收件箱
sub inbox()
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=0 border=1 width=100% style="border-collapse: collapse" bordercolor="#0D5777">
<tr>
<td align=center colspan=3 class=TFColor bgcolor="#0D5777"><b>欢迎使用您的收件箱，<%=Session("DJ58User")%></b></td>
</tr>
<tr>
<td align=center colspan=3><a href="messager.asp?action=inbox"><img src="images/inboxpm.gif" border=0 alt="收件箱"></a> <a href="messager.asp?action=outbox"><img src="images/outboxpm.gif" border=0 alt="发件箱"></a> <a href="messager.asp?action=new"><img src="images/newpm.gif" border=0 alt="发送消息"></a><a onfocus="this.blur()" href="javascript:this.location.reload()"><img height="12" src="images/refresh.gif" border="0" alt="如果看不到信就刷新一下!"></a></td>
</tr>
<tr>
<td align=center><b>来自</b></td>
<td align=center><b>主题</b></td>
<td align=center><b>已读</b></td>
</tr>
<%
sql="select * from message where incept='"&Session("DJ58User")&"' order by flag"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr>
<td align=center valign=middle colspan=3>您还没有新留言噢：）</td>
</tr>
<% else
do while not rs.eof%>
<tr>
<td align=center valign=middle><%=rs("sender")%> </td>
<td align=left valign=middle><a href="messager.asp?action=read&id=<%=rs("id")%>"><%=rs("title")%></a> </td>
<td align=center valign=middle><%if rs("flag")=0 then%><font color=red><b>否</b></font><%else%>是<%end if%></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
<tr>
<td align=center colspan=3 bgcolor="#0D5777"><a href="messager.asp?action=deleteall">删除所有的短消息</a></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
'发件箱
sub outbox()
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=0 border=1 width=100% style="border-collapse: collapse" bordercolor="#0D5777">
<tr>
<td align=center colspan=2 class=TFColor bgcolor="#0D5777"><b>欢迎使用短消息发送，<%=Session("DJ58User")%></b></td>
</tr>
<tr>
<td valign=middle align=center colspan=3><a href="messager.asp?action=inbox"><img src="images/inboxpm.gif" border=0 alt="收件箱"></a> <a href="messager.asp?action=outbox"><img src="images/outboxpm.gif" border=0 alt="发件箱"></a> <a href="messager.asp?action=new"><img src="images/newpm.gif" border=0 alt="发送消息"></a><a onfocus="this.blur()" href="javascript:this.location.reload()"><img height="12" src="images/refresh.gif" border="0" alt="如果看不到信就刷新一下!"></a></td>
</tr>
<tr>
<td align=center valign=middle width=20%><b>收件人</b></td>
<td align=center valign=middle><b>标题</b></td>
</tr>
<%
sql="select * from message where sender='"&Session("DJ58User")&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr>
<td align=center valign=middle colspan=2>您还没有给别人发过信息呢~~</td>
</tr>
<% else
do while not rs.eof%>
<tr>
<td align=center valign=middle width=20%><%=rs("incept")%> </td>
<td align=left valign=middle><a href="messager.asp?action=outread&id=<%=rs("id")%>"><%=rs("title")%></a> </td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
<tr>
<td align=center colspan=2 bgcolor="#0D5777"><font face="宋体" color=#333333><a href="messager.asp?action=deleteall">删除所有的短消息</a></font></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
'发送信息
sub sendmsg()
%>
<form action="messager.asp" method=post name=messager>
<table cellpadding=0 cellspacing=0 border=0 width=95% align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=0 border=1 width=100% style="border-collapse: collapse" bordercolor="#0D5777">
<tr>
<td align=center colspan=3 class=TFColor bgcolor="#0D5777"><b>发送短消息</b></td>
</tr>
<tr>
<td valign=middle align=center colspan=3><a href="messager.asp?action=inbox"><img src="images/inboxpm.gif" border=0 alt="收件箱"></a>
<a href="messager.asp?action=outbox"><img src="images/outboxpm.gif" border=0 alt="发件箱"></a>
<a href="messager.asp?action=new"><img src="images/newpm.gif" border=0 alt="发送消息"></a><a onfocus="this.blur()" href="javascript:this.location.reload()"><img height="12" src="images/refresh.gif" border="0" alt="如果看不到信就刷新一下!"></a></td>
</tr>
<tr>
<td colspan=2 align=center><input type=hidden name="action" value="send"><b>请完整输入下列信息</b></td>
</tr>
<tr>
<td valign=middle><b>收件人：</b></td>
<td valign=middle><input type=text name="touser" value="<%=request("touser")%>" size=20>
</td>
</tr>
<tr>
<td valign=top width=30%><b>标题：</b></td>
<td valign=middle><input type=text name="title" size=36 maxlength=80></td>
</tr>
<tr>
<td valign=top width=30%><b>内容：</b><br>Ctrl+Enter发送</td>
<td valign=middle><textarea cols=35 rows=6 name="message" title="Ctrl+Enter发送"></textarea></td>
</tr>
<tr>
<td colspan=2 align=center bgcolor="#0D5777">
<input type=Submit value="发 送" name=Submit"> <input type="reset" name="Clear" value="清 除">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<%
end sub
'读取信息
sub read()
%>
<%
sql="update message set flag=1 where ID="&cstr(request("id"))
rs.open sql,conn,1,3
sql="select * from message where incept='"&Session("DJ58User")&"' and id="&cstr(request("id"))
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.Close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=javascript>alert('如果您不是跑到别人的信箱里了，那就请确定后再次刷新本页!!!');history.back(1);</script>"
Response.End
else
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=0 border=1 width=100% style="border-collapse: collapse" bordercolor="#0D5777">
<tr>
<td align=center colspan=3 class=TFColor bgcolor="#0D5777"><b>欢迎使用短消息接收，<%=Session("DJ58User")%></b></td>
</tr>
<tr>
<td valign=middle align=center colspan=3><a href="messager.asp?action=delete&id=<%=rs("id")%>"><img src="images/deletepm.gif" border=0 alt="删除消息"></a> <a href="messager.asp?action=inbox"><img src="images/inboxpm.gif" border=0 alt="收件箱"></a> <a href="messager.asp?action=outbox"><img src="images/outboxpm.gif" border=0 alt="发件箱"></a> <a href="messager.asp?action=new"><img src="images/newpm.gif" border=0 alt="发送消息"></a> <a href="messager.asp?action=new&touser=<%=rs("sender")%>"><img src="images/replypm.gif" border=0 alt="回复消息"></a><a onfocus="this.blur()" href="javascript:this.location.reload()"><img height="12" src="images/refresh.gif" border="0" alt="如果看不到信就刷新一下!"></a></td>
</tr>
<tr>
<td valign=middle align=center>
<%if request("action")="outread" then%>
在<b><%=rs("sendtime")%></b>，您发送此消息给<b><%=rs("incept")%></b>！
<%else%>
在<b><%=rs("sendtime")%></b>，<b><%=rs("sender")%></b>给您发送的消息！
<%end if%></font></td>
</tr>
<tr>
<td valign=top align=left><b>消息标题：<%=rs("title")%></b><p><%=rs("content")%></td>
</tr>
</table>
</td>
</tr>
</table>
<%end if
end sub
sub savemsg()
if request("touser")="" then
conn.close
set conn=nothing
response.write "<script language=javascript>alert('我倒~~你不会吧，怎么忘记填写发送对象了啊,快回去重写！！！');history.back(1);</script>"
Response.End
else
incept=request("touser")
end if
if request("title")="" then
conn.close
set conn=nothing
response.write "<script language=javascript>alert('哎呀，你又忘了写标题了呀，快点回去填上吧。');history.back(1);</script>"
Response.End
else
title=request("title")
end if
if request("message")="" then
conn.close
set conn=nothing
response.write "<script language=javascript>alert('瞧你，又想拿无字天书来骗人，回去把内容写上吧。');history.back(1);</script>"
Response.End
else
message=request("message")
end if
if founderr=true then
response.write "<script language=javascript>alert('操作错误或服务器出错，请与程序作者联系，Email:heirui@163.com！');history.back(1);</script>"
else
sql="select * from [user] where username='"&incept&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.Close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=javascript>alert('对不起，本站没有这个用户，看看你的发送对象写对了吗？');history.back(1);</script>"
Response.End
else
rs.Close
sql="select * from message"
rs.open sql,conn,1,3
rs.addnew
rs("incept")=incept
rs("sender")=Session("DJ58User")
rs("title")=title
rs("content")=message
rs("sendtime")=now()
rs("flag")=0
rs.update
msg=msg+"<br>"+"<li><b>恭喜您，发送短信息成功。</b><br>发送的消息同时保存在您的发件箱。"
call success()
rs.close
end if
end if
end sub
sub delete()
sql="delete from message where incept='"&Session("DJ58User")&"' and id="&cstr(request("id"))
conn.execute sql
if err.Number<>0 then
err.clear
conn.close
set conn=nothing
response.write "<script language=javascript>alert('对不起，短信息删除失败！');history.back(1);</script>"
Response.End
else
msg=msg+"<br>"+"<li>短信息成功删除！"
call success()
end if
end sub
sub deleteall()
sql="delete from message where incept='"&Session("DJ58User")&"'"
conn.execute sql
if err.Number<>0 then
err.clear
conn.close
set conn=nothing
response.write "<script language=javascript>alert('对不起，短信息删除失败！');history.back(1);</script>"
Response.End
else
msg=msg+"<br>"+"<li>短信息全部成功删除！"
call success()
end if
end sub
sub success()
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=0 border=1 width=100% style="border-collapse: collapse" bordercolor="#0D5777">
<tr align="center">
<td width="100%" bgcolor="#0D5777">成功：短信息</td>
</tr>
<tr>
<td width="100%"><%=msg%> </td>
</tr>
<tr align="center">
<td width="100%" bgcolor="#0D5777"><a href="javascript:history.go(-1)"> << 返回上一页</a></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
sub newmsg()
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=0 border=1 width=100% style="border-collapse: collapse" bordercolor="#0D5777">
<tr align="center">
<td width="100%" class=TFColor bgcolor="#0D5777" bordercolor="#0D5777">短消息通知</td>
</tr>
<tr>
<td width="100%" align=center><br>
<a href=messager.asp?action=inbox><img src="images/newmail.gif" border=0>有新的短消息</a><br>
<br>
<a href=messager.asp?action=inbox>按此查看</a><br><br>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -