ASP中实现分页显示的七种武器

核心提示： 第一步：拖Recordset控件到新建的网页emp5.htm中，名字为Recordset1，ASP中实现分页显示的七种武器(6)，设置其属性，方法同第三种，此处略，第二步：定义三个全局变量和编写Recordset1的ondatasetcomplete（数据设置完成时）脚本

第一步：拖Recordset控件到新建的网页emp5.htm中，名字为Recordset1，设置其属性，方法同第三种，此处略。

第二步：定义三个全局变量和编写Recordset1的ondatasetcomplete（数据设置完成时）脚本。

Dim gCurrentPageNumber //当前页号
Dim gMaxPageNumber //最大页数
Dim gRecordsPerPage //每页显示记录数
gRecordsPerPage = 5 // 设置每页显示记录数为5条记录。
Function Recordset1_ondatasetcomplete()
totalRecordCount = Recordset1.getCount() //总的记录条数
gMaxPageNumber = Int(totalRecordCount / gRecordsPerPage) //获得最大页数
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