<!--#include file="check.asp"-->
<!--#include file="webconn.asp"-->
<link href="web_jspok.css" rel="stylesheet" type="text/css" />
<form action="?action=save&id=<%=request("id")%>" method="post"> 
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#A3BFE8">
  <tr>
    <td height="20" colspan="2" align="center" bgcolor="#E9F1F8">查看留言信息</td>
  </tr>
  <tr>
    <td height="20" colspan="2" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
  <tr>
  <td height="20" colspan="2" align="center" bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  <%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from book where b_id="& request("id")
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then 
  %>
  
  <tr>
    <td align="center" bgcolor="#E9F1F8">标&nbsp;&nbsp;&nbsp; 题：</td>
    <td height="20" align="left" bgcolor="#E9F1F8"><%=rs("b_title")%></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#E9F1F8">时&nbsp;&nbsp;&nbsp; 间：</td>
    <td height="20" align="left" bgcolor="#E9F1F8"><%=rs("b_time")%></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#E9F1F8">姓&nbsp;&nbsp;&nbsp; 名：</td>
    <td height="20" align="left" bgcolor="#E9F1F8"><%=rs("b_name")%></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#E9F1F8">留言内容：</td>
    <td height="20" align="left" bgcolor="#E9F1F8"><%=rs("b_content")%></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#E9F1F8">回&nbsp;&nbsp;&nbsp; 复：</td>
    <td height="20" align="left" bgcolor="#E9F1F8"><label>
      <textarea name="replay" cols="30" rows="5"><%=rs("b_replay")%></textarea>
    </label></td>
  </tr>
  <tr>
    <td width="35%" align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td width="65%" height="20" align="left" bgcolor="#E9F1F8"><label>
      <input type="submit" name="Submit" value="提交" />
    </label></td>
  </tr>
<%else
response.Write("没有信息")
end if%>
  <tr>
    <td height="20" colspan="2" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
</table>
</form>
<%if request.QueryString("action")="save" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from book where b_id="& request("id")
rs.open sql,conn,1,3
rs("b_replay")=server.HTMLEncode(trim(request.Form("replay")))
rs.update
rs.close
set rs=nothing
response.Write("回复成功！")
end if
%>
