oracle 存储过程实现分页

  用oracle数据库的存储过程实现返回结果集并实现分页的功能。
用户传入参数
一下是转别人的代码
--包声明
create or replace package p_page is
  -- Author  : PHARAOHS
  -- Created : 2006-4-30 14:14:14
  -- Purpose : 分页过程
  TYPE type_cur IS REF CURSOR;     --定义游标变量用于返回记录集
 
  PROCEDURE Pagination(
  Pindex in number,                --分页索引
  Psize in number,                 --页面大小
  Pcount out number,               --返回分页总数
  v_cur out type_cur               --返回当前页数据记录
  );
  procedure PageRecordsCount(
  Prcount   out number             --返回记录总数
  );
end p_page;
--包体
create or replace package body p_page is
PROCEDURE Pagination(
  Pindex in number,
  Psize in number,
  Pcount out number,
  v_cur out type_cur
 )
 AS
  Psql VARCHAR2(1000);
  v_sql VARCHAR2(1000);     --
  v_count number;    
  v_Plow number;
  v_Phei number;
 Begin
  Psql := 'select rownum rn,t.* from TABLE_NAME t' ;            --选择数据的语句要求必须包含rownum字段
  ------------------------------------------------------------取分页总数
  v_sql := 'select count(*) from (' || Psql || ')';
  execute immediate v_sql into v_count;
  Pcount := ceil(v_count/Psize);
  ------------------------------------------------------------显示任意页内容
  v_Phei := Pindex * Psize + Psize;
&nb