利用ASP实现Oracle数据记录的分页显示
日期：2011-09-17 浏览次数：20852 次
一、引言
通过浏览器访问数据量大的表时需要进行分页。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
通过浏览器访问数据量大的表时需要进行分页。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
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
