我用Recordsets建立页转移，它显得比较简单和易懂，如果Recordset建立正确的话，则不没有分页错误。

=============================================

'设置一个recordset页面。在这个例子里，我们已有一个已经做好的数据库，并且把分页的每一页设为显示一条记录

dim conn ' ADO connection Dim RS' Recordset Dim sSQL ' SQL Get

'if Pagenum = "" Then Pagenum = 1

Set conn = server.createobject("ADODB.connection")

Conn.Open"DSN=DatabaseName "set RS = Server.CreateObject("adodb.RecordSet")

sSQL = "Select * From tblOrders" Rs.Open sSql, Conn, 3 ' 建立单个页

RS.Pagesize = 1 ' 设置在每页显示多少条记录iCnt = RS.PageCount ' 得到recordset里的记录总数

Select Case Request("NAV") Case "" session("Pagenum") = 1

case "First" ' First Record session("Pagenum") = 1

case "Prev" ' Previous Record

if session("Pagenum") > 1 then

session("Pagenum") = session("Pagenum") - 1 End If

case "Next" ' Next Record

if session("Pagenum")< RS.PageCount then

session("Pagenum") = session("Pagenum") + 1 End if

case "Last" ' Last Record session("Pagenum") = RS.PageCount

End Select ' 转到指定的页面(这里是session("pagenum")

RS.Absolutepage = Clng(session("Pagenum")) ' // 在Form中显示记录转移

' // 记录转移按钮设置

=====================================================

这是比较容易实现分页的方法：)yobigd@home.com -----------------------------------------------

ASP精品屋 翻译整理by explorer---------------------------------------------