📄 particular.asp
字号:
<%
if session("user_type")<>"T" then
response.redirect "../../../index.asp"
end if
%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<HTML>
<head>
<title>我的留言板</title>
<link rel="stylesheet" href="../../../system/all.css">
</head>
<body>
<p>
<%
dim guest_id,back_flag,user_id
guest_id=request("thename")
user_id=session("user_id")
SQL="SELECT guest_id,title,body,writer_id,submit_date,reader_id FROM guest"
SQL=SQL + " WHERE guest_id = " & guest_id
SET RS=db.EXECUTE(SQL)
if not rs.bof and not rs.eof then
body=rs("body")
if isnull(body) then
body=""
else
body=" " & replace(trim(body),chr(13),"<br> ")
end if
%>
<CENTER>
<p> 
<p>
<h3 align=center><%=RS("title")%><h3>
<p>
<TABLE border="0" bordercolor="#8800FF" width="90%" bgcolor=e9e9e9>
<%
DO WHILE NOT RS.EOF
%>
<TR>
<TD><%=body%></TD>
</TR>
<TR>
<TD align=left>
<p> <br><a href="readd.asp?thename=<%=rs("writer_id")%>"><%=RS("writer_id")%></a> 
留于<%=RS("submit_date")%> 
<%
if trim(rs("reader_id"))=user_id then
response.write "<a href='delete.asp?thename=" & rs("guest_id") & "&thename2=r'><font color=red>删除</font></a>"
end if
%>
</TD>
</TR>
<%
RS.MOVENEXT
LOOP
%>
</TABLE>
<%end if %>
<p>
<%
response.write "<a href='index.asp'>返回收件箱</a>"
%>
</CENTER>
</body>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -