千万数量级分页存储过程(可支持多表查询，任意排序)

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