message.asp

这个论坛也不错．适合做毕业设计的

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="top.asp" -->
<table width=<%=TableWidth%> border =0 align="center" class="sft"><tr><td><a href="index.asp">论坛首页</a> > 短消息</td></tr></table><br>
<table align="center"  bgcolor=<%=TableColor%> border="0" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft">
<tr bgcolor=<%=CellColor1%>>
<td align="center" width="35%" <%if Request.QueryString("mode")="write" then Response.Write" bgcolor=" & CellColor2%>><a href="message.asp?mode=write">发送短消息</a></td>
<td align="center" width="35%" <%if Request.QueryString("mode")="" then Response.Write" bgcolor=" & CellColor2%>><a href="message.asp">收件箱</a></td>
<td align="center" width="30%" <%if Request.QueryString("mode")="old" then Response.Write" bgcolor=" & CellColor2%>><a href="message.asp?mode=old">发件箱</a></td>
</tr></table><br>
<%
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString

if Request.QueryString("mode")<>"" then

Function ViewMessage(msg_id)
strsql="select fromuser, message, subject from messages where message_id = " & msg_id
set rs = my_conn.Execute (strsql)
%>
<table align="center"  bgcolor=<%=TableColor%> border="0" width=500 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor=<%=HeadColor%> align="center" class="sfh">阅读收件箱消息:<%=rs("subject")%> (发信人:<%=rs("fromuser")%>)</td></tr>
<tr><td bgcolor=<%=CellColor1%> align="center"><br><%=rs("message")%>
<p align=right><a href="message.asp?mode=write&toname=<%=rs("fromuser")%>">回复发信人</a></p></td></tr>
</table><br>
<%
strsql="update messages set new = " & false & " where message_id = " & msg_id
my_conn.Execute (strsql)

End Function

Function ViewMessage2(msg_id)
strsql="select [to], message, subject from messages2 where message_id = " & msg_id
set rs = my_conn.Execute (strsql)
%>
<table align="center"  bgcolor=<%=TableColor%> border="0" width=500 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor=<%=HeadColor%> align="center" class="sfh">阅读发件箱消息:<%=rs("subject")%> (收信人:<%=rs("to")%>)</td></tr>
<tr><td bgcolor=<%=CellColor1%> align="center"><br><%=rs("message")%></td></tr>
</table><br>
<%
End Function

Select Case Request.QueryString("mode")
case "send"
  if Request.Form("to")="" or Request.Form("subject")="" or Request.Form("message")="" then
    Response.Write "<P align=center>收信人、标题和内容都不得为空! 请正确输入!<br><br>"
    Response.Write "<a href=""javascript:history.go(-1)"">退回</a></p>"
    Response.End
  end if
  if len(Request.Form("subject"))>30 or len(Request.Form("message"))>200 then
    Response.Write "<P align=center>标题不得多于30个字符, 内容则不得大于200, 请正确输入!<br><br>"
    Response.Write "<a href=""javascript:history.go(-1)"">退回</a></p>"
    Response.End
  end if
  strsql="insert into messages (FromUser, [To], Subject, Message) values ('"
  strsql= strsql & server.htmlencode(Request.Form("name")) & "', '" & server.htmlencode(Request.Form("to")) & "', '"
  strsql= strsql & server.htmlencode(Request.Form("Subject")) & "', '" & server.htmlencode(Request.Form("message")) & "')"
  my_conn.Execute (strsql)
  strsql="insert into messages2 (FromUser, [To], Subject, Message) values ('"
  strsql= strsql & server.htmlencode(Request.Form("name")) & "', '" & server.htmlencode(Request.Form("to")) & "', '"
  strsql= strsql & server.htmlencode(Request.Form("Subject")) & "', '" & server.htmlencode(Request.Form("message")) & "')"
  my_conn.Execute (strsql)%>
<table align="center"  bgcolor=<%=TableColor%> border="0" width=300 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor=<%=HeadColor%> align="center" width="30%" class="sfh">发送成功</td></tr>
<tr><td bgcolor=<%=CellColor1%> align="center" width="30%"><br>已经向对方发送了短消息!<br><br>同时也将此消息复制到了你的发件箱中.<br></td></tr>
</table>
<%
case "write"
%>
<form action="message.asp?mode=send" method="post">
<table align="center"  bgcolor=<%=TableColor%> border="0" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft">
<tr><td align="center" bgcolor="<%=HeadColor%>" class="sfh" width="20%" colspan=2>发送短消息</td></tr>
<tr bgcolor=<%=CellColor1%>>
<td align="right" width="30%">用户名:</td>
<td width="70%">
<input maxLength="25" name="name" size="20" Value="<%=Request.Cookies("User")("Name")%>" class="box"> </td></tr>
<tr bgcolor=<%=CellColor1%>>
<td align="right">密码:</td>
<td>
<input maxLength="13" name="Password" size="20" type="password" value="<%=Request.Cookies("User")("Pword")%>" class="box">&nbsp;&nbsp;
<a href="register.asp">尚未注册?</a>&nbsp;&nbsp;<a href="password.asp">遗忘密码?</a></td></tr>
<tr bgcolor=<%=CellColor1%>>
<td align="right">收信人:</td>
<td>
<input name="to" size="20" maxlength="16" value="<%=Request.QueryString("toname")%>" class="box"> </td></tr>
<tr bgcolor=<%=CellColor1%>>
<td align="right">主题:</td>
<td>
<input name="Subject" size="40" maxlength="60" class="box">(长度小于30)</td></tr>
<tr bgcolor=<%=CellColor1%>>
<td vAlign="top" align="right">内容: 
</td>
<td><textarea cols="50" name="Message" rows="6" wrap="VIRTUAL" maxlength="200" class="box"></textarea><br>(长度小于200,不支持HTML和UBB语法)
</td></tr></table><center><input name="Submit" type="submit" value="发 送" class="btn">
<input name="Reset" type="reset" value="清 除" class="btn"></center></form>
<%
case "old"

