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

核心提示： 第三步：编写Recordset1的ondatasetcomplete事件，Function Recordset1_ondatasetcomplete()recordsPerPage = 5empList.setRecordsPerPage(recordsPerPage)//设置网页对象每页

第三步：编写Recordset1的ondatasetcomplete事件。

Function Recordset1_ondatasetcomplete()
recordsPerPage = 5
empList.setRecordsPerPage(recordsPerPage)//设置网页对象每页记录条数属性为5
totalRecordCount = Recordset1.getCount()//获得记录集的总条数
mpn = Int(totalRecordCount / recordsPerPage) //计算出mpn为总页数
If (totalRecordCount Mod recordsPerPage) ＞ 0 then
mpn = mpn + 1
End If
empList.setMaxPageNumber(mpn)
End Function

第四步：拖四个button控件到网页中，编写翻页控制脚本。我们主要是通过改变网页对象的CurrentPageNumber属性的值来实现翻页。

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

为保证首次进入该页时，显示的是第一页，我们还得编写该网页对象的onEnter事件。

Function empList_onEnter()
　If empList.firstEntered Then
　　empList.setCurrentPageNumber(1)
　End If
End Function