分享
 
 
 

asp + oracle 分页方法 (不用存储过程)

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

asp 中查询 oracle数据库 的分页程序,没有用存储过程,效率还可以。

代码如下:

'''' 塞北的雪 分页利器(oracle) 不用存储过程 -------------------------

'其中注释中有 ###的需要用户设置

'其中注释中有 参数传递 ** 的 说明要通过参数 传递。

'定义变量

dim tOption '查询条件

dim tOrder '排序字符串

dim tOrderField '排序字段 可通过参数获得:order_field

dim tOrderDirection '排序方向 可通过参数获得:order_direction

dim tPageSize '页大小

dim tTotalCount '总记录数 可通过参数获得:t_count

dim tPageCount '页数

dim tCurPage '当前页号 可通过参数获得:page

dim tTableName '表或者视图名

dim tFieldList '查询的字段列表

dim tPageField '用于分页的字段

dim r_count '查得的记录数

set rs=server.createobject("adodb.recordset") '记录集对象

'排序处理

tOrderField=Request("order_field") '获得排序字段(参数传递 **)

tOrderDirection=Request("order_dir") '获得排序方向(参数传递 **)

if(tOrderField="") then tOrderField="item_code" ' ### 设置默认排序字段

if(tOrderDirection="") then tOrderDirection="asc" ' ### 设置默认排序方向

tOrder=" order by " & tOrderField & " " & tOrderDirection & " " '生成排序字符串

'定义参数

tPageSize=find_rs_count ' ### 设置页大小

tTableName="view_select1" ' ### 设置与查询的表格或视图

tFieldList=" * " ' ### 欲查询的字段列表

tPageField="item_code" ' ### 设置一个主键或唯一索引的字段 ,用于分页计算

'页数处理

tCurPage=Request("page") '获得当前页(参数传递 **)

tTotalCount=Request("t_count") '获得总页数(参数传递 **)

if(tCurPage="") then tCurPage=1

if(cint(tCurPage)=0) then tCurPage=1

if(tPageCount="") then tPageCount =1

if(cint(tPageCount)=0) then tPageCount=1

' 构造查询条件,根据具体的程序,肯定不一样。但是最后的条件必须是“ where ??? ”

tOption=" issue_flag='Y'" ' ### 设置条件

if f_c<>"" then tOPtion= tOPtion & f_c ' ### 设置条件

if trim(tOption)="" then

tOption = " where 1=1 " '如果没有条件,就自己加一个。

else

tOption= " where " & tOPtion

end if

'构造查询字符串,这个分页程序的核心,此查询串是我们只下载当前页所需的记录

sss="select * from (select rownum r_n,temptable.* from (select " & tFieldList & " from " & tTableName & " " & tOption & " " & tOrder & ") temptable ) where r_n between " & cstr((tCurPage -1) * tPageSize +1) & " and " & cstr(tCurPage * tPageSize)

'执行主查询,获得相应记录集

Call ConnDataBase() ' ### 建立数据库连接

rs.cursorlocation=3

rs.open conStr,conn,3,1 '执行查询

r_count= rs.recordcount

'当还没有查询过总记录数时 并且 总的记录数超过了页大小时 ,查询当前条件下的总的记录数

if(r_count>=tPageSize or tCurPage>1) and tTotalCount=0 then

set rr=conn.execute("select count(*) from " & tTableName & " " & tOption)

tTotalCount=rr(0)

rr.close()

set rr=nothing

end if

if(cint(tTotalCount)=0) then tTotalCount=r_count '如果总记录为0,将当前差得的记录集的记录数设置为总记录数,说明当前的总记录数小于页大小

'利用页大小和总记录数 计算页数

if(cint(tTotalCount)>cint(tPageSize)) then

tPageCount=cint((cint(tTotalCount) \ cint(tPageSize)))

if(cint(tTotalCount) mod cint(tPageSize))>0 then

tPageCount =tPageCount +1

end if

end if

tCurPage=cint(tCurPage)

tPageCount=cint(tPageCount)

' ---------------------------------------------------------------------

这就是全部代码,感兴趣的朋友,可以研究一下,或者将他封装起来,加上分页导航等方法。总之,希望此代码能对大家有用。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
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- 王朝網路 版權所有