ASP中七种实现分页显示的方法

〓简介〓

MS Visual InterDev6.0中七种实现分页显示的方法我们在编制与数据库有关的Web网页时，由于要显示的数据量巨大，常常面临一个数据记录分页显示的问题。

--------------------------------------------------------------------------------

〓正文〓

在微软的ASP编程体系中，ADO对象的建立，使得从网页访问数据库成为一件易事，特别是ADO的Recordset对象使得控制数据的输出显示更为方便、自由。而在Visual InterDev6.0(以下简称VI6.0)中，由于Script Object Model（以下简称SOM）、Design-Time Control(以下简称DTC)以及Data Environment Object Model(以下简称DEOM)等对象模型的引入，使网页对数据库的访问设计显得更为方便。

因为主题方面的原因，关于数据库的连接，下文只给出代码和简要注释，而把重点放在如何利用Recordset对象（或控件）实现数据记录的分页显示方面。根据我的理解，分页显示的关键就在于对ADO的Recordset对象或DTC（设计时控件）的Recordset控件的属性和方法的熟练把握上。

这七种分页显示的方法概括起来说分四类：

第一、二种我暂取名叫“纯ASP法”，这也是国内的ASP网站上用得最多的方法，它们的区别仅在实现技巧的不同。这两种方法的实现最易理解，用到的对象概念也最少，对开发环境的要求也最低（只要记事本就行）。可以说，这两种方法的实质还是CGI的编程思想，只是在程序中引入了ADO对象而已。

第四、五种暂取名叫“SOM的DHTML法”。这两种方法要求在VI6.0的环境下，利用微软提出的脚本对象模型（Script Object Model）和DHTML中Table对象的与数据库绑定的新特性（许多书和文章只介绍了DHTML的CSS特性在样式设计中的运用而忽略介绍其数据绑定特性），实现在客户端控制翻页。但它要求用户的浏览器必须是支持DHTML，如：Microsoft Internet Explorer 4.0及以上的版本。

第六种暂取名叫“SOM服务器端法”。要求在VI6.0的环境下开发，它利用微软提出的脚本对象模型（Script Object Model）中的几个DTC控件：Recordset、PageObject、Grid等在服务器端(客户端)实现翻页控制。这是一种激动人心的、全新的编程方法，它把网页看成对象(这种对象模型和传统的DOM----document object model是有区别的：DOM只能控制客户端，而SOM可控制服务器端和客户端)，它真正实现了网页的面向对象编程。但遗憾的是，也许是我个人能力有限，这种技术我个人认为还不是很成熟，比如，与浏览器的结合还不是很好，这将在后文详细说明。

第七种暂取名叫“DEOM法”。它也是利用了VI6.0中建立的数据环境对象模型（Data Environment Object Model）建立Recordset对象。这也是在网页编程上比较少见的新方法，与SOM模型相比，自有它的优点，这将在后文详述。

在后面所举的所有例子源代码，都可以直接拷贝使用，你甚至可以不懂其原理，只要把其中的粗斜体字部分换成相应自己的数据库名或字段名就可以了。

在开始详细介绍各种分页方法前，让我们先创建一个数据库：用Office97中的access自创一个Employee.mdb，其中建一个表emp，只设三个字段：emp ID，last name和first name。为什么这么简单，是因为我们关心的是怎样处理recordset的结果。

第一种：参数直接代入法。

这种方法是用手工建立Recordset对象，利用其pagesize（每页指定显示记录数），pagecount（总页码数）和absolutepage（当前页码数）属性来控制分页的输出。分页采用<href>直接带页码参数的方法来控制翻页。网页的名字为emp1.asp。源代码如下：

<%//建立与employee.mdb数据库的连接。

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属性指定了每页要显示的记录条数

Page = CLng(Request("Page")) 'string型转化为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>"

//循环显示每条记录

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

Response.Write "</TABLE></CENTER>"%>

第二种：表单传送参数法

这种方法在创建Recordset对象时与第一种相同，只是在翻页控制时，采用<input>和case语句配合来实现翻页。网页的名字为:emp2.asp。此方法在编程逻辑上有个缺点：就是在按过“上页”或“下页”钮后，再在浏览器上按刷新按钮时，会自动翻页。源代码如下：

if Pagenum = "" Then Pagenum = 1 //从第一页开始显示

//建立数据库连接和Recordset对象实例rs。

与第一种方法相同，此处略过。

RS.Pagesize = 10 ' 设置一页中显示的记录条数为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 翻页按钮设置

