分享
 
 
 

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

王朝asp·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

利用ASP实现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=(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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有