asp + oracle 分页方法
来源:CSDN 发布时间:2010-05-11 20:09:00
代码如下:
'其中注释中有 ###的需要用户设置
'其中注释中有 参数传递 ** 的 说明要通过参数 传递。
'定义变量
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)
这就是全部代码,感兴趣的朋友,可以研究一下,或者将他封装起来,加上分页导航等方法。总之,希望此代码能对大家有用。
猜你喜欢
- 我们都知道在9i之前,要想获得建表和索引的语句是一件很麻烦的事。我们通常的做法都是通过export with rows=no来得到,但它的输
- 讲这个方法之前,我们应该先了解下插入节点时浏览器会做什么。在浏览器中,我们一旦把节点添加到document.body(或者其他节点)中,页面
- 定义本地站点在Dreamweaver中制作网站,您必须定义一个本地站点,它是您的计算机上任意位置的一个
- 语法结构: 1. Cast 语法结构:CAST ( expression AS data_type [ ( length ) ] ) 2.
- 今天暴风彬彬要讨论的网站可用 * ,是让你的网站文字链接提高一定的可用性,而且实现起来非常简单,其实这也算是提高用户体验的方法。扩大可点击区
- 代码如下:<% '/* 函数名称:Zxj_ReplaceHtmlClearHtml '/
- 被AJAX中DOM的操作郁闷了好几天,今天总算搞明白了,自学就是苦啊,苦的一把鼻涕一把泪的,把教训些出来,给后来者提个醒,老鸟就不要看了。下
- 假设有一个表,结构如下:mysql> CREATE TABLE `a` ( `id
- 本文主要介绍的是MySQL慢查询分析方法,前一段日子,我曾经设置了一次记录在MySQL数据库中对慢于1秒钟的SQL语句进行查询。想起来有几个
- shift:删除原数组第一项,并返回删除元素的值;如果数组为空则返回undefined var a = [1,2,3,4,5]; var b
- 如果你正在负责一个基于SQL Server的项目,或者你刚刚接触SQL Server,你都有可能要面临一些数据库性能的问题,这篇文章会为你提
- 用XMlhttp生成html页面,相关函数如下:<% ’定义xmlhttp function Get
- 很久以前写过如何成为优秀的设计师,近半年来经常做设计评审,有很多感触,顺便写一点下来,我们的Blog也应该有更高的更新频率。言归正传,我认为
- ORA-00600:internal error code,arguments:[num],[?],[?],[?],[?]产生原因:这种错误
- 最近的项目涉及到很多表单的制作,特别是复选框(checkbox)和单选框(radio)。但是在前端开发过程中发现,单(复)选框和它们后面的提
- 上个周末去书店时碰巧看到了AS3 CookeBook,我记得在apollo的alpha版快出来的时候,7yue就推荐过这个小册子,只不过我已
- 任何东西只要跟Google有关就总能给我们带来点儿惊喜,2008年9月2日发布的Google Chrome浏览器也不例外。Google Ch
- SQL中的单记录函数 1.ASCII 返回与指定的字符对应的十进制数; SQL> select ascii('A')
- 用字符串就可以轻松地获取每一个文件的名称和扩展名,但不要乱用:<%Function getFilename(text)tex
- 之前用Crystal做了一个数字转English Word的Formula刚刚心血来潮, 大半个晚上写了JS版本的数字转换, 由于JS的Bu