📄 read.asp
字号:
<!--#include file="../inc/conn.asp"-->
<%
username=request("user")
id=request("id")
if username="" or id="" then
response.write "<script language=javascript>alert( ""程序出错！"");location.href='javascript:history.back()'</script>"
response.end
end if
sql="select * from [gbook] where username='"&username&"' and id="&cint(id)
rs.open sql,conn,1,3
if rs.bof then
response.write "<script language=javascript>alert( ""找不到此留言，或者留言记录已经删除！"");location.href='javascript:history.back()'</script>"
response.end
end if
rs("hits")=rs("hits")+1
rs.update
%>
<HTML><HEAD><TITLE>读取留言</TITLE>
<META http-equiv=content-type content="text/html; charset=gb2312"><LINK
href="images/style.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=54><IMG src="images/topleft.gif"></A></TD>
<TD width=296><IMG
src="images/logo.gif" border=0></TD>
<TD background=images/topright.gif> </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=6 width="99%" align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD><A href="index.asp?username=<%=rs("username")%>"><%=rs("username")%>的留言本</A>
-> 读取留言 </TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=8 width="99%" align=center bgColor=#41b1e3
border=0>
<TBODY>
<TR >
<TD colSpan=2 align=left background="images/tabletail.gif">留言主题: <%=rs("title")%></TD>
</TR>
<TR align=left bgColor=#ffffff>
<TD width="15%" align=middle vAlign=top bgcolor="#ffffff">留言人:<%=rs("name")%><BR>
<BR>
<%
select case rs("sex")
case 1
Response.Write("<img src=images/boy.gif border-0")
case 0
Response.Write("<img src=images/girl.gif border-0")
end select
%>
<BR><BR>
IP: <%=rs("postip")%><BR>
<BR></TD>
<TD align=left>
<TABLE cellPadding=30 width="100%">
<TBODY>
<TR>
<TD align=left><img src="images/icon<%=rs("face")%>.gif" width="19" height="19" border="0">
<%=rs("content")%><BR>
<BR>
<HR width="30%" color=#41b1e3 SIZE=1>
留言时间: <%=rs("posttime")%><BR>
站长回复：<font color=red><%if rs("recontent")<>"" then
Response.Write rs("recontent")
else
Response.Write("暂未回复")
end if
%></font></TD>
<TR></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=center border=0>
<TBODY>
<TR height=6>
<TD></TD></TR>
<TR height=43>
<TD width="60%" background=images/tabletail.gif> </TD>
<TD align=right background=images/tabletail.gif><%
if rs("recontent")<>"" and Request.Cookies("username")=user then
else
%><a href="reply.asp?user=<%=username%>&id=<%=rs("id")%>"><img src="images/replying.gif" width="78" height="26" border="0"></a><%end if%> <A
href="index.asp?username=<%=rs("username")%>"><IMG
src="images/return.gif" border=0></A> </TD>
</TR></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -