利用SQL2000未公开的存储过程实现分页

create procedure p_splitpage        
    @sql nvarchar(4000), --要执行的sql语句    
    @currentpage int=2, --要显示的页码    
    @pagesize int=10, --每页的大小    
    @recordcount int=0 out, --记录数    
    @pagecount int=0 out --总页数    
    as    
    set nocount on    
    declare @p1 int    
    
    exec sp_cursoropen @p1 output,@sql,@scrollopt=1,@ccopt=1,@rowcount=@pagecount output    
    
    select @recordcount=@pagecount,@pagecount=ceiling(1.0*@pagecount/@pagesize)        
    ,@currentpage=(@currentpage-1)*@pagesize+1        
    select @recordcount recordcount ,@pagecount     pagecount,@currentpage     currentpage    
    exec sp_cursorfetch @p1,16,@currentpage,@pagesize        
    exec sp_cursorclose @p1    
    go