📄 qqh.asp
字号:
<!--#include file=conn.inc-->
<%
user=request("user1")
id=request("id")
pass=request("pass")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from user where 用户名='"& user &"'"
rs.open sql,conn
if rs.eof or rs.bof then
response.write " 该用户不存在!"
else
pass1=rs("密码")
user1=rs("用户名")
rs.close
set rs=nothing
if pass=pass1 then
set rs=server.createobject("adodb.recordset")
sql="select * from book where ID="& id
rs.open sql,conn,1,3
user2=rs("用户")
if user2=user1 then
%>
<HTML><HEAD><TITLE><%=rs("昵称")%>的悄悄话</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="images/css.css" rel=stylesheet type=text/css>
<LINK href="images/css.css" rel=stylesheet type=text/css>
</HEAD>
<BODY background='images/bookbg.gif' topmargin=0 leftmargin=0>
<CENTER>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="450">
<tr>
<td width="2%"><img border="0" src="images/T_left.gif" width="140" height="21"></td>
<td width="96%" background="images/Tt_bg.gif"></td>
<td width="2%"><img border="0" src="images/T_right.gif" width="56" height="21"></td>
</tr>
</table>
<TABLE border=0 cellPadding=4 cellSpacing=1 height=148 width=450 style="border-collapse: collapse" class=a2>
<TR>
<TD height=30 class=a1 align=left width="456"> <font color=red><%=rs("昵称")%></font>的悄悄话<b> 留言日期:</b> [<%=rs("时间")%>]</TD></TR>
<TR>
<TD height=178 class=a3 style="LINE-HEIGHT: 180%" height="49" width="456" valign="top"> <%=rs("内容")%></TD></TR></TABLE>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="450" >
<tr>
<td width="1%"><img border="0" src="images/T_bottomleft.gif" width="145" height="17"></td>
<td width="97%" background="images/T_bottombg.gif"></td>
<td width="2%"><img border="0" src="images/T_bottomright.gif" width="145" height="17"></td>
</tr>
</table>
</center>
</div>
</BODY><%
set rs=nothing
conn.close
else
response.write "请不要查看其他用户的悄悄话记录!"
end if
else
response.write "你输入了错误的密码!"
end if
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -