<!--#include file="inc/conn.asp"-->
<!--#include file="inc/jle_sub.asp"-->
<%
xxid=CheckStr(request("id"),0)
set rs=server.createobject("ADODB.recordset")
sql = "select * from jle_info where id="&xxid&""
rs.open sql,conn,1,1
biaoti=rs("biaoti")
xurl=rs("xurl")
rs.close
set rs=nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=biaoti%>-所有评论-<%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="zh-cn" />
<meta name="Keywords"  content="<%=metakey%>" />
<meta name="Description" content="<%=metades%>" />
<link rel="icon" href="<%=web%>/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="<%=web%>/favicon.ico" type="image/x-icon" />
<link href="css/style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%call top()%><div id="Fmain">


 <div id=FFTit class=F12bold><a href="/">首页</a>-<a href="#">所有评论</a></div><div id=FFContent><div Class='FFdiv'>
<%
if request("page")="" then
ThisPage=1		
else
ThisPage=request("page")
end if
dim  cla1,endtime,bt,nr
set rsso=server.createobject("ADODB.recordset")
sql = "select * from reply where xxid='"&xxid&"' order by hfsj desc"
rsso.open sql,conn,1,1
if rsso.eof then
response.write "还没有相关信息！"
else
Pagesize=rsso.Pagesize
Allrecord=rsso.Recordcount
Allpage=rsso.Pagecount
if ThisPage<1 then                           
ThisPage=1                           
end if
On Error Resume Next
rsso.move (ThisPage-1)*Pagesize
%>
<table topmargin="0" leftmargin="0" bottommargin="0" rightmargin="0" cellspacing="0" cellpadding="0" width="965">
<tr><td colspan="2" style="border-left-width: 1px; border-right-width: 1px; border-top: 1px; border-bottom-width: 1px; background-color: #F2F2F2" height="25">
<a href="<%=xurl%>"><%=biaoti%></font></a>
共有<b><%=Allrecord%></b>条相关评论信息&nbsp;&nbsp; <a href="<%=xurl%>#RE"><font color="#FF0000">继续发布评论&gt;&gt;&gt;</font></a></td></tr>
<tr><td align="center" valign="top" width="100%"><div class=h></div>
<table border="0" width="100%" id="table1" style="border-collapse: collapse" cellspacing="2">
<%
b=trim(rsso("b"))
dim k,bgc
Counter=0
for k = 1 to 10
if not rsso.eof then
bgc="ffffff"
if k mod 2 =1 then 
bgc="F5F8F8"
else
bgc="ffffff"
end If
response.write "<tr bgcolor=#"&bgc&"><td  style=""border-bottom:1px #cad9ea dotted"">"
response.write "<li>↓该留言由<b>"
if rsso("username")<>"" then
response.write ""&rsso("username")&""
else
response.write "匿名用户"
end if
response.write "</b>在<b>"&rsso("hfsj")&"</b>发布<br>"&CheckStr(rsso("neirong"),6)&" "
response.write "</td></tr>"
else
exit for
end if
rsso.movenext
next
rsso.close
set rsso=nothing
%>
</table>
	<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#F2F2F2" width="100%">
<tr> 
<td height="25" width="119">
<p align="center">
共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
<td height="25" width="97">
<p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="25" width="123">
<p align="center">现在是第 
<font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="25" align="right">
<%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&id="&xxid&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&id="&xxid&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&id="&xxid&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&id="&xxid&">尾页</a>&nbsp;"     
end if
%>
</td></tr></table><%end if%>
<table width="965 "><tr><td>
<b><a href="<%=xurl%>"><font size="5"><p style="line-height: 200%; margin-top: 0; margin-bottom: 0"><%=biaoti%></font></a> <a href="<%=xurl%>#RE"><font color="#FF0000">继续发布留言&gt;&gt;&gt;</font></a></b></p>
</td></tr></table>
</div>
</div>
 <br style="clear:both;" />


<div id="footer">
<%
call bottom()
%>
</div>
</div>
</body>
　</html>