<div align=center>

<table width="620" border="0" align="center" cellpadding="0" cellspacing="0">



<tr>
<td colspan="2">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" >


<%
	set rs=server.createobject("adodb.recordset")

	sql="select * from ku_pnews where newsid="&id	

	
	sql=sql&" order by id asc"

	rs.open sql,conn,1,1
	
	dim a,x
	x=1
	Set a=New PageList
	listLimit=5
	'模拟分页一页显示分页数
	pageLists=5
	'设置分页参数

If rs.BOF or rs.EOF Then 
%>

<tr bgcolor="#C6E3F4">
  <td height="24" colspan="5" align="center" bgcolor="#FFFFFF">
	<font color="#FF0000">暂无评论！</font></td>
  </tr>
<%
else

'分页循环开始
totalList=rs.recordcount
a.InitPara=array(totalList,listLimit,pageLists)
a.PageList()
rs.pagesize=listLimit
page = request("page")
If page="" Then
	page=1
End If
rs.absolutepage = page
for i=1 to rs.pagesize
%>
<tr  bgcolor=#FFFFFF>
<td align="center">
<div align="center">

<table style="border: 1px solid #F2F2F2; " width="610" height="80" bordercolor="#F5F5F5" cellpadding="0" cellspacing="0">
	<tr>
		<td height="16" width="15"></td>
		<td height="16" width="879" bgcolor="#F5F5F5"><b><font color="#FF0000" size="3"><%=rs.pagesize*(page-1)+i%></font></b> 
		<font color="#FFFF00">楼</font></td>
		<td height="16" width="14"></td>
	</tr>
	<tr>
		<td height="48%" width="15"></td>
		<td height="48%" width="879"><%=rs("content")%></td>
		<td height="48%" width="14">　</td>
	</tr>
	<tr>
		<td height="24" width="15">　</td>
		<td height="24" width="879" bgcolor="#FFEFDF"><p align="right">
		<font color="#800000">作者</font>：<%=rs("pname")%>   <font color="#800000">评论时间</font>：<%=rs("addtime")%>   
		<font color="#800000">IP地址</font>：<%=rs("addip")%>
		<a href="#"><font color="#FF0000">Top</font></a>

</td>
		<td height="24" width="14">　</td>
	</tr>
</table>

</div>

</td>


</tr><%
rs.movenext
if rs.eof then exit for
next

end if
%>
</table></td>
  </tr>
  <tr>
    <td colspan="2">   . <%=a.PageInfo%> .</td>
  </tr>
  <tr>
    <td colspan="2"></td>
  </tr>

</table>
</div>
<%
rs.close
set rs=nohing
%>