Oracle分页类

最新推荐文章于 2023-02-15 23:48:00 发布
最新推荐文章于 2023-02-15 23:48:00 发布
阅读量1.9k 收藏
点赞数
分类专栏： Oracle9 文章标签： oracle sql url function javascript table
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/fengzheng0306/article/details/1040987
版权

一、文件：  Cls_OracleShowoPage.asp

<%
 '说明:    使用此程序请保留以下信息
 '名称:    fengzheng Oracle 分页类
 '联系:    wangzj0306@126.com
 '类名：   Cls_OracleShowoPage
 '        （包括一个分页导航的 JS：showo_page.js）
 '
 '一、特点：
 '    1、优点：每次只取出相应的 PageSize 条记录，使用简单；
 '    2、缺点：在查询记录时，只能用SELECT * FROM ， 并且只能对单表进行查询，如果是多表查询，则应该把子查询另外写，再
 '             用 IN 的方法，把条件加入到  WHERE  里面去；
 
 '二、相关说明：
 '    1、PageSize                         设置每一页显示的记录数
 '    2、Conn                             设置  Connection
 '    3、Sql                              设置表名、条件、排序方式
 '                                        如：tablename$id>10 and name='33'$id desc
 '    4、JsUrl                            设置分页导航文件   showo_page.js   的相对路径
 '    5、GetRecCount                      私有成员，不能访问， 由  Sql  得到记录数
 '    6、RecCount                         通过调用   GetRecCount（）  得到记录总数
 '    7、ResultSet                        返回一个二维数组
 '    8、ShowPage(ByVal strTableWidth)    输出一个分页导航的表格，参数用来设置表格的宽度
 '                                        如：ShowPage("98%")，ShowPage("780")
 '    9、CheckNum                         私有成员，不能访问，判断  Page  参数的有效性
                 
 '三、例子：
 '    1、把类文件和分页导航文件进行拷贝；
 '    2、加入如下代码：
 '    <%
 '        Dim ors
 '        Set ors=new Cls_OracleShowoPage      '创建对象
 '        With ors
 '         .Conn=DbConn                         '设置   Connection
 '         .PageSize=20                         '设置每一页显示的记录数
 '         .Sql="TableName$WhereStr$orderstr"   '设置SQL，如：.Sql="SEP.scd_sep_tel$tel_tel like '%7322%'$tel_order desc"
 '         .JsUrl=""                            '设置分页导航文件   showo_page.js   的相对路径，在同一目录下，不在同一目录，则用相对路径如：.JsUrl="../"
 '        end With
 '        Rs=ors.ResultSet()                      '得到一个二维数组的结束集
 '        For i=0 to Ubound(Rs,2)                 '在这里设置自己的输出效果
 '            Response.Write(Rs(0,i) & "<br>")    '第一列，为序号列
 '            Response.Write(Rs(1,i) & "<br>")    '第二列，为数据表中的第一列
 '            Response.Write(Rs(2,i) & "<br>")    '第三列，为数据表中的第二列
 '            ........
 '        Next
 '
 '        Call ors.ShowPage("760")                '输出一个分页导航的表格，参数用来设置表格的宽度
 '     %'>
 '
 '
 '
 
 
 
%>

