<!--#include file="Inc/Conn.asp"-->
<!--#include file="Head.asp"-->
<!--#include file="Inc/Code.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<%
Dim Bshtm
Set rs=Server.CreateObject("Adodb.Recordset")
Sql="Select * From [Book] Where ID="&Clng(Request("id"))
rs.Open Sql,Conn,1,1
If rs.Eof or rs.Bof Then
Bshtm = Bshtm & "没有该留言!"
Else
Bshtm = Bshtm & "<table width=100% border=0 cellspacing=2 cellpadding=4>"
Bshtm = Bshtm & "<tr>" 
Bshtm = Bshtm & "<td width=77% align=center><div align=left>『留言标题』：<b>"
Bshtm = Bshtm & server.HTMLEncode(rs("Title"))&"</b></div></td>"
Bshtm = Bshtm & "<td>" & "发表时间:"&rs("Time")&"</td>"
Bshtm = Bshtm & "</tr>"
Bshtm = Bshtm & "<tr>" 
Bshtm = Bshtm & "<td colspan=2>"&encodestr(rs("Content"))&"</td>"
Bshtm = Bshtm & "</tr>"
Bshtm = Bshtm & "<tr>" 
Bshtm = Bshtm & "<td height=1 colspan=2><hr align=center size=1 noshade color=#CCCCCC> </td>"
Bshtm = Bshtm & "</tr>"
Bshtm = Bshtm & "</table>"
Set rsp=Server.CreateObject("Adodb.Recordset")
Sql="Select * From Book_Reply Where Book_ID="&Clng(Request("id"))
rsp.Open Sql,Conn,1,1
If rsp.Eof or rsp.Bof Then
Bshtm = Bshtm & "还没有回复!"
Else
Do While Not rsp.Eof
Bshtm = Bshtm & "<table width=100% border=0 cellspacing=2 cellpadding=4>"
Bshtm = Bshtm & "<tr>" 
Bshtm = Bshtm & "<td width=77% align=center><div align=left>『回复』：<b>"&server.HTMLEncode(rsp("Book_Tit"))'&"</b></div></td>"
Bshtm = Bshtm & "<td>回复时间:"&rsp("Time")&"</td>"
Bshtm = Bshtm & "</tr>"
Bshtm = Bshtm & "<tr>" 
Bshtm = Bshtm & "<td colspan=2><b>"&server.HTMLEncode(rsp("Title"))&"</b> <br>"
Bshtm = Bshtm & ""&encodestr(server.HTMLEncode(rsp("Content")))&"</td>"
Bshtm = Bshtm & "</tr>"
Bshtm = Bshtm & "</table>"
rsp.MoveNext
Loop
End if
rsp.Close
Set rsp=Nothing
End if
rs.Close
Set rs=Nothing

Dim BsHtml
BsHtml = application("JaBookShow") 
BsHtml = Replace(BsHtml,"{用户登陆}",UserLogin())
BsHtml = Replace(BsHtml,"{用户搜索}",FindProd())
BsHtml = Replace(BsHtml,"{用户投票}",ShowVote())
BsHtml = Replace(BsHtml,"{留言列表}",BsHtm)
Response.Write BsHtml
%>
<!--#Include File="bottom.Asp"-->