?? readmessage.asp
字號:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
'畢業設計:林林在線網絡招聘系統
'畢業設計:林林在線網絡招聘系統
if session("user")="" then
Response.write("<center>錯誤的參數,請先登陸")
Response.End
end if
%>
<%
dim rs1,rs,Sql,Name,id
Name = Session("user")
ID = Session("ID")
if request("action")="del" then
conn.execute("update Message set IsRecyle=true where ID="&Cint(trim(Request("id"))))
Response.write("<center>刪除成功到回收站")
Response.End
end if
if request.Form("action")="addto" then
if Replace(Trim(Request.Form("to")),"'","''")=Replace(Trim(Request.Form("From")),"'","''") then
Response.write("<center>不能給自己發信！")
Response.End
end if
set Rs1 = Conn.Execute("select * from alluser where user='"& Replace(Trim(Request.Form("From")),"'","''") &"'")
if rs1.eof then
Response.write("<center>不存在此用戶")
Response.End
end if
set rs = server.CreateObject ("ADODB.RecordSet")
Sql = "select * from message"
rs.Open Sql,Conn,1,3
rs.addnew
rs("to")=Replace(Trim(Request.Form("From")),"'","''")
rs("From")=Replace(Trim(Request.Form("to")),"'","''")
rs("TiTle")=Replace(Trim(Request.Form("TiTle")),"'","''")
rs("Content")=request.Form("Content")
rs("Date")=now()
rs("ReadTF")=false
rs("IsRecyle")=false
rs.update
rs.close
set rs=nothing
Response.write("<center>發送成功")
Response.End
end if
set rs = Conn.Execute("select * from Message where ID="&Cint(trim(Request("id"))))
conn.execute("update Message set ReadTF=true where ID="&Cint(trim(Request("id"))))
if rs.eof then
Response.write("<center>錯誤參數，錯誤原因：此消息不存在")
Response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>信息中心</title>
<style type="text/css">
<!--
.style1 {font-size: 14px}
.style2 {font-size: 12px}
-->
</style>
</head>
<body>
<table width="700" border="0" align="center" cellpadding="8" cellspacing="1" class="tabbgcolor">
<tr>
<td height="315" valign="top" class="tabbgcolorli">
<form name="form1" method="post" action="">
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="left"><a href="ReadMessage.asp?action=del&ID=<%=rs("ID")%>&Name=<%=session("user")%>"><img src="../../pic/m_delete.gif" width="40" height="40" border="0"></a><font color="#FF0000"><a href="Messagewrite.asp?name=<%=session("user")%>"><img src="../../pic/m_write.gif" width="40" height="40" border="0"></a><a href="recycle.asp?name=<%=Session("user")%>"><img src="../../pic/M_recycle.gif" width="40" height="40" border="0"></a><a href="Message.asp?name=<%=Session("user")%>"><img src="../../pic/o_inbox.gif" width="40" height="40" border="0"></a></font></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="21%"> <div align="right" class="style2">收件人:</div></td>
<td width="79%"> <input name="From" type="text" id="From" value="<%=rs("From")%>" size="50"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> <div align="right" class="style2">標題：</div></td>
<td> <input name="Title" type="text" id="Title" value="回復：<%=rs("Title")%>" size="50"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> <div align="right" class="style2">內容：</div></td>
<td> <textarea name="Content" cols="60" rows="10" id="Content">======在 <%=rs("Date")%> 您來信中寫道：======
<%=rs("Content")%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td><input type="submit" name="Submit" value="回復">
<input type="reset" name="Submit2" value="重置">
<input name="action" type="hidden" id="action" value="addto">
<input name="to" type="hidden" id="to" value="<%=rs("to")%>"></td>
</tr>
</table>
</form> </td>
</tr>
<tr>
<td class="tabbgcolorlileft">
<div align="center">
<p class="tabbgcolorlileft style1">程序制作:林林</p>
</div></td>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -