RecordSet分页例子

答案：我用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中显示记录转移
    ' // 记录转移按钮设置  <form method="GET" action="secureorder.asp"> 
    <p><input type="submit" name="NAV" Value="First"><input type="submit" value="Prev" 
    name="NAV"><input type="submit" value="Next" name="NAV"><input type="submit" value="Last" 
    name="NAV"></p>   </form> 
===================================================== 
这是比较容易实现分页的方法：)yobigd@home.com -----------------------------------------------
ASP精品屋 翻译整理by explorer--------------------------------------------- 

上一个：ASP编程中15个非常有用的例子（一）
下一个：加亮显示ASP文章原代码