<%
Class Cls_OracleShowoPage
 Private Showo_PageSize,Showo_CurrPage
 Private Showo_Conn
 Private Showo_Table,Showo_Where,Showo_Order
 Private Showo_JsUrl
 Private Showo_RecCount,Showo_PageCount,GetRecCount_Sql,ResultSet_Sql,Showo_Sql
 '================================================================
 ' Class_Initialize 类的初始化
 '================================================================
 Private Sub Class_Initialize
  Showo_PageSize=10 '设定每页记录条数的默认值为10
  Showo_CurrPage=CheckNum(Trim(Request("Page")),1,-1) '获取当前面的值
  Showo_Order="" '默认排序
  Showo_Where="" '默认条件
 End Sub
 '================================================================
 ' PageSize 设置每一页记录条数,默认10记录
 '================================================================
 Public Property Let PageSize(ByVal intPageSize)
  Showo_PageSize=CheckNum(intPageSize,Showo_PageSize,-1)
 End Property
 '================================================================
 ' Conn 得到数据库连接对象
 '================================================================
 Public Property Let Conn(ByVal objConn)
  Set Showo_Conn=objConn
 End Property
 
 '================================================================
 ' Sql 取得sql所需表字段条件排序,输入:字段,表,条件,排序,主ID
 '================================================================
 Public Property Let Sql(ByVal str_sql) 
  Showo_Sql=Split(str_sql,"$")
  Showo_Table=Showo_Sql(0)
  Showo_Where=Showo_Sql(1)
  Showo_Order=Showo_Sql(2)
 End Property
 '================================================================
 ' JsUrl 取得showo_page.js的路径
 '================================================================
 Public Property Let JsUrl(ByVal strJsUrl)
  Showo_JsUrl=strJsUrl
 End Property
 
 '================================================================
 ' GetRecCount 取得记录总数
 '================================================================
 Private Function GetRecCount()
  Dim RecordCount
  GetRecCount_Sql="SELECT Count(*) FROM " & Showo_Table
  If Showo_Where<>"" Then
   GetRecCount_Sql=GetRecCount_Sql & " WHERE " & Showo_Where
  End If
  set RsCount=server.CreateObject("adodb.recordset")
  RsCount.Open GetRecCount_Sql,Showo_Conn,1,1,&H0001
  RecordCount=clng(RsCount(0))
  RsCount.Close
  set RsCount=nothing
  GetRecCount=RecordCount
 End Function
 '================================================================
 ' RecCount 记录总数
 '================================================================
 Public Property Get RecCount()
    RecCount=GetRecCount()
 End Property
 '================================================================
 ' ResultSet 返回分页后的记录集
 '================================================================
 Public Property Get ResultSet()
  ResultSet=Null
  Showo_RecCount=RecCount()'记录总数
  '当前页
  If Showo_RecCount>0 Then'如果总数大于0
      '得到页数
   If (Showo_RecCount mod Showo_PageSize)=0 Then
    Showo_PageCount=Showo_RecCount/Showo_PageSize
   Else
    Showo_PageCount=Showo_RecCount/Showo_PageSize+1
   End If
   '当前页
   Showo_CurrPage=CheckNum(Showo_CurrPage,1,Showo_PageCount)
   '根据当前页号，及每页显示记录数，从数据库中取出相应的记录的SQL
      ResultSet_Sql="select * from (select rownum r_n,temptable.* from ("
      ResultSet_Sql=ResultSet_Sql & "SELECT * FROM " & Showo_Table
      If Showo_Where<>"" Then
          ResultSet_Sql=ResultSet_Sql & " WHERE " & Showo_Where
      End If
      If Showo_Order<>"" then
          ResultSet_Sql=ResultSet_Sql & " ORDER BY " & Showo_Order
      End If
      ResultSet_Sql=ResultSet_Sql & ") temptable ) where r_n between " & (Showo_CurrPage-1)*Showo_PageSize+1 & " and " & Showo_CurrPage*Showo_PageSize
   '得到RS
   Set Showo_Rs = Server.CreateObject("adodb.RecordSet")
   Showo_Rs.Open ResultSet_Sql,Showo_Conn,1,1,&H0001
   ResultSet=Showo_Rs.GetRows(Showo_PageSize)
   Showo_Rs.close
   Set Showo_Rs=Nothing
  End If 
 End Property
 '================================================================
 ' ShowPage 得到分页导航
 '================================================================
 Public Sub ShowPage(ByVal strTableWidth)
  '----------得到分页导航-----------------------------
  Response.Write("<!--分页导航表格开始-->" & vbCrLf)
  Response.Write("<table width=" & strTableWidth & " border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">" & vbCrLf)
  Response.Write("  <tr>" & vbCrLf)
  Response.Write("    <td>" & vbCrLf)
  Response.Write("      <Script Language=""JavaScript"" type=""text/JavaScript"" src=" & Showo_JsUrl & "showo_page.js></Script>" & vbCrLf)
  Response.Write("      <Script Language=""JavaScript"">" & vbCrLf)
  Response.Write("          ShowoPage(""<table style='BORDER-COLLAPSE: collapse' borderColor='#111111' height='10' cellSpacing='0' cellPadding='0' width='95%' border='0'><tr><td vAlign='bottom'  style='font-family: Verdana,宋体; font-size: 11.5px; line-height: 15px'>"",""</td></tr></table>"",""页次:<font color='red'>"",""</font>/"","""",""&nbsp;"",""&nbsp;每页 <font color='red'>"",""</font> 条&nbsp;"",""&nbsp;共计：<font color='red'>"",""</font> 条记录</td><td vAlign='bottom' align='right'  style='font-family: Verdana,宋体; font-size: 11.5px; line-height: 15px'>"",""<font face=webdings>9</font>"",""<font face=webdings>7</font>"",""<font face=webdings>8</font>"",""<font face=webdings>:</font>"",""&nbsp;&nbsp;跳转:"",""<font color='orange'>["",""]</font>"","""","""",""<font color='red'>"",""</font>"","""",""""," & Showo_RecCount & "," & Showo_PageSize & ",2)")
  Response.Write(vbCrLf & "      </Script>" & vbCrLf)
  Response.Write("    </td>" & vbCrLf)
  Response.Write("  </tr>" & vbCrLf)
  Response.Write("</table>" & vbCrLf)
  Response.Write("<!--分页导航表格结束-->" & vbCrLf)
  '----------得到分页导航-----------------------------
 End Sub
 
 '================================================================
 ' 输入:检查字段,开始数字(默认数字),结束数字(为-1则不检查大小)
 '================================================================
 Private Function CheckNum(ByVal strStr,ByVal intStartNum,ByVal intEndNum)
  CheckNum=intStartNum
  If IsNumeric(strStr) Then CheckNum=Clng(strStr)       
  If intEndNum>-1Then
   If CheckNum<intStartNum Then CheckNum=intStartNum
   If CheckNum>intEndNum Then CheckNum=intEndNum
  End If
 End Function
 '================================================================
 ' Class_Terminate 类注销
 '================================================================
 Private Sub Class_Terminate()
  If IsObject(Showo_Conn) Then
   Showo_Conn.Close
   Set Showo_Conn=Nothing
  End If
 End Sub
End Class
%>

二、showo_page.js

(JS文件，在叶子js分页样式基础上做了修改；QQ:311673,MSN:ishows@msn.com,http://www.showo.com)

/**
*=================================================================
*名称:   叶子js分页样式
*Name:   ShowoPage With JavaScript
*RCSfile:  showo_page.js
*Revision:  0.04Beta
*Author:  yezi(叶子)
*Date:   2005-01-21 17:50:10
*Description: js分页样式，显示上一页下一页的翻页结果
*Contact:  QQ:311673,MSN:ishows@msn.com,http://www.showo.com
*=================================================================
*/

var url,CurrPage,re,CurrentPage,iurl,FirstPageUrl,PrevPageUrl,NextPageUrl,LastPageUrl,PageCount,prevpage,nextpage,PageStart,PageEnd,i,ipage;
 url=""+document.location;
 if (url.indexOf("Page=")==-1) {
  CurrPage=1;
 }
 else {
  re=/(/S.*)(Page=/d*)(/S.*|/S*)/g;
  CurrentPage=url.replace(re,"$2");
  CurrentPage=CurrentPage.replace("Page=","");
  //re=/(?:/S{1,}Page=|/D.*)/g;
  //CurrentPage=url.replace(re,"");
  url=url.replace("&Page="+CurrentPage,"");
  url=url.replace("Page="+CurrentPage+"&","");
  url=url.replace("Page="+CurrentPage,"");
 }
 url+=(url.indexOf("?")==-1)?"?":"&";
 url=url.replace("?&","?");
 url=url.replace("&&","&");
function FromatPage(str,StartNum,EndNum) {
 str+="";
 if (str.length>=1) {
  mynum=parseInt(str,10);
  if (isNaN(mynum)) {
   mynum=StartNum;
  }
  else {
   if (EndNum>-1) {
    mynum=(mynum<StartNum)?StartNum:mynum;
    mynum=(mynum>EndNum)?EndNum:mynum;
   }
   else {
    mynum=(mynum<StartNum)?StartNum:mynum;
   }
  }
 }
 else {
  mynum=StartNum;
 }
 return (mynum);
}
function CheckPage(iPageCount) {
 url+='&Page=';
 url=url.replace("?&","?");
 url=url.replace("&&","&");
 ipage=showoPage.value;
 location.href(url+FromatPage(ipage,1,iPageCount));
}
function ShowoPage(Tabstart,Tabend,CurrPageFont1,CurrPageFont2,PageCountFont1,PageCountFont2,PrePageFont1,PrePageFont2,RecCountFont1,RecCountFont2,FirstFont,PrevFont,NextFont,LastFont,Jump,PageNumFont1,PageNumFont2,PageNumFont3,PageNumFont4,LinkFont1,LinkFont2,LinkFont3,LinkFont4,iRecCount,iRecPerPage,iPageNum) {
 RecCount=FromatPage(iRecCount,0,-1);
 RecPerPage=FromatPage(iRecPerPage,1,-1);
 PageNum=FromatPage(iPageNum,0,-1);
 PageCount=(RecCount%RecPerPage==0)?(RecCount/RecPerPage):(FromatPage((RecCount/RecPerPage),0,RecCount)+1);
 CurrPage=(PageCount>0)?(FromatPage(CurrentPage,1,PageCount)):(FromatPage(CurrentPage,0,PageCount));
 prevpage=FromatPage((CurrPage-1),1,PageCount); 
 nextpage=FromatPage((CurrPage+1),1,PageCount);   
 if (CurrPage<=1&&PageCount<=1) {
  FirstPageUrl="&nbsp;"+LinkFont3+FirstFont+LinkFont4+"&nbsp;";
  PrevPageUrl="&nbsp;"+LinkFont3+PrevFont+LinkFont4+"&nbsp;";
  NextPageUrl="&nbsp;"+LinkFont3+NextFont+LinkFont4+"&nbsp;";
  LastPageUrl="&nbsp;"+LinkFont3+LastFont+LinkFont4+"&nbsp;";
 }
 else if (CurrPage==1&&PageCount>1) {
  FirstPageUrl="&nbsp;"+LinkFont3+FirstFont+LinkFont4+"&nbsp;";
  PrevPageUrl="&nbsp;"+LinkFont3+PrevFont+LinkFont4+"&nbsp;";
  NextPageUrl="&nbsp;<A href=/""+url+"Page="+nextpage+"/">"+LinkFont1+NextFont+LinkFont2+"</A>&nbsp;";
  LastPageUrl="&nbsp;<A href=/""+url+"Page="+PageCount+"/">"+LinkFont1+LastFont+LinkFont2+"</A>&nbsp;";
 }
 else if (CurrPage==PageCount) {
  FirstPageUrl="&nbsp;<A href=/""+url+"Page=1/">"+LinkFont1+FirstFont+LinkFont2+"</A>&nbsp;";
  PrevPageUrl="&nbsp;<A href=/""+url+"Page="+prevpage+"/">"+LinkFont1+PrevFont+LinkFont2+"</A>&nbsp;";
  NextPageUrl="&nbsp;"+LinkFont3+NextFont+LinkFont4+"&nbsp;";
  LastPageUrl="&nbsp;"+LinkFont3+LastFont+LinkFont4+"&nbsp;";
 }
 else {
 FirstPageUrl="&nbsp;<A href=/""+url+"Page=1/">"+LinkFont1+FirstFont+LinkFont2+"</A>&nbsp;";
  PrevPageUrl="&nbsp;<A href=/""+url+"Page="+prevpage+"/">"+LinkFont1+PrevFont+LinkFont2+"</A>&nbsp;";
  NextPageUrl="&nbsp;<A href=/""+url+"Page="+nextpage+"/">"+LinkFont1+NextFont+LinkFont2+"</A>&nbsp;";
  LastPageUrl="&nbsp;<A href=/""+url+"Page="+PageCount+"/">"+LinkFont1+LastFont+LinkFont2+"</A>&nbsp;";
 }
 PageStart=FromatPage((CurrPage-PageNum),1,PageCount); 
 PageEnd=FromatPage((CurrPage+PageNum),1,PageCount); 
 document.write (CurrPageFont1+CurrPage+CurrPageFont2+PageCountFont1+PageCount+PageCountFont2+PrePageFont1);
 document.write (RecPerPage+PrePageFont2+RecCountFont1+RecCount+RecCountFont2+FirstPageUrl+PrevPageUrl);
 if (CurrPage>=1) {
  for (i=PageStart;i<=PageEnd;i++) {
   if (i!=CurrPage) {
    document.write ("&nbsp;<A href=/""+url+"Page="+i+"/">"+PageNumFont1+i+PageNumFont2+"</A>&nbsp;");
   }
   else {
    document.write ("&nbsp;"+PageNumFont3+i+PageNumFont4+"&nbsp;");
   }
  }
 }
 document.write (NextPageUrl+LastPageUrl+Jump);
 //1、用户输入方式
 //document.write ("<INPUT type=/"text/" id=/"showoPage/" size=/"5/" maxlength=/"10/" οnkeydοwn=/"if (event.keyCode==13) CheckPage("+PageCount+")/">");
 //document.write ("<INPUT type=/"button/" value=/"Go/" onClick=/"CheckPage("+PageCount+")/">"+Tabend);
 //2、用户选择方式
 document.write ("<select id=/"showoPage/" onChange=/"CheckPage("+PageCount+")/">");
 for(i=1;i<=PageCount;i++) {
  if(i==CurrPage)
  {
   document.write ("<option value=" + i + " selected>" + i + "</option>")
  }
  else
  {
   document.write ("<option value=" + i + ">" + i + "</option>")
  }
 }
 document.write ("</select>"+Tabend);
}

fengzheng0306
关注
专栏目录
ORACLE分页查询SQL语句(最有效的分页)
代码充实生活的博客
11-01 31万+
** 一、效率高的写法 ** 1.无ORDER BY排序的写法。(效率最高) (经过测试，此方法成本最低，只嵌套一层，速度最快！即使查询的数据量再大，也几乎不受影响，速度依然！) SELECT * FROM (SELECT ROWNUM AS rowno, t.* FROM emp t WHERE hire_date BETWEEN TO_DATE ...
oracle 分页 很棒的sql语句
09-11
Oracle 分页实现方法详解 Oracle 分页是指从大量数据中取出特定页码的数据，以提高查询效率和用户体验。本文将详细介绍 Oracle 分页的实现方法，并提供一个实用的 SQL 语句示例。 分页的必要性 在数据库中，查询...
oracle分页
05-18
通过存储过程写出分页,需要的快来下载
oracle java分页类
wyq_leo的博客
09-03 108
这里我以从一个用户表中查询用户信息为例演示其用法： 1.将PageResultSet.java文件编译成class文件并放入你的Web应用程序的WEB-INF/classes/com/youngor/util目录下，可以对包名做相应修改。 2.在你的Action类中: 先从业务处理逻辑类中取出数据(ArrayList或Vector格式) UserBO userBO=new UserBO...
工具类->分页Page.java
11-24
Page分页java类 Page.getPageIndex(); Page.getPageCount(); Page.getPageSize(); ...
oracle 分页类文件
02-24
总的来说，这个分页类文件集合提供了一套完整的解决方案，用于在Oracle数据库上进行分页查询。通过合理的类设计和方法实现，可以简化开发流程，提升代码的可读性和维护性。在处理大量数据时，这样的工具显得尤为重要...
Oracle分页查询性能优化代码详解
01-19
对于数据库中表的数据的 Web 显示，如果没有展示顺序的需要，而且因为满足条件的记录如此之多，就不得不对数据进行分页处理。常常用户并不是对所有数据都感兴趣的，或者大部分情况下，他们只看前几页。 通常有以下...
Oracle分页查询的实例详解
12-15
以下是对Oracle分页查询的实例详解： 1. **Oracle分页查询基础** Oracle分页查询通常涉及ROWNUM伪列的使用。ROWNUM在查询执行过程中为每一行分配一个唯一的数字，从1开始递增。在以下两个示例中，我们可以看到两种...
oracle帮助类,分页帮助类-oracle-java
weixin_29661121的博客
04-04 71
/*** 分页帮助类** @author vernon.chen**/public class PaginationHepler {/*** 构建分页查询语句** @param querySQL* 原始查询语句* @param startIndex* 开始行索引号* @param lastIndex* 结束行索引号* @return...
oracle分页sql工具类
daodfs1的博客
04-27 262
话不多说，直接上代码 package com.xxx.common.util; public final class PagerHelper { /** * 获得总数的sql语句 * @param sql 原SQL语句 * @return 获得总记录数的SQL语句 */ public static CharSequence getTotalResultSql(CharSequ...
Oracle —— 几种分页方式
X-rapido的专栏
04-25 1728
Oracle —— 几种分页方式
Oracle的分页实现
热门推荐
death05的博客
12-07 3万+
在Oracle中实现分页的方法大致分为两种，用ROWNUM关键字和用ROWID关键字
oracle number类型_一文看懂Oracle分页实现方案的三种方式
weixin_39928787的博客
11-22 215
Oracle分页实现闲来无事，整理下Oracle、mysql、mssql以及PG数据库的分页实现方式，大家可以简单做个对比，看下不同数据库在分页这块是怎么实现的。今天先介绍一下Oracle分页的实现方式。oracle的分页一共有三种方式，但在Oracle中实现分页的方法主要是用ROWNUM关键字和用ROWID关键字两种。Rownum 和 Rowid是Oracle数据库所特有的，通过他们可以查询到指...
如果让你写一个MyBatis分页插件，你打算怎么实现？
Java笔记虾
07-16 1365
点击上方“后端技术精选”，选择“置顶公众号”技术文章第一时间送达！作者：祖大俊my.oschina.net/zudajun/blog/745232题外话，开发中遇到问题或...
jquery和ZUI分页器的实例
最新发布
qq_56715703的博客
02-15 1180
为一个空的 元素添加 [data-ride="pager"] 属性来启用分页器，通过 data-page、data-rec-total、data-rec-per-page 来分别指定初始状态时当前页数、总记录数和每页记录数。分页器是一个使用 JavaScript 增强的分页组件，不同于传统的。将当前的页码变成点击之后的页码，重新发送ajax请求即可。data-rec-per-page：每页有几条。data-rec-total：总的记录数。将分页器和ajax进行绑定。
ZUI + SSM框架下数据表格的使用
小鹏要逆袭的博客
03-01 3232
完成一个小项目，后端为SSM框架，前端使用了ZUI框架，下面记录了如何使用zui框架下的datagrid组件来实现传统页面下 1.加载数据 2.关键字搜索 3.按照字段排序 4.全选 常用功能的实现，整个过程实现不复杂。为了方便以后直接使用和参考，和其他使用相同或类似技术开发人员直接上手，将整个过程记录下来。 首先实现的页面效果如下： Demo前期的准备： 本实例使用了acco...
oracle一个比较完整的分页工具类Page
thamsyangsw的专栏
05-06 3449
package com.thams.bianYan;import java.io.Serializable;import java.util.ArrayList;public class Page implements Serializable{  private static final long serialVersionUID = 1L;  private static final in
Oracle分页查询工具类
"Oracle分页代码提供了一个工具类，用于实现数据库查询的分页功能，由Kang Xu编写。这个工具类包含了一系列属性和方法，方便在Java应用程序中调用，以实现对Oracle数据库的分页查询。" Oracle数据库在处理大量数据...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值