您的当前位置：首页正文

利用ASP实现Oracle数据记录的分页显示

来源：爱go旅游网

作者：网友供稿点击：14

西部数码-全国虚拟主机10强！20余项虚拟主机管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!虚拟主机可在线rar解压,自动数据恢复设置虚拟目录等.虚拟主机免费赠送访问统计,企业邮局.Cn域名注册10元/年,自助建站480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金!

文章页数：[1]

一、引言

通过浏览器访问数据量大的表时需要进行分页。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）

个人资料表

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 %>

//以下显示表头

个人资料表

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) %>

//编号

//姓名

//电话

//电子邮件 <%

rs.movenext

index = index + 1 //编号加1

number = number + 1 //计数器加1 wend rs.close %>

编号	姓名	电话	e-mail
<%response.write (index)%>	<%response.write rs(\"name\")%>	<%response.write rs(\"telephone\")%>	<%response.write rs(\"email\")%>

//以下表单实现页码导航

三、结束语

以上程序在服务器端为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

文章整理：西部数码--专业提供域名注册、虚拟主机服务

http://www.west263.com

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文