ASP中實現(xiàn)分頁顯示的七種方法

＜%//建立與employee.mdb數(shù)據(jù)庫的連接。
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=employee.mdb"
//建立emp表的Recordset對象實例rs。
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "emp", conn, 3
PageSize = 10 //pagesize屬性指定了每頁要顯示的記錄條數(shù)
Page = CLng(Request("Page")) 'string型轉(zhuǎn)化為long型
If Page ＜ 1 Then Page = 1
If Page ＞ rs.PageCount Then Page = rs.PageCount
If Page ＜＞ 1 Then
　Response.Write "＜A HREF=emp1.asp?Page=1＞第一頁＜/A＞"
　Response.Write "＜A HREF=emp1.asp?Page="  (Page-1)  "＞上一頁＜/A＞"
End If
If Page ＜＞ rs.PageCount Then
　Response.Write "＜A HREF=emp1.asp?Page="  (Page+1)  "＞下一頁＜/A＞"
　Response.Write "＜A HREF=emp1.asp?Page="rs.PageCount  "＞最后一頁＜/A＞"
End If
Response.write"頁碼："  Page  "/"  rs.PageCount  "＜/font＞"
//每一頁的顯示
//顯示表頭
Response.Write "＜CENTER＞＜TABLE BORDER=1＞"
Response.WRITE "＜TR＞＜TD＞"  rs.Fields("emp ID").Name  "＜/TD＞"
Response.WRITE "＜TD＞"  rs.Fields("last name").Name  "＜/TD＞"
Response.WRITE "＜TD＞"  rs.Fields("first name").Name  "＜/TD＞＜/TR＞"
//循環(huán)顯示每條記錄
rs.AbsolutePage = Page //把頁碼賦給absolutepage屬性從而知當前頁的首條記錄號
For iPage = 1 To rs.PageSize //
Response.WRITE "＜TR＞＜TD＞"  rs.Fields("emp ID").Value  "＜/TD＞"
Response.WRITE "＜TD＞"  rs.Fields("first name").Value  "＜/TD＞"
Response.WRITE "＜TD＞"  rs.Fields("last name").Value  "＜/TD＞＜/TR＞"
rs.MoveNext
If rs.EOF Then Exit For
Next
Response.Write "＜/TABLE＞＜/CENTER＞"%＞

if Pagenum = "" Then Pagenum = 1 //從第一頁開始顯示
//建立數(shù)據(jù)庫連接和Recordset對象實例rs。
與第一種方法相同，此處略過。
RS.Pagesize = 10 ' 設置一頁中顯示的記錄條數(shù)為10條
// 確定翻頁的動作
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
RS.Absolutepage = Clng(session("Pagenum")) //確定當前頁的第一條記錄號
// 顯示當前頁
同第一種方法，此處略過。
// Nav 翻頁按鈕設置
＜form method="GET" action="emp2.asp"＞
＜input type="submit" name="NAV" Value="首頁"＞
＜input type="submit" value="上頁" name="NAV"＞
＜input type="submit" value="下頁" name="NAV"＞
＜input type="submit" value="末頁" name="NAV"＞＜/form＞

＜TABLE ID="Table1" DATASRC="#Recordset1_RDS" DATAPAGESIZE=5＞ //假定前面設定Recordset控件名為Recordset1。每頁顯示5條記錄。
＜THEAD＞
＜TH ALIGN="left" WIDTH=150＞Emp ID＜/TH＞ //輸出表頭
＜TH ALIGN="left" WIDTH=200＞Last Name＜/TH＞
＜TH ALIGN="left" WIDTH=200＞First Name＜/TH＞
＜/THEAD＞
＜TR＞
＜TD＞＜DIV DATAFLD="Emp ID"＞＜/DIV＞＜/TD＞ //輸出表內(nèi)容
＜TD＞＜DIV DATAFLD="Last Name"＞＜/DIV＞＜/TD＞
＜TD＞＜DIV DATAFLD="First Name"＞＜/DIV＞＜/TD＞
＜/TR＞
＜/TABLE＞

＜SCRIPT LANGUAGE=VBScript＞
Function btnPrevious_onclick()
Table1.previousPage()
End Function
Function btnNext_onclick()
Table1.nextPage()
End Function
＜/SCRIPT＞

Dim gCurrentPageNumber //當前頁號
Dim gMaxPageNumber //最大頁數(shù)
Dim gRecordsPerPage //每頁顯示記錄數(shù)
gRecordsPerPage = 5 // 設置每頁顯示記錄數(shù)為5條記錄。
Function Recordset1_ondatasetcomplete()
totalRecordCount = Recordset1.getCount() //總的記錄條數(shù)
gMaxPageNumber = Int(totalRecordCount / gRecordsPerPage) //獲得最大頁數(shù)
If (totalRecordCount Mod gRecordsPerPage) ＞ 0 then
gMaxPageNumber = gMaxPageNumber + 1
End If
End Function

Function btnFirst_onclick() ' 翻到首頁
　gCurrentPageNumber = 1
　DisplayData()
End Function
Function btnPrevious_onclick() ' 翻到上一頁
　if gCurrentPageNumber ＞ 1 Then
　　gCurrentPageNumber = gCurrentPageNumber - 1
　　DisplayData()
　End If
End Function
Function btnNext_onclick() ' 翻到下一頁
　if gCurrentPageNumber ＜ gMaxPageNumber Then
　　gCurrentPageNumber = gCurrentPageNumber + 1
　　DisplayData()
　End If
End Function
Function btnLast_onclick() '翻到末頁
　gCurrentPageNumber = gMaxPageNumber
　DisplayData()
End Function

