<% sql="select * from [Gbook] order by id desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if not rs.eof then Page=1 ' 设置变量PAGE=1 Rs.PageSize = 15 '每页显示记录数 If Not IsEmpty(Request("Page")) then '如果PAGE已经初始化... Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量 End If If Page > Rs.PageCount then '如果接收的页数大于总页数 Page = Rs.PageCount '设置当前显示页等于最后页 End If If Page <= 0 then '如果page小于等于0 Page = 1 '设置PAGE等于第一页 End If Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 for i=1 to 15 %> <% rs.movenext() if rs.eof then exit for end if next %> <% else %> <% end if %>
"> <%if rs("reply")<>"" then response.write "已回复" else response.write "新" end if%><%=rs("name")%>(<%=rs("tel")%>) <%=rs("pubdate")%> <%=rs("comment")%> ">删除
没有找到任何数据!
首页    上一页   下一页   尾页                  共<%=Rs.RecordCount%>条记录     每页<%=Rs.PageSize%>条     共<%=Rs.PageCount%>页    当前<%=Page%>页
<% rs.close() set rs=nothing %>