在浏览页面中，我们发现了每一页只浏览5条记录，你可以通过修改程序中定义一个常量"Record_Per_Page"来改变每一页浏览数据记录的个数。在知道了要浏览数据记录的总数后，通过下面代码来计算出要显示这些数据记录所需要的页面总数：
Const Record_Per_Page As Short = 5 '定义每一页显示的记录数
Dim nPageCount As Integer '保存总共的数据页面数目
Dim nPage As Integer '存放要浏览当前数据页面号
nPageCount = nRecCount \ Record_Per_Page
If nRecCount Mod Record_Per_Page > 0 Then
nPageCount += 1
End If
'确认浏览命令中的页面参数是否越界，如果越界则重置页面序号
If nPage < 1 Then
nPage = 1
End If
If nPage > nPageCount Then
nPage = nPageCount
End If |
（4）.数据导航的实现方法：
其实数据导航是通过对参数"Page"赋值来实现的，其中程序中的"nPage"是当前数据页面序号， "nPageCount"是数据页面的总和。下面是实现这些数据导航的具体实现代码：
（5）.显示不同页面的数据记录：
根据超链接字符串得到"Page"值，然后根据此值来得到在此页面中要显示的起始记录号和结束记录号，再通过一个循环把这些记录给显示出来。下面这行代码是读取参数"Page"：
| nPage = Convert.ToInt32 ( Request.QueryString ( "Page" ) ) |
下面这些代码是根据用户想要去的页面得到起始记录号和结尾记录号，并通过屏幕显示出来：
Dim nStart As Integer '存放当前页面的起始记录序号
Dim nEnd As Integer '存放当前页面的终止记录序号
Dim i As Integer
nStart = Record_Per_Page * ( nPage - 1 )
nEnd = nStart + Record_Per_Page - 1
If nEnd > nRecCount - 1 Then
nEnd = nRecCount - 1
End If
'在屏幕中输出记录
For i = nStart To nEnd
Response.Write ( DT.Rows ( i ) ( "ItemName" ) & "
" )
Next
|
在本文介绍的二种分页浏览记录类型中，对于数据显示，我们采用了简化处理。我们知道在浏览器上，浏览记录一般都是通过DbGrid的形式来实现的，这一点在其实也好实现，读者只需稍微修改一下本文中的程序代码就可以实现。
三． 第一种分页浏览数据记录的完整程序代码（no1.aspx）：
组织一下上面的这些步骤的实现方法，可以得到下列完整代码：
<% @ Page Language = "VB" %>
<% @ Import Namespace = "System.Data" %>
<% @ Import Namespace = "System.Data.OleDb" %>
|