||||||第三种：用Grid控件设计分页

所有的方法中，这种方法最容易。你只需拖DTC中的Recordset控件和Grid控件到asp网页中就行了。而且，你还能选择是在服务器平台还是在客户端平台控制翻页。缺点就是你必须用它给定的格式显示，而不能自己自由控制表格的显示格式。

方法如下：

在VI6.0中建一个工程emp.vip。再在工程中添加一个asp网页：emp3.asp。

第一步：选VI6.0菜单条上的“add data connect…”，按开发工具的导航提示，你就可以很容易地建立与Employee.mdb数据库的连接。从DTC工具栏中拖一个Recordset控件到网页中，并设置其属性。具体如图：

当你拖控件到网页中时，VI6.0会自动提示你“是否使用Scripting object model”，按yes。

第三步：从DTC工具栏中拖一个Grid控件到网页中，然后单击鼠标右键，设置其属性，如：选在第二步中创建的Recordset控件名，选择emp表中的字段，每页显示多少条记录以及显示格式等。非常简单方便，只要照着导航提示做就行了。如图：

第四种：DHTML法一。

数据记录显示在一个HTML表中。它利用DHTML中表的数据绑定特性来控制记录的分页显示。缺点就是你的翻页方法将被限制为一种特定的方式：只能“上页”和“下页”而不能“首页”和“末页”。由于是在客户端控制翻页，所以，这种和第五种方法是速度最快的，但遗憾的是它只能在支持DHTML的浏览器上使用。

在DHTML中，<TABLE>的DATASRC属性可使表格绑定到一个数据源，另一个属性DATAPAGESIZE可指定一页一次显示的记录数。

我们来看下面的例子：

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

第二步：输入下面的代码：

<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>First Name</TH>

</THEAD>

<TR>

<TD><DIV DATAFLD="Emp ID"></DIV></TD> //输出表内容

</TR>

</TABLE>

第三步：然后,增加一对DTCs Button按钮控件来做翻页导航，一个命名为“btnPrevious”（上一页），一个命名为“btnNext”（下一页）。它们相应的脚本如下：

Function btnPrevious_onclick()

Table1.previousPage()

End Function

Function btnNext_onclick()

Table1.nextPage()

End Function

</SCRIPT>

第五种：DHTML法二。

这种方法是对第四种方法的完善。采用手工编写脚本的方法，使我们能做“首页”，“末页”翻页导航按钮，并能确定每条记录的位置（记录号）。由于篇幅的关系，我在下面只介绍一个具体例子，并给出简要说明。其它关于DHTML和Recordset控件的一些属性和方法请读者自行参照相关书籍。这里需要提请注意的是，Recordset控件与第一、二种方法中介绍的ADO的Recordset对象有些不同：Recordset控件没有直接给出pagesize和pagecount等属性，需要用下面介绍的方法来计算。

第一步：拖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

第四步：编写显示每一页的函数。其中使用了许多DHTML的属性和方法，请读者自行参考相关书籍。

Sub DisplayData()

startRecord = ((gCurrentPageNumber - 1) * gRecordsPerPage) + 1 //计算每一页开始显示的记录号数（位置，第几条）

rowCtr = 1

lblPageNumber.innerHTML = gCurrentPageNumber & "/" & gMaxPageNumber

For recordPtr = startRecord To (startRecord + gRecordsPerPage - 1) //循环显示一页的各条记录

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

End Sub

另外，我们还需要在window对象的onload事件中编写如下脚本：

For rowCtr = 1 to gRecordsPerPage

Table1.insertRow(rowCtr) ' 插一新列

For cellCtr = 0 to 3

Table1.rows(rowCtr).insertCell()

||||||第六种：服务器端控制翻页方法。

如果我们在服务器端对数据进行分页形成HTML语句后再输出到客户端，就不会存在浏览器不支持DHTML的问题了。可是用服务器端法使得我们每次翻页时，都得让Recordset控件重新产生一次，因此速度肯定要比用DHTML的方法慢。但如果服务器足够快的话，这点慢客户是察觉不到的。

下面的例子中，我将介绍一个新的DTC控件：PageObject。这个控件使被指定的网页成为一个网页对象，用户在此网页的服务器脚本中组织的子程序和函数可被看作是该网页对象的方法。它提供了管理状态信息的一种先进的方法：网页对象有一些属性（变量），用户可以定义这些属性的生存期。因为以上这些特性，使我们在编制翻页的脚本时非常方便。

但这种方法的缺点是：

[1] [2] 下一页