oracle高效分页存储过程（百万数据级）

create or replace procedure Pager(
page in number,--数据页数，从1开始
pageSize in number,--每页大小
tableName nvarchar2,--表名
strWhere nvarchar2,--where条件
Orderby nvarchar2,
numCount out number,--总记录数
v_cur out pkg_query.cur_query) is

strSql varchar2(2000);--获取数据的sql语句
pageCount number;--该条件下记录页数
startIndex number;--开始记录
endIndex number;--结束记录

--作者：王东升
--时间：2010年1月8日14:54:32
--分页获取数据

begin
  strSql:=‘select count(1) from ‘||tableName;
  if strWhere is not null or strWhere<>‘‘ then 
     strSql:=strSql||‘ where ‘||strWhere;
  end if;  
  EXECUTE IMMEDIATE strSql INTO numCount;
  --计算数据记录开始和结束
  pageCount:=numCount/pageSize+1;
  startIndex:=(page-1)*pageSize+1;
  endIndex:=page*pageSize;
  
  strSql:=‘select rownum ro, t.* from ‘||tableName||‘ t‘;  
  strSql:=strSql||‘ where rownum<=‘||endIndex;
  
  if strWhere is not null or strWhere<>‘‘ then 
     strSql:=strSql||‘ and ‘||strWhere;
  end if;
  
  if  Orderby is not null or Orderby<>‘‘ then 
     strSql:=strSql||‘ order by ‘||Orderby;
  end if;
  
  strSql:=‘select * from (‘||strSql||‘) where ro >=‘||startIndex;  
  DBMS_OUTPUT.put_line(strSql);

  OPEN v_cur FOR strSql; 
end Pager;