⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 messager.asp

📁 本程序采用花香内核
💻 ASP
字号:
🔍 
<!--#include file="mdb.asp"-->
<!--#include file="inc/config.asp"-->
<!--'#include file="inc/inc.asp"-->
<html>
<head>
<title><%=webname%>--短消息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="skin/<%=skin%>/css.css" rel="stylesheet" type="text/css">
<%
Response.Buffer=true
Response.Expires=0
Response.CacheControl="no-cache"
%>
</head>
<body topmargin=0 leftmargin=0 rightmargin="0" bottommargin="0">
<TABLE cellSpacing=0 cellPadding=0 width="400" border=0 align="center" class="table-hx66s">
<TR>
<TD><IMG height=8 src="img/23.gif" width="100%"></TD></TR>
<TR>
<TD height=23>
<table width="398"  border="0" align="center" cellspacing="0" cellpadding="0"  class="table-shangxia">
      <tr>
        <td height="23" class="a1">&nbsp;&nbsp;<IMG height=9 src="img/28.gif" width=9>&nbsp;&nbsp;短 信 箱</td>
      </tr>
</table>
</TD></TR>
<TR>
<TD height=20>
</TD></TR>
<TR>
<TD width=100% bgcolor="#FFFFFF">
<div align="center">
<%
'server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
'server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
'if mid(server_v1,8,len(server_v2))<>server_v2 then
'Response.Write("<script language=javascript>alert('你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！');this.location.href='userlogin.asp';</script>") 
'response.end
'end if
dim msg
if Request.Cookies("HX_USER")("User_Name")="" or isnull(Request.Cookies("HX_USER")("User_Name")) or Request.Cookies("HX_USER")("User_Pwd")="" or isnull(Request.Cookies("HX_USER")("User_Pwd")) then
	conn.close
	set conn=nothing
	response.write "<SCRIPT language=JavaScript>alert('短消息功能只有会员才可以使用，请先登陆。如果您还不是本站会员，请免费注册！');"
	response.write"JavaScript:window.close()</SCRIPT>"
	Response.End 
end if
set rs=server.createobject("adodb.recordset")
if founderr=true then
	response.write "<SCRIPT language=JavaScript>alert('操作错误或服务器出错，请与程序作者联系！');"
	response.write"JavaScript:window.close()</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('操作错误或服务器出错，请与程序作者联系！');"
	response.write"JavaScript:window.close()</SCRIPT>"
		Response.End 
	end select
end if
'收件箱
sub inbox()
%>
<table cellpadding=0 cellspacing=0 border=0 width="100%">
<tr>
<td>
<table width=90% border="0" align="center" cellpadding="0" cellspacing="0" class="table-zuoshang">
<tr> 
<td align=center colspan=3 class="table-xiayou"><b>欢迎使用您的收件箱，<%=Request.Cookies("HX_USER")("User_Name")%></b></td>
</tr>
<tr>
<td align=center colspan=3 class="table-xiayou"><a href="messager.asp?action=inbox"><img src="img/inboxpm.gif" border=0 alt="收件箱"></a> &nbsp; <a href="messager.asp?action=outbox"><img src="img/outboxpm.gif" border=0 alt="发件箱"></a> &nbsp; <a href="messager.asp?action=new"><img src="img/newpm.gif" border=0 alt="发送消息"></a><a onfocus="this.blur()" href="javascript:this.location.reload()"><img height="12" src="img/refresh.gif" border="0" alt="如果看不到信就刷新一下!"></a></td>
</tr>
<tr>
<td align=center class="table-xiayou" width=25%><b>来自</b></td>
<td align=center class="table-xiayou" width=65%><b>主题</b></td>
<td align=center class="table-xiayou" width=10%><b>已读</b></td>
</tr>
<%
	
	sql="select * from message where incept='"&Request.Cookies("HX_USER")("User_Name")&"' 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 class="table-xiayou"><%=rs("sender")%>　</td>
<td align=left valign=middle class="table-xiayou">&nbsp;<a href="messager.asp?action=read&id=<%=rs("id")%>"><%=rs("title")%></a>　</td>
<td align=center valign=middle class="table-xiayou"><%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 class="table-xiayou"><a href="messager.asp?action=deleteall">删除所有的短消息</a></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<%
end sub
'发件箱
sub outbox()
%>
<table cellpadding=0 cellspacing=0 border=0 width=100% align=center>
<tr>
<td>
<table width=90% border="0" align="center" cellpadding="0" cellspacing="0" class="table-zuoshang">
<tr>
<td align=center colspan=2 class="table-xiayou"><b>欢迎使用短消息发送，<%=Request.Cookies("HX_USER")("User_Name")%></b></td>
</tr>
<tr>
<td align=center colspan=2 class="table-xiayou"><a href="messager.asp?action=inbox"><img src="img/inboxpm.gif" border=0 alt="收件箱"></a> &nbsp; <a href="messager.asp?action=outbox"><img src="img/outboxpm.gif" border=0 alt="发件箱"></a> &nbsp; <a href="messager.asp?action=new"><img src="img/newpm.gif" border=0 alt="发送消息"></a><a onfocus="this.blur()" href="javascript:this.location.reload()"><img height="12" src="img/refresh.gif" border="0" alt="如果看不到信就刷新一下!"></a></td>
</tr>
<tr>
<td align=center width=25% class="table-xiayou"><b>收件人</b></td>
<td align=center class="table-xiayou"><b>标题</b></td>
</tr>
<%
	sql="select * from message where sender='"&Request.Cookies("HX_USER")("User_Name")&"'"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
