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)


\' ---------------------------------------------------------------------

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