oracle分页存储过程

oracle分页存储过程（仅需要输入表名）

/*
*page slide procedure
*author:Robert.C
*time:2006.11.17
*/
CREATE OR REPLACE PROCEDURE TABLEPAGE_SELECT(v_page_size    int, --the size of a page of list
                                             v_current_page int, --the current page of list
                                             v_table_name varchar2,
                                             --v_sql_select   varchar2, --the select sql for procedure
                                             --v_sql_count    varchar2, --the count sql for procedure
                                             --v_out_recordcount OUT int, --the num of return rows
                                             p_cursor OUT refcursor_pkg.return_cursor) as
  v_sql         varchar2(3000); --the sql for select all rows of list
  v_sql_count   varchar2(3000); --the count sql for procedure
  v_count       int; -- the amount rows fo original list
  v_endrownum   int; --the end row num of the current page
  v_startrownum int; --the start row num of the current page
BEGIN
  ----catch the amount rows of list
  v_sql_count:='SELECT COUNT(ROWNUM) FROM '||v_table_name;
  execute immediate v_sql_count
    into v_count;
  -- v_out_recordcount := v_count;

  ----set the value of start and end row
  v_endrownum   := v_current_page * v_page_size;
  v_startrownum := v_endrownum - v_page_size + 1;

  ----the sql for page slide
  v_sql := 'SELECT * FROM (SELECT '||v_table_name||'.*, rownum rn FROM '||v_table_name||' WHERE rownum <= ' ||
           to_char(v_endrownum) || ')  WHERE rn >= ' ||
           to_char(v_startrownum);
  open p_cursor for v_sql;

END TABLEPAGE_SELECT;