通用分页存储过程

/*在上面提到的那篇文章的一开始大力推崇使用RowCoun的t方法,
可是由于原文中提供的方法不支持非unique字段的排序
大多场合都并不适用
文章末尾连作者自己提到,已经开始考虑改用cursor方法
可我对RowCount方法算是情有独中,于是对原文中该方法进行了改进
改进后的方法已基本上满足我的需要,现在发布出来,有用的朋友可以下载试用

修改记录:
    1)增加对非unique字段排序的支持,但必须设定一个PK字段(注:只要是unique字段都可以作为pk字段)
    2)增加记录总数输出参数
    3)修改原过程若干BUG

注:
     1)如表名参数为多表连接时,sort列必须指定表名;
     2)只支持单字段排序,有朋友如果问为什么不做成可以多字段排序的,理论上确实有这种可能性,
 但需要以一定的效率损失为代价,而且会使方法过于复杂,如真有这种需要,完全可以写一个单独的分页存储过程,
 无论在性能还是复杂度上都比通用要简单.
     3)由于时间原因没有大量测试,如有BUG,请您提出,立刻修正;
 
*/

 if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Paging_RowCount]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 drop procedure [dbo].[Paging_RowCount]
  GO
 
  SET QUOTED_IDENTIFIER ON
  GO
  SET ANSI_NULLS ON
  GO
  ---------------------------------------------------------------
 -- 分页存储过程(使用RowCount)  --edit by SiBen
-- summary:
--          获取表或表集合的分页数据
--          当多表连接时,sort列必须指定表名
---------------------------------------------------------------

CREATE PROCEDURE Paging_RowCount
(
@Tables varchar(1000),
@PK varchar(100),
@Sort varchar(200) = NULL,
@PageNumber int = 1,
@PageSize int = 10,
@Fields varchar(1000) = '*',
@Filter varchar(1000) = NULL,
@Group varchar(1000) = NULL,
@RecordCount int = 0 output
)
AS

/**//*Default Sorting*/
 IF @Sort IS NULL OR @Sort = ''
     SET @Sort = @PK
 
 /**//*Find the @PK type*/
 DECLARE @SortTable varchar(100)
 DECLARE @SortName varchar(100)
 DECLARE @strSortColumn varchar(200)
 DECLARE @operator char(2)
 DECLARE @type varchar(100)
 DECLARE @prec int
 
 /**//*Set sorting variables.*/   
 IF CHARINDEX('DESC',@Sort)>0
     BEGIN
         SET @strSortColumn = REPLACE(@Sort, 'DESC', '')
         SET @operator = '<'
     END
 ELSE
     BEGIN
         IF CHARINDEX('ASC', @Sort) > 0
             SET @strSortColumn = REPLACE(@Sort, 'ASC', '')
                 ELSE
                         SET @strSortColumn = @Sort
 
         SET @operator = '>'
     END
 
 
 IF CHARINDEX('.', @strSortColumn) > 0
     BEGIN
         SET @SortTable = SUBSTRING(@strSortColumn, 0, CHARINDEX('.',@strSortColumn))
         SET @SortName = SUBSTRING(@strSortColumn, CHARINDEX('.',@strSortColumn) + 1, LEN(@strSortColumn))
     END
 ELSE
     BEGIN
         SET @SortTable = @Tables
         SET @SortName = @strSortColumn
     END
 
 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 @strPageSize varchar(50)
 DECLARE @strStartRow varchar(50)
 DECLARE @strFilter varchar(1000)
 DECLARE @strSimpleFilter varchar(1000)
 DECLARE @strGroup varchar(1000)
 
 /**//*Default Page Number*/
 IF @PageNumber < 1
     SET @PageNumber = 1
 
 /**//*Set paging variables.*/
 SET @strPageSize = CAST(@PageSize AS varchar(50))
 SET @strStartRow = CAST(((@PageNumber - 1)*@PageSize + 1) AS varchar(50))
 
 /**//*Set filter & group variables.*/
 IF @Filter IS NOT NULL AND @Filter != ''
     BEGIN
         SET @strFilter = ' WHERE ' + @Filter + ' '
         SET @strSimpleFilter = ' AND ' + @Filter + ' '
     END
 ELSE
    BEGIN
        SET @strSimpleFilter = ''
        SET @strFilter = ''
    END
IF @Group IS NOT NULL AND @Group != ''
    SET @strGroup = ' GROUP BY ' + @Group + ' '
ELSE
    SET @strGroup = ''

/**//*Get rows count.*/
DECLARE @str_Count_SQL nvarchar(500)
SET @str_Count_SQL= 'SELECT @TotalCount=count(*) FROM ' + @Tables + @strFilter
EXEC sp_executesql @str_Count_SQL,N'@TotalCount int=0 output',@RecordCount output
   
/**//*Execute dynamic query*/   
IF @Sort = @PK
    BEGIN
       EXEC(
        '
        DECLARE @SortColumn ' + @type + '
        SET ROWCOUNT ' + @strStartRow + '
        SELECT @SortColumn=' + @strSortColumn + ' FROM ' + @Tables + @strFilter + ' ' + @strGroup + ' ORDER BY ' + @Sort + '
        SET ROWCOUNT ' + @strPageSize + '
        SELECT ' + @Fields + ' FROM ' + @Tables + ' WHERE ' + @strSortColumn + @operator + '= @SortColumn ' + @strSimpleFilter + ' ' + @strGroup + ' ORDER BY ' + @Sort + '
        '
        )
    END
ELSE
    BEGIN
        EXEC(
        '
        DECLARE @SortColumn ' + @type + '
        DECLARE @SortNullValue ' + @type + '
        DECLARE @PKStartValue int
        SET @SortNullValue=CAST('''' as '+ @type +')
        SET ROWCOUNT ' + @strStartRow + '
        SELECT @SortColumn= isNull(' + @strSortColumn + ',@SortNullValue), @PKStartValue = '+ @PK +' FROM ' + @Tables + @strFilter + ' ' + @strGroup + ' ORDER BY ' + @Sort + ','+ @PK +' Desc
        SET ROWCOUNT ' + @strPageSize + '
        SELECT ' + @Fields + ' FROM ' + @Tables + ' WHERE (isNull(' + @strSortColumn+',@SortNullValue)' + @operator + ' @SortColumn or (isNull(' + @strSortColumn+',@SortNullValue)=@SortColumn and '+ @PK +'<=@PKStartValue))' + @strSimpleFilter + ' ' + @strGroup + ' ORDER BY ' + @Sort + ','+ @PK +' Desc
        '
        )
    END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO