科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道利用ASP实现Oracle数据记录的分页显示

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

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

一、引言 通过浏览器访问数据量大的表时需要进行分页。ASP对数据库记录分页显示可以通过ADO对象集Recordset对象来实现。Recordset具有以下几个用于分页显示的属性: PageSize:每页显示的记录数。

作者:中国IT实验室 来源:中国IT实验室 2007年10月6日

关键字: 甲骨文 开发 数据库 ORACLE

  • 评论
  • 分享微博
  • 分享邮件

一、引言


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


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 //<SPAN style="FONT-FAMILY: 宋体; mso-ascii-font-family: '

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章