if Request.QueryString("msg_id")<>"" then ViewMessage2(cint(Request.QueryString("msg_id")))
%>
<table align="center"  bgcolor=<%=TableColor%> border="0" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft">
<tr><td align="center" bgcolor="<%=HeadColor%>" width="20%" class="sfh" colspan=4>发件箱 (只存储最近的20条消息)</td></tr>
<tr bgcolor="<%=CategoryColor%>" class="sfh">
<td align="center" width="20%">收信人</td>
<td align="center" width="40%">主题</td>
<td align="center" width="20%">发送时间</td>
</tr>
<%
if Request.Cookies("User")("Name")<>"" then
 strsql = "select Message_id, [To], Subject, [Time] from messages2 where FromUser = '" & Request.Cookies("User")("Name") & "' order by [Time] DESC"
 set rs = my_conn.Execute (strsql)
 if rs.Eof or rs.Bof then
   Response.Write "<tr><td bgcolor="&CellColor1&" colspan=4>您没有发过任何短消息</td></tr>"
 else
   msgmax=0
   do until rs.eof
     if msgmax >19 then
        strsql = "delete from messages2 where message_id = " & rs("message_id")
        my_conn.Execute (strsql)
     else
	Response.Write "<tr bgcolor='" & CellColor1 & "'>"
	Response.Write "<td align='center'>" & "<a href='viewuser.asp?name=" & rs("to") &"' target=_blank>" & rs("to") & "</a></td>"	
	Response.Write "<td align='center'><a href='message.asp?mode=old&msg_id="&rs("message_id")&"'>" & rs("subject")& "</a></td>"
	Response.Write "<td align='center'>" & rs("time") & "</td>"
     end if
     msgmax= msgmax + 1
     rs.MoveNext
   loop
   Response.Write "</table>"
 end If
end if

end select

else
if Request.QueryString("msg_id")<>"" then ViewMessage(cint(Request.QueryString("msg_id")))
%>
<table align="center"  bgcolor=<%=TableColor%> border="0" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft">
<tr><td align="center" bgcolor="<%=HeadColor%>" width="20%" class="sfh" colspan=4>收件箱 (只存储最近的20条消息)</td></tr>
<tr bgcolor="<%=CategoryColor%>" class="sfh">
<td align="center" width="20%">发信人</td>
<td align="center" width="45%">主题</td>
<td align="center" width="20%">发送时间</td>
<td align="center" width="15%">您是否已阅读</td>
</tr>
<%
if Request.Cookies("User")("Name")<>"" then
 strsql="select Message_id, FromUser, Subject, [Time], New from messages where [to] = '" & Request.Cookies("User")("Name") & "' order by [Time] DESC"
 set rs = my_conn.Execute (strsql)
 if rs.Eof or rs.Bof then
   Response.Write "<tr><td bgcolor="&CellColor1&" colspan=4>您没有收到过任何短消息</td></tr>"
 else
   msgmax = 0
   do until rs.eof
     if msgmax >19 then
        strsql = "delete from messages where message_id = " & rs("message_id")
        my_conn.Execute (strsql)
     else
	Response.Write "<tr bgcolor='" & CellColor1 & "'>"
	Response.Write "<td align='center'>" & "<a href='viewuser.asp?name=" & rs("fromuser") &"' target=_blank>" & rs("fromuser") & "</a></td>"
	Response.Write "<td align='center'><a href='message.asp?msg_id="&rs("message_id")&"'>" & rs("subject")& "</a></td>"
	Response.Write "<td align='center'>" & rs("time") & "</td>"
	Response.Write "<td align='center'>"
	if rs("new")= true then
	  Response.Write "<b>尚未阅读<b>"
	else
	  Response.Write "已经阅读"
	end if
	Response.Write "</td></tr>"
     end if
     msgmax= msgmax + 1
     rs.MoveNext
   loop
   Response.Write "</table>"
 end if
End if
end if

my_conn.Close
set my_Conn = nothing
set rs = nothing
%>
</body></html>