%>
<tr>
<td align=center colspan=2 class="table-xiayou">您还没有给别人发过信息呢~~</td>
</tr>
<%	else
		do while not rs.eof%>
<tr>
<td align=center width=25% class="table-xiayou"><%=rs("incept")%>　</td>
<td align=left class="table-xiayou">&nbsp;<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 class="table-xiayou"><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=100%  align=center>
<tr> 
<td> 
<table width=90% border="0" align="center" cellpadding="0" cellspacing="0" class="table-zuoshang">
<tr> 
<td align=center colspan=2 class="table-xiayou"><b>发送短消息</b></td>
</tr>
<tr> 
<td valign=middle align=center colspan=2 class="table-xiayou"><a href="messager.asp?action=inbox"><img src="img/inboxpm.gif" border=0 alt="收件箱"></a> 
&nbsp; <a href="messager.asp?action=outbox"><img src="img/outboxpm.gif" border=0 alt="发件箱"></a> 
&nbsp; <a href="messager.asp?action=new"><img src="img/newpm.gif" border=0 alt="发送消息"></a><a onfocus="this.blur()" href="javascript:this.location.reload()"><img height="12" src="img/refresh.gif" border="0" alt="如果看不到信就刷新一下!"></a></td>
</tr>
<tr> 
<td colspan=2 align=center class="table-xiayou"><input type=hidden name="action" value="send"><b>请完整输入下列信息</b></td>
</tr>
<tr> 
<td valign=middle class="table-xiayou"><b>&nbsp;收件人：</b></td>
<td valign=middle class="table-xiayou"><input type=text name="touser" value="<%=request("touser")%>" size=20 class="go-input">
</td>
</tr>
<tr> 
<td valign=top width=30% class="table-xiayou"><b>&nbsp;标题：</b></td>
<td valign=middle class="table-xiayou"><input type=text name="title" size=36 maxlength=80 class="go-input"></td>
</tr>
<tr> 
<td valign=top width=30% class="table-xiayou"><b>&nbsp;内容：</b><br>Ctrl+Enter发送</td>
<td valign=middle class="table-xiayou"><textarea cols=40 rows=6 name="message" title="Ctrl+Enter发送" class="input"></textarea></td>
</tr>
<tr> 
<td colspan=2 align=center class="table-xiayou"> 
<input type=Submit value="发 送" name=Submit&quot;>&nbsp;<input type="reset" name="Clear" value="清 除">
</td>
</tr></form>
</table>
</td>
</tr>
</table>

<%
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='"&Request.Cookies("HX_USER")("User_Name")&"' 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=100% align=center>
<tr>
<td>
<table width=90% border="0" align="center" cellpadding="0" cellspacing="0" class="table-zuoshang">
<tr>
<td align=center class="table-xiayou"><b>欢迎使用短消息接收，<%=Request.Cookies("HX_USER")("User_Name")%></b></td>
</tr>
<tr>
<td valign=middle align=center class="table-xiayou"><a href="messager.asp?action=delete&id=<%=rs("id")%>"><img src="img/deletepm.gif" border=0 alt="删除消息"></a> &nbsp; <a href="messager.asp?action=inbox"><img src="img/inboxpm.gif" border=0 alt="收件箱"></a> &nbsp; <a href="messager.asp?action=outbox"><img src="img/outboxpm.gif" border=0 alt="发件箱"></a> &nbsp;<a href="messager.asp?action=new"><img src="img/newpm.gif" border=0 alt="发送消息"></a> &nbsp;<a href="messager.asp?action=new&touser=<%=rs("sender")%>"><img src="img/replypm.gif" border=0 alt="回复消息"></a><a onfocus="this.blur()" href="javascript:this.location.reload()"><img height="12" src="img/refresh.gif" border="0" alt="如果看不到信就刷新一下!"></a></td>
</tr>
<tr>
<td valign=middle align=center class="table-xiayou">
<%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 class="table-xiayou"><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:xc@hx66.net！');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")=Request.Cookies("HX_USER")("User_Name")
			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='"&Request.Cookies("HX_USER")("User_Name")&"' 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='"&Request.Cookies("HX_USER")("User_Name")&"'"
	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=100% align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=0 border=1 width=100% style="border-collapse: collapse" bordercolor="#CCCCCC">
<tr align="center"> 
<td width="100%" class="table-xiayou">成功：短信息</td>
</tr>
<tr> 
<td width="100%" class="table-xiayou"><%=msg%>　</td>
</tr>
<tr align="center"> 
<td width="100%" class="table-xiayou"><a href="javascript:history.go(-1)"> << 返回上一页</a></td>
</tr>  
</table>
</td>
</tr>
</table>
<%
end sub
sub newmsg()
%><bgsound src="newmessage.mp3" loop="-1">
<table cellpadding=0 cellspacing=0 border=0 width=100% align=center>
<tr>
<td>
<table class=zt00 cellpadding=3 cellspacing=0 border=1 width=100% style="border-collapse: collapse" bordercolor="#CCCCCC">
<tr align="center"> 
<td width="100%" bordercolor="#525657">短消息通知</td>
</tr>
<tr> 
<td width="100%" align=center><br>
<a href=messager.asp?action=inbox><img src="img/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
%>
</TD></TR>
<TR>
<TD bgcolor="#FFFFFF" height=18>　</TD></TR>
<TR>
</TABLE>
<table width="400"  border="0" align="center" cellspacing="0" cellpadding="0"  class="table-shangxia">
      <tr>
        <td height="23"  class="a1"></td>
      </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -