📄 list_message.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="450" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#dddddd">
<tr bgcolor="#FFFFFF">
<td width="140" align="center" bgcolor="#dddddd">发送者</td>
<td width="200" align="center" bgcolor="#dddddd">消息</td>
<td width="70" align="center" bgcolor="#dddddd">发送时间</td>
<td width="40" align="center" bgcolor="#dddddd"> </td>
</tr>
<%
'Response.Write(Session("member_id") & "<br>")
str = "select * from v_message where receiver = " & session("member_id") & " order by time desc"
session("rs").open str,session("conn")
if session("rs").eof then
Response.End()
end if
while not session("rs").eof
%>
<tr valign="top" bgcolor="#FFFFFF">
<td width="140" align="center"><%
if not session("rs")("read") then
%> <em><font color="#FF0000">new</font></em>
<%
end if
%> <a href="../member/show_member.asp?id=<%= session("rs")("sender") %>" target="_blank"><%= trim(session("rs")("sender_name")) %></a></td>
<td width="200"><a href="show_message.asp?id=<%= session("rs")("id") %>" target="_blank"><%= CutString(session("rs")("message"),30) %></a></td>
<td width="70" align="center"><%= CutDate(session("rs")("time")) %></td>
<td width="40" align="center"> <a href="del_message.asp?id=<%= session("rs")("id") %>">删
除</a></td>
</tr>
<%
session("rs").movenext
wend
session("rs").close
%>
<tr>
<td align="center"> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="4" align="center"> <input type="button" name="Button" value="关闭窗口" onClick="window.close();">
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -