<!--#include file=conn.inc-->
<% 
user=request("user1")
id=request("id")
pass=request("pass")

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from user where id=1"
rs.open sql,conn

pass1=rs("密码")
user1=rs("用户名")
rs.close
set rs=nothing
if pass=pass1 and user=user1 then
set rs=server.createobject("adodb.recordset")
sql="select * from book where ID="& id
rs.open sql,conn,1,3

%>

<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">&nbsp;&nbsp;<font color=red><%=rs("昵称")%></font>的悄悄话<b>&nbsp;&nbsp;留言日期:</b>&nbsp;[<%=rs("时间")%>]</TD></TR>
        <TR>
          <TD height=178 class=a3 style="LINE-HEIGHT: 180%" height="49" width="456" valign="top">&nbsp;&nbsp;&nbsp;&nbsp;<%=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
%>