📄 show_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>
<%
str = "select * from v_message where id = " & Request("id")
session("rs").open str,session("conn")
if not session("rs").eof then
%>
<body>
<table border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#eeeeee">
<tr bgcolor="#FFFFFF">
<td width="60"><font color="#0000FF">发送者</font></td>
<td><a href="../member/show_member.asp?id=<%= session("rs")("sender") %>"><%= trim(session("rs")("sender_name")) %></a> <a href="../enterprise/show_enter.asp?id=<%= session("rs")("enter_id") %>"><%= trim(session("rs")("enter_name")) %></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><font color="#0000FF">发送时间</font></td>
<td><%= session("rs")("time") %></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><font color="#0000FF">内容</font><br> <%= session("rs")("message") %></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td colspan="2"> </td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td colspan="2"> <input type="button" name="Submit" value="回复短信" onClick="window.open('write_message.asp?receiver=<%= session("rs")("sender") %>','_self');">
<input name="close" type="button" onClick="window.close();" value="关闭窗口"></td>
</tr>
</table>
<%
end if
session("rs").close
session("conn").execute "update message SET [read] = 1 WHERE id = " & Request("id"),,adCmdText + adExecuteNoRecords
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -