show_message.asp

来自「花钱买的毕业设计。企业网络管理系统」· ASP 代码 · 共 42 行

ASP
42
字号
<%@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>&nbsp;<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">&nbsp;</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');"> 
      &nbsp;&nbsp; <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 + =
减小字号Ctrl + -
显示快捷键?