我用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---------------------------------------------
(出處:熱點網絡)
|