📄 disply.asp
字号:
<%
id=request("id")
if session("username")="" then response.redirect "ever.asp?lr=请先登录"
%>
<!--#include file="filetou.asp"-->
<!--#include file="fun.asp"-->
<!--#include file="../fun.asp"-->
<%
MYIP=REQUEST.SERVERVARIABLES("REMOTE_ADDR")
MYIP=IP2N(MYIP)
sql="SELECT * FROM LYLIST where (收信者 LIKE '%"&SESSION("USERNAME")&"%' OR (起始IP <="&MYIP&" AND 结束IP >="&MYIP&" )) and id="&id
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<Link Rel="STYLESHEET" Href="../../index.CSS" Type="text/css">
<title>查看留言</title>
</head>
<body bgcolor="#99CCFF">
<div align="center">
<center>
<table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bgcolor="#D4D0C8">
<tr>
<td width="100%">
<table border="0" width="100%" bgcolor="#000080">
<tr>
<td width="24%"> <font color="#FFFFFF">查看留言</font></td>
<td width="23%"><a href="myly.asp"><font color="#FFFFFF">我的留言</font></a></td>
<td width="23%"><a href="lyout.asp"><font color="#FFFFFF">发送留言</font></a></td>
<td width="15%"><a href="lyout.asp?LFUSER=<%=RS("发信者")%>"><font color="#FFFFFF">回复</font></a></td>
</center>
<td width="15%">
<p align="right"> <a href="../../index.asp"><font color="#FFFFFF">返回首页</font></a></td>
</tr>
</table>
<center>
<table border="1" width="100%" bordercolorlight="#356286" cellspacing="0" cellpadding="3" bordercolordark="#D4D0C8">
<tr>
<td width="18%" valign="top">主题</td>
<td width="82%" colspan="3"><%=rs("主题")%></td>
</tr>
<tr>
<td width="18%" valign="top">附件</td>
<td width="82%" colspan="3"><%
IF rs("附件")&""<>"" THEN
Response.Write "<A HREF='"&RS("附件")&"'>"&MYFILEname(RS("附件"))&"</A>"
END IF
%> </td>
</tr>
<tr>
<td width="18%" valign="top">发送日期</td>
<td width="28%"><%=FORMATDATETIME(rs("发送时间"),1)%></td>
<td width="14%">发信人</td>
<td width="40%"><%=rs("发信者")%></td>
</tr>
<tr>
<td width="18%" valign="top">内容</td>
<td width="82%" colspan="3"><%=rs("内容")%> </td>
</tr>
</table>
<p><br>
<br>
<br>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
IF INSTR(RS("阅读者")&",",SESSION("USERNAME")&",")=0 THEN
RS("阅读者")=RS("阅读者")&SESSION("USERNAME")&","
END IF
RS("接收时间")=DATE()
RS.UPDATE
RS.CLOSE
SET CONN=NOTHING
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -