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)
'''' ---------------------------------------------------------------------
这就是全部代码,感兴趣的朋友,可以研究一下,或者将他封装起来,加上分页导航等方法。总之,希望此代码能对大家有用。
[Web开发]一个关于ASP运行时间计算的代码 [Web开发]ASP:检测含有中文字符串的实际长度 [Web开发]asp 中英文字符长度检测判断函数 [Web开发]安全维护 IIS asp 站点的高级技巧 [Access]ASP&SQL让select查询结果随机排序的实现方法 [Web开发]ASP字符串截取函数 [Web开发][asp]关键词只替换一次的写法 [Web开发]Asp无组件生成缩略图方法详解 [Web开发]asp编程中优化数据库方法详解 [Web开发]三种方法教你asp如何去除html标记
|