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

原创 2002年03月08日 09:00:00
         利用ASP实现Oracle数据记录的分页显示

一、引言<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />


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


PageSize:每页显示的记录数。


PageCount:根据用户设定好的PageSize和表中的总记录数,系统自动算出总页数。RecordCount:表中的总记录数。


AbsolutePage:表示当前页码。如将AbsolutePage属性设为3,则当前记录移至第3页第1条(也就是第31条)。


知道Recordset具有这几个属性后,相信大家都觉得实现记录的分页显示是很简单的。先打开数据库及表,再设定好PageSizeAbsolutePage,最后将记录数据输出到浏览器,就可以大功告成。诚然,使用AccessSQL server作数据库时,就这么简单,因为这两种数据库都支持Recordset的这几个用于分页的属性。与AccessSQL server相比,Oracle数据库提供更好的安全性,并且在数据量极大的情况下性能占优,然而Oracle并不支持这些分页属性。本文将介绍一种利用ASP实现对Oracle数据记录分页显示的方法,使得Oracle用户能够轻松方便地实现记录分页显示。


 


二、实现过程分析


1、  建立数据源


安装Oracle客户端软件,通过microsoft odbc for oracle驱动程序建立DSN,如:"DSN=servername;UID=user;PWD=password "


2、  建立数据表


简单的个人资料表结构如下(表名为data):


data:name,Varchar2telephone,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

【ASP】数据库查询的内容分页显示

对于大数据的查询,你不可以一次性地把所有数据中显示出来, 比如一张学生表上面有一百多号人, 那么在页面中就应该一次显示10人左右, 提供翻页功能给用户进行翻阅,不要一次性显示100多号人。 翻页系统是...
  • yongh701
  • yongh701
  • 2014年11月12日 10:23
  • 3950

JSP 分页显示数据 (Oracle)

要实现分页,首先我们要做的就是如何来编写SQL语句,网上也有很多,大家可以搜一下.在这里,我们使用一种比较常用的方式来编写SQL语句。代码如下: ----分页显示 select * from (sel...
  • yulei_qq
  • yulei_qq
  • 2013年11月19日 20:40
  • 6691

ASP.NET(四):ASP.net实现假分页显示数据

导读:在做数据查询的时候,有的时候查询到的数据有很多。通常呢,我们一般都是去拖动右侧边的滚动条。但是,有了分页后,我们就可以不必是使用滚动条,而直接通过分页查看我们想要的数据。在分页的过程中,有分为真...
  • u013034889
  • u013034889
  • 2015年05月09日 16:03
  • 1258

Oracle查询前10条记录及分页查询(第5条到第10记录)

如果你想了解Oracle查询前10条记录的相关实际应用方案的话,你就可以点击以下的文章对其在实际相关操作中的正确用法,有一个更加完善的认识,希望你在浏览完以下的文章会以下就是正文的详细内容的介绍。 ...
  • xiaole0313
  • xiaole0313
  • 2015年07月22日 14:09
  • 2791

asp.net中ListView分页功能

.aspx代码
  • yayun0516
  • yayun0516
  • 2014年11月17日 15:52
  • 1586

数据库查询结果分页显示思路

数据库查询结果分页显示思路,通过计算Result Set指针位置实现分页显示//设置页面显示数量 int pageSize; //获取要显示页面 int currentPage; //需要定义的参数...
  • ilifeiyun
  • ilifeiyun
  • 2017年05月03日 09:11
  • 241

Oracle使用存储过程分页

今天我要说的就是基于Oracle存储过程的一种简单的分页方式,首先就是页面前端发起对分页的请求,然后向Oracle存储过程中传入页面当前数,页面大小,查询的SQL语句,而存储过程返回来的则是数据总条数...
  • lingyiwin
  • lingyiwin
  • 2016年04月26日 17:31
  • 1614

ASP.NET大数据量分页技术的初步体验技巧

可以借助于GridView与AspNetPager(强大的开源分页控件)实现ASP.NET获取数据表格时的分页。 GridView分页功能较弱,分页切换速度不如AspNetPager。 两者可单独使用...
  • freeWayWalker
  • freeWayWalker
  • 2013年07月28日 18:11
  • 1737

【ASP】多张图片分页显示

图片翻页在一些漫画、电子书网站中同样起着中流砥柱的作用 反正网页编写的核心就是一页中不能出现太多内容。...
  • yongh701
  • yongh701
  • 2014年11月12日 15:44
  • 1733

Asp.net之真假分页大揭秘、使用AspNetPager实现真分页

最近在web界面的时候,遇到了一些非常现实的问题。最让人头疼的问题就是显示数据中的书画作品。这些书画作品都会以图片的形式展示给用户。 起初做的时候并没有想太多,只按着最简单的方式将所有的图片从数据库中...
  • jiuqiyuliang
  • jiuqiyuliang
  • 2014年01月11日 15:07
  • 17569
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用ASP实现Oracle数据记录的分页显示
举报原因:
原因补充:

(最多只允许输入30个字)