利用ASP实现Oracle数据记录的分页显示-服务器专区

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

作者：chinaitlab 佚名编辑： IT168 2006-01-11 00:00

　　【IT168 服务器学院】一、引言

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

　　<tr>

　　</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=(TotalRecordRecordsPerPage)

　　else

　　TotalPageNumber=((TotalRecordRecordsPerPage)+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

　　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>

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

　　If CurrentPageNumber<>0 Then //<SPAN style="FONT-FAMILY: 宋体; mso-ascii-font-family: ''

关注我们