功能不错的分页存储过程，可支持多表查询，任意排序

功能不错的分页存储过程，可支持多表查询，任意排序 

 

Create   PROCEDURE  usp_PagingLarge
@TableNames   VARCHAR ( 200 ),     -- 表名，可以是多个表，但不能用别名
@PrimaryKey   VARCHAR ( 100 ),     -- 主键，可以为空，但@Order为空时该值不能为空
@Fields      VARCHAR ( 200 ),         -- 要取出的字段，可以是多个表的字段，可以为空，为空表示select *
@PageSize   INT ,             -- 每页记录数
@CurrentPage   INT ,         -- 当前页，0表示第1页
@Filter   VARCHAR ( 200 )  =   '' ,     -- 条件，可以为空，不用填 where
@Group   VARCHAR ( 200 )  =   '' ,     -- 分组依据，可以为空，不用填 group by
@Order   VARCHAR ( 200 )  =   ''      -- 排序，可以为空，为空默认按主键升序排列，不用填 order by
AS
BEGIN
     DECLARE   @SortColumn   VARCHAR ( 200 )
     DECLARE   @Operator   CHAR ( 2 )
     DECLARE   @SortTable   VARCHAR ( 200 )
     DECLARE   @SortName   VARCHAR ( 200 )
     IF   @Fields   =   ''
         SET   @Fields   =   ' * '
     IF   @Filter   =   ''
         SET   @Filter   =   ' Where 1=1 '
     ELSE
         SET   @Filter   =   ' Where  '   +    @Filter
     IF   @Group   <> ''
         SET   @Group   =   ' GROUP BY  '   +   @Group

     IF   @Order   <>   ''
     BEGIN
         DECLARE   @pos1   INT ,  @pos2   INT
         SET   @Order   =   REPLACE ( REPLACE ( @Order ,  '  asc ' ,  '  ASC ' ),  '  desc ' ,  '  DESC ' )
         IF   CHARINDEX ( '  DESC ' ,  @Order )  >   0
             IF   CHARINDEX ( '  ASC ' ,  @Order )  >   0
             BEGIN
                 IF   CHARINDEX ( '  DESC ' ,  @Order )  <   CHARINDEX ( '  ASC ' ,  @Order )
                     SET   @Operator   =   ' <= '
                 ELSE
                     SET   @Operator   =   ' >= '
             END
             ELSE
                 SET   @Operator   =   ' <= '
         ELSE
             SET   @Operator   =   ' >= '
         SET   @SortColumn   =   REPLACE ( REPLACE ( REPLACE ( @Order ,  '  ASC ' ,  '' ),  '  DESC ' ,  '' ),  '   ' ,  '' )
         SET   @pos1   =   CHARINDEX ( ' , ' ,  @SortColumn )
         IF   @pos1   >   0
             SET   @SortColumn   =   SUBSTRING ( @SortColumn ,  1 ,  @pos1 - 1 )
         SET   @pos2   =   CHARINDEX ( ' . ' ,  @SortColumn )
         IF   @pos2   >   0
         BEGIN
             SET   @SortTable   =   SUBSTRING ( @SortColumn ,  1 ,  @pos2 - 1 )
             IF   @pos1   >   0  
                 SET   @SortName   =   SUBSTRING ( @SortColumn ,  @pos2 + 1 ,  @pos1 - @pos2 - 1 )
             ELSE
                 SET   @SortName   =   SUBSTRING ( @SortColumn ,  @pos2 + 1 ,  LEN ( @SortColumn ) - @pos2 )
         END
         ELSE
         BEGIN
             SET   @SortTable   =   @TableNames
             SET   @SortName   =   @SortColumn
         END
     END
     ELSE
     BEGIN
         SET   @SortColumn   =   @PrimaryKey
         SET   @SortTable   =   @TableNames
         SET   @SortName   =   @SortColumn
         SET   @Order   =   @SortColumn
         SET   @Operator   =   ' >= '
     END

     DECLARE   @type   varchar ( 50 )
     DECLARE   @prec   int
     Select   @type = t.name,  @prec = c.prec
     FROM  sysobjects o 
     JOIN  syscolumns c  on  o.id = c.id
     JOIN  systypes t  on  c.xusertype = t.xusertype
     Where  o.name  =   @SortTable   AND  c.name  =   @SortName
     IF   CHARINDEX ( ' char ' ,  @type )  >   0
     SET   @type   =   @type   +   ' ( '   +   CAST ( @prec   AS   varchar )  +   ' ) '

     DECLARE   @TopRows   INT
     SET   @TopRows   =   @PageSize   *   @CurrentPage   +   1
     print   @TopRows
     print   @Operator
     EXEC ( '
        DECLARE @SortColumnBegin  '   +   @type   +   '
        SET ROWCOUNT  '   +   @TopRows   +   '
        Select @SortColumnBegin= '   +   @SortColumn   +   '  FROM   '   +   @TableNames   +   '   '   +   @Filter   +   '   '   +   @Group   +   '  orDER BY  '   +   @Order   +   '
        SET ROWCOUNT  '   +   @PageSize   +   '
        Select  '   +   @Fields   +   '  FROM   '   +   @TableNames   +   '   '   +   @Filter    +   '  AND  '   +   @SortColumn   +   ''   +   @Operator   +   ' @SortColumnBegin  '   +   @Group   +   '  orDER BY  '   +   @Order   +   '     
     ' )    
END

GO

 

--调用例子：
    --1.单表/单排序
    EXEC usp_PagingLarge 'bigtable','d_id','d_id,d_title,d_content,d_time',20,1,'','','d_id desc'
    --2.单表/多排序
    EXEC usp_PagingLarge 'bigtable','d_id','*',20,0,'','','d_time asc,d_id desc'
    --3.多表/单排序
    EXEC usp_PagingLarge 'bigtable left join bigtable_author on bigtable.d_id=bigtable_author.BigTable_id', 'bigtable.d_id', 'bigtable.d_id,bigtable.d_title,bigtable.d_content,bigtable.d_time,bigtable_author.d_author', 20, 0, '', '', 'bigtable.d_id asc'
    --4.多表/多排序
    EXEC usp_PagingLarge 'bigtable left join bigtable_author on bigtable.d_id=bigtable_author.BigTable_id', 'bigtable.d_id', 'bigtable.d_id,bigtable.d_title,bigtable.d_content,bigtable.d_time,bigtable_author.d_author', 20, 0, '', '', 'bigtable.d_time asc,bigtable.d_id desc'