asp oracle 分页显示,asp + 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

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

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)

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

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