?? messager.asp

?? 本程序采用花香內(nèi)核
?? 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('你提交的路徑有誤，禁止從站點外部提交數(shù)據(jù)請不要亂該參數(shù)！');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('操作錯誤或服務(wù)器出錯，請與程序作者聯(lián)系！');"
	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('操作錯誤或服務(wù)器出錯，請與程序作者聯(lián)系！');"
	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="發(fā)件箱"></a> &nbsp; <a href="messager.asp?action=new"><img src="img/newpm.gif" border=0 alt="發(fā)送消息"></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
'發(fā)件箱
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>歡迎使用短消息發(fā)送，<%=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="發(fā)件箱"></a> &nbsp; <a href="messager.asp?action=new"><img src="img/newpm.gif" border=0 alt="發(fā)送消息"></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>標(biāo)題</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">您還沒有給別人發(fā)過信息呢~~</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
'發(fā)送信息
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>發(fā)送短消息</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="發(fā)件箱"></a> 
&nbsp; <a href="messager.asp?action=new"><img src="img/newpm.gif" border=0 alt="發(fā)送消息"></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;標(biāo)題：</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;內(nèi)容：</b><br>Ctrl+Enter發(fā)送</td>
<td valign=middle class="table-xiayou"><textarea cols=40 rows=6 name="message" title="Ctrl+Enter發(fā)送" class="input"></textarea></td>
</tr>
<tr> 
<td colspan=2 align=center class="table-xiayou"> 
<input type=Submit value="發(fā) 送" 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="發(fā)件箱"></a> &nbsp;<a href="messager.asp?action=new"><img src="img/newpm.gif" border=0 alt="發(fā)送消息"></a> &nbsp;<a href="messager.asp?action=new&touser=<%=rs("sender")%>"><img src="img/replypm.gif" border=0 alt="回復(fù)消息"></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>，您發(fā)送此消息給<b><%=rs("incept")%></b>！
<%else%>
在<b><%=rs("sendtime")%></b>，<b><%=rs("sender")%></b>給您發(fā)送的消息！
<%end if%></font></td>
</tr>
<tr>
<td valign=top align=left class="table-xiayou"><b>消息標(biāo)題：<%=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('我倒~~你不會吧，怎么忘記填寫發(fā)送對象了啊,快回去重寫！??！');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('哎呀，你又忘了寫標(biāo)題了呀，快點回去填上吧。');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('瞧你，又想拿無字天書來騙人，回去把內(nèi)容寫上吧。');history.back(1);</script>"
		Response.End 
	else
		message=request("message")
	end if
	if founderr=true then
		response.write "<script language=javascript>alert('操作錯誤或服務(wù)器出錯，請與程序作者聯(lián)系，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('對不起，本站沒有這個用戶，看看你的發(fā)送對象寫對了嗎？');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>恭喜您，發(fā)送短信息成功。</b><br>發(fā)送的消息同時保存在您的發(fā)件箱。"
			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>
?? 文件大小 2402 K
?? 上傳用戶 xinxinduan
?? 所屬分類文章/文檔
??? 相關(guān)標(biāo)簽

#程序 #內(nèi)核
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? messager.asp

?? 快捷鍵說明
