<!--#include file="conn.asp"-->
<LINK HREF="fox.css" REL="stylesheet" TYPE="text/css">
<%
dim rsbo,sqlbo
dim ThisPage,Pagesize,Allrecord,Allpage,tj
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
dim fp
           fp=Trim(Request.QueryString("fp"))

tj=0
set rsbo=server.createobject("adodb.recordset")
sqlbo="select * from FOX_ping where pid="&fp&" and yz=0 order by pjsj desc"
rsbo.open sqlbo,conn,1,1
rsbo.Pagesize=2
Pagesize=rsbo.Pagesize
Allrecord=rsbo.Recordcount
Allpage=rsbo.Pagecount
if ThisPage<1 then                           
ThisPage=1                           
end if
On Error Resume Next
rsbo.move (ThisPage-1)*Pagesize
if rsbo.eof then
response.write "还没有评论，你做第一个？！"
else
%>
				<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse" id="table170">
                <tr>
                  <td height="22" width="151" class="p9t"><p align="center"> 共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
                  <td height="22" width="126" class="p9t"><p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
                  <td height="22" width="118" class="p9t"><p align="center">现在是第 <font color="#CC5200"><%=ThisPage%></font> 页</td>
                  <td height="22" width="187" class="p9t"><p align="center">
 <%
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&fp="&fp&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&fp="&fp&">上一页</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)&"&fp="&fp&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&fp="&fp&">尾页</a>&nbsp;"     
end if
%>  
                    </td>
                </tr>
              </table>
              <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse" id="table169">

            <%do while not rsbo.eof%>
            <tr bgcolor="#CCCCCC">
              <td height="1"></td>
            </tr> 
                       <tr valign="middle" bgcolor="#F7F7F7">
              <td height="22" class="p10t">
				<font color="#FF6C3B">评论者：</font> <%=rsbo("username")%></td>
            </tr>

            <tr>
              <td height="22" width="84%" class="index_bk2" valign="top"><%=rsbo("neirong")%><br>----<i>发布时间：<%=rsbo("pjsj")%> [来自<%=rsbo("ip")%>]</i></td>
            </tr>
            <%
        tj=tj+1
        if tj>=Pagesize then exit do
        rsbo.movenext
        loop
        %>
        </table>




 <%end if
 rsbo.close
 set rsbo=nothing%></body></html>