关于分页显示的问题（在线急等）

[mazefeng81]

小弟是个菜鸟，做了个留言板想分页显示留言，每页五条，我怎么写呢？

[nchen123]

<!--#include file="conn.asp"-->

<%
'最简单的ASP分页程序
set rs = server.createobject("adodb.recordset")
sql = "select * from news order by id desc"
rs.open sql,conn,1,1
%>

<%
dim page

page = Clng(request("page"))
rs.pagesize = 6
if page < 1 then page = 1
if page > rs.pagecount then page = rs.pagecount
rs.Absolutepage = page
%>

<%
for i=1 to rs.pagesize
%>

<a href=shownews.asp?id=<% = rs("id") %> target="_blank"><% = rs("bt")%></a><br/><br/>

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

<%
if page <> 1 then
response.write "<a href=index.asp?page=1>第一页</a> "
response.write "<a href=index.asp?page=" & (page-1) & ">上一页</a> "
end if

if page <> rs.pagecount then
response.write "<a href=yaday.asp?page=" & (page+1) & ">下一页</a> "
response.write "<a href=yaday.asp?page=" & rs.pagecount & ">尾页</a> "
end if
%>

第<%= page %>页/共有<%= rs.pagecount %>页

<form name="form1" method="get" action="index.asp">
<input name="page" size="2" value="<%=page%>">
<input type="submit" method="submit" value="GO">
</form>

// -------------------
// Archimond 阿克蒙德

[超级大笨狼]

ASP学习史上最强的数据分页方法

　　我观前辈的帖子，皆由于数据库的SQL大不一致，且SQL SERVER,ACCESS等菜鸟级数据库没有如rowid,_n_,obs等之类的辅助列，空有BETWEEN运算符而无用武之地，
又无如except之类的数据集运算符，真是令无数英雄尽折腰



　　偶详观各数据库SQL，得出是数据库就有取前面N条记录的SQL语法，如什么select top n*****之类的语法，而数据分页的关键问题是取后N条记录的语法偶深思良久，最后小悟，故出此言，还忘前辈们多多指点
　　
　　取记录集后N条记录的大法：
　　
　　假设：
　　
　　 1.有一sql语句将产生1000条记录 (select 唯一ID，其他字段 from 表集 where 条件 order by 排序)
　　 2.每页显示20条记录
　　 3.当前显示第5页
　　
　　实现如下：
　　 select * from
　　 (
　　 select * from (select top 20*4 唯一ID，其他字段 from 表集 where 条件 order by 排序) as a
　　 union all
　　 select * from (select top 20*5 唯一ID，其他字段 from 表集 where 条件 order by 排序) as b
　　 )
　　 a
　　 group by 唯一ID，其他字段 having count(唯一ID)=1 order by 排序
　　
　　运行此SQL，至此取记录集后N条记录大法就些完毕
　　
　　详细说明：
　　
　　此SQL语句的关键应用技巧在于union all和分组上的条件过滤语句
　　
　　大家可以根据此技巧完全可以做出一个通用的分页方法，如直接由用户传入sqlstr(sql语句)，NumPerPage（每页显示数），currpage（当前页），自己在再函数内组织成通成的SQL分页语句
　　
　　备注：
　　
　　当前页为1的话就不需要运行该SQL了，直接TOP一下就OK了
　　由于没有环境，该SQL性能无法测试，但相信不会低效
　　运行平台在access,sqlserver上都可运行，其它数据库平台只需改top关键字应该就可以就地运行了