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) isstrSql 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;