一、引言
通过浏览器访问数据量大的表时需要进行分页。asp对数据库记录分页显示可以通过ado对象集recordset对象来实现。recordset具有以下几个用于分页显示的属性：
pagesize：每页显示的记录数。
pagecount：根据用户设定好的pagesize和表中的总记录数，系统自动算出总页数。recordcount：表中的总记录数。
absolutepage：表示当前页码。如将absolutepage属性设为3，则当前记录移至第3页第1条（也就是第31条）。
知道recordset具有这几个属性后，相信大家都觉得实现记录的分页显示是很简单的。先打开数据库及表，再设定好pagesize和absolutepage，最后将记录数据输出到浏览器，就可以大功告成。诚然，使用access或sql server作数据库时，就这么简单，因为这两种数据库都支持recordset的这几个用于分页的属性。与access或sql server相比，oracle数据库提供更好的安全性，并且在数据量极大的情况下性能占优，然而oracle并不支持这些分页属性。本文将介绍一种利用asp实现对oracle数据记录分页显示的方法，使得oracle用户能够轻松方便地实现记录分页显示。
二、实现过程分析
1、 建立数据源
安装oracle客户端软件，通过microsoft odbc for oracle驱动程序建立dsn，如："dsn=servername;uid=user;pwd=password " 。
2、 建立数据表
简单的个人资料表结构如下（表名为data）：
data：name，varchar2；telephone，number；email，varchar2；
3、程序代码分析（在此只分析记录显示程序display.asp）
<html>
<head>
<title>个人资料表</title>
</head>
<%
sql = "select * from data" //sql语句，从data表中取出所有数据
//以下建立数据库连接
set conn = server.createobject("adodb.connection")
cnn.open "dsn=servername;uid=user;pwd=password;"
set rs = server.createobject("adodb.recordset")
rs.cursortype = 3
rs.locktype = 3
rs.open sql, conn
//如果没有记录，就退出
if rs.eof then
response.end
end if
%>
//以下显示表头
<p align="center">个人资料表<br></p>
<div align="center">
<center>
<table border="1" width="560" cellspacing="0" cellpadding="0">
<tr>
<td width="140" align="center">编号</td>
<td width="140" align="center">姓名</td>
<td width="140" align="center">电话</td>
<td width="140" align="center">e-mail</td>
</tr>
<%
recordsperpage=10 //设置每页显示记录数为10条记录
currentpagenumber=0 //设置当前页号为0
index=1 //设置记录编号为1
//如果当前页号参数不为空，则将其类型转换为长整型，并调用该参数
if request.querystring("currentpagenumber") <> "" then
currentpagenumber=clng(request("currentpagenumber"))
end if
//因为默认页号从0开始，所以要将参数减1
currentpagenumber=currentpagenumber-1
//以下计算总的记录条数
totalrrecord=0
while (not rs.eof)
rs.movenext
totalrecord=totalrecord+1
wend
//以下计算总页数totalpagenumber
if (totalrecord mod recordsperpage)=0 then
totalpagenumber=(totalrecord\recordsperpage)
else
totalpagenumber=((totalrecord\recordsperpage)+1)
end if
//如果输入页号参数小于0，则显示首页
if currentpagenumber<0 then
currentpagenumber=0
end if
//如果输入页号参数大于总页数减1，则显示最后一页
if currentpagenumber>(totalpagenumber-1) then
currentpagenumber=(totalpagenumber-1)
end if
//记录指针返回到第一个记录
rs.movefirst
//以下让纪录指针越过输入页号以前的记录，走到当前页的第一个纪录
passnumber = currentpagenumber*recordsperpage
for i=0 to passnumber -1
rs.movenext
next
index = passnumber + 1
number = 1 //number为计数器
//以下显示当前页的表内容
while (not rs.eof)and (number <= recordsperpage)
%>
<tr>
<td width="140" align="center"><%response.write (index)%></td> //编号
<td width="140" align="center"><%response.write rs("name")%></td> //姓名
<td width="140" align="center"><%response.write rs("telephone")%></td> //电话
<td width="140" align="center"><%response.write rs("email")%></td> //电子邮件
</tr>
<%
rs.movenext
index = index + 1 //编号加1
number = number + 1 //计数器加1
wend
rs.close
%>
</table>
</center>
</div>
</html>
//以下表单实现页码导航
<form action=display.asp method=get>
<%
if currentpagenumber<>0 then //如果当前页不是第一页，就提供“第一页”和“上一页”的链接
%>
<a href=display.asp?currentpagenumber=1>第一页</a>
<a href=display.asp?currentpagenumber=<%=(currentpagenumber)%>>上一页</a>
<%
end if
if currentpagenumber<>( totalpagenumber -1) then //如果当前页不是最后一页，就提供“下一页”和“最后一页”的链接
%>
<a href=display.asp?currentpagenumber=<%=(currentpagenumber+2)%>>下一页</a>
<a href=display.asp?currentpagenumber=<%=(totalpagenumber)%>>最后一页</a>
<%
end if
%>
//实现特定页的记录显示
输入页码:<input type=text name=currentpagenumber>现在处于第<%=(currentpagenumber+1)%>页/共<%=totalpagenumber%>页
//没有提供发送按钮，直接打回车就行
</form>
三、结束语
以上程序在服务器端为windows2000及iis5.0，客户端为windows98下运行通过，数据库采用oracle8.0。
参考文献：
[1]《24小时学通asp》，[美] christoph wille christian koller著，潇湘工作室译，人民邮电出版社，2000。
[2]《active server page & web数据库》,王国荣著，人民邮电出版社，2000。
参考网址：
[1]www.activeedu.net
[2]www.vbtip.com
