明輝手游網(wǎng)中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

RecordSet分頁例子

[摘要]我用Recordsets建立頁轉(zhuǎn)移,它顯得比較簡單和易懂,如果Recordset建立正確的話,則不沒有分頁錯誤。 ============================================= '設(shè)置一個recordset頁面。在這個例子里,我們已有一個已經(jīng)做好的數(shù)據(jù)庫,并且把...

我用Recordsets建立頁轉(zhuǎn)移,它顯得比較簡單和易懂,如果Recordset建立正確的話,則不沒有分頁錯誤。
=============================================
'設(shè)置一個recordset頁面。在這個例子里,我們已有一個已經(jīng)做好的數(shù)據(jù)庫,并且把分頁的每一頁設(shè)為顯示一條記錄
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 ' 設(shè)置在每頁顯示多少條記錄iCnt = RS.PageCount ' 得到recordset里的記錄總數(shù)
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 ' 轉(zhuǎn)到指定的頁面(這里是session("pagenum")
RS.Absolutepage = Clng(session("Pagenum")) ' // 在Form中顯示記錄轉(zhuǎn)移
' // 記錄轉(zhuǎn)移按鈕設(shè)置 <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>
=====================================================
這是比較容易實現(xiàn)分頁的方法:)yobigd@home.com -----------------------------------------------
ASP精品屋 翻譯整理by explorer---------------------------------------------

(出處:熱點網(wǎng)絡(luò))


相關(guān)文章