Sub DisplayData()
startRecord = ((gCurrentPageNumber - 1) * gRecordsPerPage) + 1 //計算每一頁開始顯示的記錄號數(shù)（位置，第幾條）
rowCtr = 1
lblPageNumber.innerHTML = gCurrentPageNumber  "/"  gMaxPageNumber
For recordPtr = startRecord To (startRecord + gRecordsPerPage - 1) //循環(huán)顯示一頁的各條記錄
　If recordPtr ＞ Recordset1.getCount() Then //顯示空表
　　Table1.rows(rowCtr).cells(0).innerHTML = "＜P＞ ＜/P＞"
　　Table1.rows(rowCtr).cells(1).innerHTML = "＜P＞ ＜/P＞"
　　Table1.rows(rowCtr).cells(2).innerHTML = "＜P＞ ＜/P＞"
　　Table1.rows(rowCtr).cells(3).innerHTML = "＜P＞ ＜/P＞"
　Else //具體顯示每一頁
　　Recordset1.moveAbsolute(recordPtr) //移動記錄指針。
　　empID = Recordset1.fields.getValue("emp ID")
　　empLName = Recordset1.fields.getValue("first name")
　　empFName = Recordset1.fields.getValue("last name")
　　Table1.rows(rowCtr).cells(0).innerText = recordPtr ' Counter
　　Table1.rows(rowCtr).cells(1).innerText = empID
　　Table1.rows(rowCtr).cells(2).innerText = empLName
　　Table1.rows(rowCtr).cells(3).innerText = empFName
　End If
　rowCtr = rowCtr + 1
Next
End Sub

For rowCtr = 1 to gRecordsPerPage
　Table1.insertRow(rowCtr) ' 插一新列
　For cellCtr = 0 to 3
　　Table1.rows(rowCtr).insertCell()
　Next
Next

Function Recordset1_ondatasetcomplete()
recordsPerPage = 5
empList.setRecordsPerPage(recordsPerPage)//設置網(wǎng)頁對象每頁記錄條數(shù)屬性為5
totalRecordCount = Recordset1.getCount()//獲得記錄集的總條數(shù)
mpn = Int(totalRecordCount / recordsPerPage) //計算出mpn為總頁數(shù)
If (totalRecordCount Mod recordsPerPage) ＞ 0 then
mpn = mpn + 1
End If
empList.setMaxPageNumber(mpn)
End Function

Function btnFirst_onclick()' 翻到首頁
　empList.setCurrentPageNumber(1)
End Function
Function btnPrevious_onclick()' 翻到上一頁
　cpn = empList.getCurrentPageNumber()
　if cpn ＞ 1 Then
　　empList.setCurrentPageNumber(cpn - 1)
　End If
End Function
Function btnNext_onclick()' 翻到下一頁
　cpn = empList.getCurrentPageNumber()
　if cpn ＜ empList.getMaxPageNumber() then
　　empList.setCurrentPageNumber(cpn + 1)
　End If
End Function
Function btnLast_onclick() ' 翻到末頁
　empList.setCurrentPageNumber( empList.getMaxPageNumber() )
End Function

Function empList_onEnter()
　If empList.firstEntered Then
　　empList.setCurrentPageNumber(1)
　End If
End Function
第五步：編寫顯示每一頁的腳本。
＜HR＞＜TABLE BORDER=0＞＜TR＞//顯示表頭
＜TH ALIGN="left" WIDTH=35＞＜/TH＞
＜TH ALIGN="left" WIDTH=150＞Emp ID＜/TH＞
＜TH ALIGN="left" WIDTH=200＞Last Name＜/TH＞
＜TH ALIGN="left" WIDTH=200＞First Name＜/TH＞＜/TR＞
＜%
pageNumber = empList.getCurrentPageNumber()//計算翻頁所需的各種參數(shù)，同DHTML法二
recordsPerPage = empList.getRecordsPerPage()
startRecord = ((pageNumber - 1) * recordsPerPage) + 1
lastRecord = Recordset1.getCount()
For recordPtr = startRecord To (startRecord + recordsPerPage - 1)%＞
＜%If Recordset1.EOF = True Then%＞
＜TR＞
＜TD＞ ＜/TD＞
＜TD＞ ＜/TD＞
＜TD＞ ＜/TD＞
＜TD＞ ＜/TD＞
＜/TR＞
＜%Else%＞
＜%Recordset1.moveAbsolute(recordPtr)%＞
＜TR＞
＜% If recordPtr ＜= lastRecord Then %＞
＜TD＞＜%=recordptr%＞＜/TD＞
＜%Else%＞
＜TD＞ ＜/TD＞
＜% End If %＞
＜TD＞＜%=Recordset1.fields.getValue("emp ID")%＞＜/TD＞
＜TD＞＜%=Recordset1.fields.getValue("last name")%＞＜/TD＞
＜TD＞＜%=Recordset1.fields.getValue("first name")%＞＜/TD＞
＜/TR＞
＜%End If%＞
＜%Next%＞
＜/TABLE＞＜HR＞