asp + oracle 分页方法（不用存储过程）

2022-07-15 80酷酷网 80kuku.com

　　oracle|存储过程|分页

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

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

asp + oracle 分页方法 （不用存储过程）

asp + oracle 分页方法（不用存储过程）