📄 message.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
'毕业设计:林林在线网络招聘系统
'毕业设计:林林在线网络招聘系统
if session("user")="" then
Response.write("<center>错误的参数,请先登陆")
Response.End
end if
%>
<%
dim rs,i,name,id
name = Session("user")
ID = Session("id")
set Rs = Conn.Execute("select * from userinfo where user='"&session("user") &"'")
if rs.eof then
Response.write("<center>您还没有登记,不能使用站内信件系统,请先登记!")
Response.End
end if
if request.Form("action")="dell" then
if request.Form("actions")="del" then
for i=1 to request.form("ID").count
conn.execute("Delete * from Message where ID="&Request.form("id")(i))
Next
Response.write("<center>删除成功")
Response.End
end if
if request.Form("actions")="dels" then
for i=1 to request.form("ID").count
conn.execute("Update Message set IsRecyle=true where ID="&Request.form("id")(i))
Next
Response.write("<center>删除成功到回收站")
Response.End
end if
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="0" cellspacing="0">
<tr>
<td height="35"><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></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#EEEEEE" class="tabbgcolorlibg">
<td width="6%"> <div align="center" class="Nblue9pt style2"><strong>已读</strong></div></td>
<td width="28%"> <div align="center" class="Nblue9pt style2"><strong>主题</strong></div></td>
<td width="29%"><div align="center"><span class="style2"><strong>发信人</strong></span></div></td>
<td width="29%"> <div align="center" class="Nblue9pt style2"><strong>日期</strong></div></td>
<td width="8%"> <div align="center" class="Nblue9pt style2"><strong>操作</strong></div></td>
</tr>
<%
set rs = Conn.Execute("select * from Message where to='"& name &"' and IsRecyle=false order by ID desc")
do while Not rs.Eof
%>
<tr bgcolor="#FFFFFF">
<td>
<%if rs("ReadTF")=false then%>
<img src="../../pic/m_news.gif" width="21" height="14">
<%else%>
<img src="../../pic/m_olds.gif" width="21" height="14">
<%end if%>
</td>
<td>
<span class="style1">
<%
if rs("ReadTF")=false then
response.Write("<a href=ReadMessage.asp?name="& name &"&ID="&rs("ID")&"><b>"&rs("TiTle")&"</b></a>")
else
response.Write("<a href=ReadMessage.asp?name="& name &"&ID="&rs("ID")&">"&rs("TiTle")&"</a>")
end if
%>
</span></td>
<td><span class="style1">
<%
response.Write("<a href=viewall.asp?Name="&rs("from")&">"&rs("from")&"</a>")
%>
</span></td>
<td>
<span class="style1">
<%
if rs("ReadTF")=false then
response.Write("<b>"&rs("Date")&"</b>")
else
response.Write(""&rs("Date")&"")
end if
%>
</span></td>
<td><div align="center">
<input name="ID" type="checkbox" id="ID" value="<%=rs("ID")%>">
</div></td>
</tr>
<%
rs.movenext
Loop
%>
<tr bgcolor="#FFFFFF">
<td colspan="5"><input name="actions" type="radio" value="del" checked>
<span class="style1">彻底删除</span>
<input name="actions" type="radio" value="dels">
<span class="style1">放入回收站</span> <input type="submit" name="Submit" value="执行操作">
<input name="action" type="hidden" id="action" value="dell"></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 + -