可按任意字段排序的分页存储过程

转自：http://blog.youkuaiyun.com/taito/archive/2005/12/22/558990.aspx

第二种方案的思想是这样的,先用倒序的SELECT TOP (页序号+1)*页尺寸的方法取得AE结果集,再从AE结果集中用NOT IN 的方法排除掉用SELECT TOP 页序号*页尺寸的方法取得的结果集,最后,对目标结果集执行倒序,下面是实现的代码

create   PROCEDURE  dbo.GetPagingRecord
    (
        @tablename  varchar ( 100 ), -- 表名或视图表
        @fieldlist  varchar ( 4000 ) = ' * ' , -- 欲选择字段列表
        @orderfield  varchar ( 100 ), -- 排序字段
        @keyfield  varchar ( 100 ), -- 主键
        @pageindex  int , -- 页号,从0开始
        @pagesize  int = 20 , -- 页尺寸
        @strwhere  varchar ( 4000 ), -- 条件
        @ordertype  bit = 1 -- 排序,1,降序,0,升序
    )
AS
/**/ /*
名称:GetPagingRecord
作用:按任意字段进行排序分页
作者:菩提树(MARK MA)
时间:2004-12-14
声明:此代码你可以无偿使用及转载,但在转载时,请勿移称本文字声明
*/
     SET  NOCOUNT  ON
     declare  @sqlstr  varchar ( 6000 )
     -- 处理SQL中危险字符,并且将条件处理成易嵌入的形式
     set  @strwhere = replace (@strwhere, '''' , '''''' )
     set  @strwhere = replace (@strwhere, ' -- ' , '' )
     set  @strwhere = replace (@strwhere, ' ; ' , '' )
     set  @sqlstr = ' declare @CurPageNum int; '
     set  @sqlstr = @sqlstr + ' declare @nextpagenum int; '
     set  @sqlstr = @sqlstr + ' set @curpagenum= ' + cast (@PageIndex  as   varchar ) + ' * ' + cast (@Pagesize  as   varchar ) + ' ; '
     set  @sqlstr = @sqlstr + ' set @nextpagenum= ' + cast (@PageIndex + 1   as   varchar ) + ' * ' + cast (@Pagesize  as   varchar ) + ' ; '
     set  @sqlstr = @sqlstr + ' declare @sqlstr varchar(6000); '
     if  @ordertype = 1
     begin
     set  @sqlstr = @sqlstr + ' set @sqlstr= '' select  ' + @fieldlist + '  from ( select top  '' +cast(@nextpagenum as varchar)+ ''  * from 

' + @tablename + '   where  ' + @strwhere + '  order by  ' + @orderfield + '  desc ) as a where  ' + @keyfield + '  not in ( 

select top  '' +cast(@curpagenum as varchar)+ ''   ' + @keyfield + '  from  ' + @tablename + '  where  ' + @strwhere + '  

order by  ' + @orderfield + '  desc) order by  ' + @orderfield + '  desc '' ; '
     end
     else
     begin
     set  @sqlstr = @sqlstr + ' set @sqlstr= '' select  ' + @fieldlist + '  from ( select top  '' +cast(@nextpagenum as varchar)+ ''  * from 

' + @tablename + '   where  ' + @strwhere + '  order by  ' + @orderfield + '  asc ) as a where  ' + @keyfield + '  not in ( 

select top  '' +cast(@curpagenum as varchar)+ ''   ' + @keyfield + '  from  ' + @tablename + '  where  ' + @strwhere + '  

order by  ' + @orderfield + '  asc) order by  ' + @orderfield + '  asc '' ; '
     end
     set  @sqlstr = @sqlstr + ' execute( @sqlstr) '
     -- print @sqlstr
     execute (@sqlstr)

==========================================================

2009-9-1 gdjlc  修改：加上了返回记录总数

CREATE PROCEDURE dbo.GetPagingRecord
    (
        @tablename varchar(100),--表名或视图表
        @fieldlist varchar(4000)='*',--欲选择字段列表
        @orderfield varchar(100),--排序字段
        @keyfield varchar(100),--主键
        @pageindex int,--页号,从0开始
        @pagesize int=20,--页尺寸      
        @strwhere varchar(4000),--条件
        @ordertype bit=1--排序,1,降序,0,升序
    )
AS
/**//*
名称:GetPagingRecord
作用:按任意字段进行排序分页
作者:菩提树(MARK MA)
时间:2004-12-14
声明:此代码你可以无偿使用及转载,但在转载时,请勿移称本文字声明
*/
    SET NOCOUNT ON
    declare @sqlstr varchar(6000)
    --处理SQL中危险字符,并且将条件处理成易嵌入的形式
    set @strwhere=replace(@strwhere,'''','''''')
    set @strwhere=replace(@strwhere,'--','')
    set @strwhere=replace(@strwhere,';','')
    set @sqlstr='declare @CurPageNum int;'
    set @sqlstr=@sqlstr+'declare @nextpagenum int;'
    set @sqlstr=@sqlstr+'set @curpagenum='+cast(@PageIndex as varchar)+'*'+cast(@Pagesize as varchar)+';'
    set @sqlstr=@sqlstr+'set @nextpagenum='+cast(@PageIndex+1 as varchar)+'*'+cast(@Pagesize as varchar)+';'
    set @sqlstr=@sqlstr+'declare @sqlstr varchar(6000);'
    if @ordertype=1
    begin
    set @sqlstr=@sqlstr+'set @sqlstr=''select '+@fieldlist+' from ( select top ''+cast(@nextpagenum as varchar)+'' * from 
 
'+@tablename+'  where '+@strwhere+' order by '+@orderfield+' desc ) as a where '+@keyfield+' not in ( 
 
select top ''+cast(@curpagenum as varchar)+'' '+@keyfield+' from '+@tablename+' where '+@strwhere+' 
 
order by '+@orderfield+' desc) order by '+@orderfield+' desc'';'
    end
    else
    begin
    set @sqlstr=@sqlstr+'set @sqlstr=''select '+@fieldlist+' from ( select top ''+cast(@nextpagenum as varchar)+'' * from 
 
'+@tablename+'  where '+@strwhere+' order by '+@orderfield+' asc ) as a where '+@keyfield+' not in ( 
 
select top ''+cast(@curpagenum as varchar)+'' '+@keyfield+' from '+@tablename+' where '+@strwhere+' 
 
order by '+@orderfield+' asc) order by '+@orderfield+' asc'';'
    end
      
    begin
    set @sqlstr =@sqlstr+ ' select count(*) as Total from ' + @tablename + ' where  '+ @strwhere + ';'
    end

    set @sqlstr=@sqlstr+'execute( @sqlstr)'
    --print @sqlstr
    execute(@sqlstr)
GO

-----------------------------------------------------------------------

exec GetPagingRecord 'product','id,c_code,p_code,price','price','id',1,10,'1=1',1