RecordSet分頁例子 - 中國WEB開發者網絡 (http://www.webasp.net) -- 技術教程 (http://www.webasp.net/article/) --- RecordSet分頁例子 (http://www.webasp.net/article/1/360.htm)

-- 作者：未知 -- 發佈日期： 2003-04-14

我用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---------------------------------------------

webasp.net