通用的分页存储过程

这几天研究一个分页存储过程，尽量做到通用，直接调用即可！简单实用@～
CREATE   PROCEDURE  Rperp_Page_Data_GetList
@tbname      sysname,             -- 要分页显示的表名
@FieldKey    sysname,             -- 用于定位记录的主键(惟一键)字段,只能是单个字段
@PageCurrent   int = 1 ,               -- 要显示的页码
@PageSize     int = 10 ,              -- 每页的大小(记录数)
@FieldShow    nvarchar ( 1000 ) = '' ,    -- 以逗号分隔的要显示的字段列表,如果不指定,则显示所有字段
@FieldOrder    nvarchar ( 1000 ) = '' ,   -- 以逗号分隔的排序字段列表,可以指定在字段后面指定DESC/ASC用于指定排序顺序
@Where       nvarchar ( 1000 ) = ''  ,   -- 查询条件
@pagecount   int  output ,
@count   int  output 
AS
DECLARE   @sql   nvarchar ( 4000 )
SET  NOCOUNT  ON
-- 检查对象是否有效
IF   OBJECT_ID ( @tbname )  IS   NULL
BEGIN
RAISERROR (N ' 对象"%s"不存在 ' , 1 , 16 , @tbname )
RETURN
END
IF   OBJECTPROPERTY ( OBJECT_ID ( @tbname ),N ' IsTable ' ) = 0
AND   OBJECTPROPERTY ( OBJECT_ID ( @tbname ),N ' IsView ' ) = 0
AND   OBJECTPROPERTY ( OBJECT_ID ( @tbname ),N ' IsTableFunction ' ) = 0
BEGIN
RAISERROR (N ' "%s"不是表、视图或者表值函数 ' , 1 , 16 , @tbname )
RETURN
END





-- 分页字段检查
IF   ISNULL ( @FieldKey ,N '' ) = ''
BEGIN
RAISERROR (N ' 分页处理需要主键（或者惟一键） ' , 1 , 16 )
RETURN
END



-- 其他参数检查及规范
IF   ISNULL ( @PageCurrent , 0 ) < 1   SET   @PageCurrent = 1
IF   ISNULL ( @PageSize , 0 ) < 1   SET   @PageSize = 10
IF   ISNULL ( @FieldShow ,N '' ) = N ''   SET   @FieldShow = N ' * '
IF   ISNULL ( @FieldOrder ,N '' ) = N ''
SET   @FieldOrder = N ''
ELSE
SET   @FieldOrder = N ' ORDER BY  ' + LTRIM ( @FieldOrder )
IF   ISNULL ( @Where ,N '' ) = N ''
SET   @Where = N ''
ELSE
SET   @Where = N ' WHERE  ' + @Where

-- 如果@PageCount为NULL值,则计算总页数(这样设计可以只在第一次计算总页数,以后调用时,把总页数传回给存储过程,避免再次计算总页数,对于不想计算总页数的处理而言,可以给@PageCount赋值)

IF   @PageCount   IS   NULL
BEGIN
SET   @sql = N ' SELECT @PageCount=COUNT(*) '
   + N '  FROM  ' + @tbname
   + N '   ' + @Where
EXEC  sp_executesql  @sql ,N ' @PageCount int OUTPUT ' , @PageCount  OUTPUT
SET   @count = @PageCount
SET    @PageCount = ( @PageCount + @PageSize - 1 ) / @PageSize
END



-- 计算分页显示的TOPN值
DECLARE   @TopN   varchar ( 20 ), @TopN1   varchar ( 20 )
SELECT   @TopN = @PageSize ,
@TopN1 = @PageCurrent * @PageSize  

-- 第一页直接显示
IF   @PageCurrent = 1

EXEC (N ' SELECT TOP  ' + @TopN
   + N '   ' + @FieldShow
   + N '  FROM  ' + @tbname
   + N '   ' + @Where
   + N '   ' + @FieldOrder )

ELSE
BEGIN
SELECT   @PageCurrent = @TopN1 ,
   @sql = N ' SELECT @n=@n-1,@s=CASE WHEN @n< ' + @TopN
    + N '  THEN @s+N '' , '' +QUOTENAME(RTRIM(CAST( ' + @FieldKey
    + N '  as varchar(8000))),N '''''''' ) ELSE N ''''  END FROM  ' + @tbname
    + N '   ' + @Where
    + N '   ' + @FieldOrder
SET   ROWCOUNT   @PageCurrent
EXEC  sp_executesql  @sql ,
  N ' @n int,@s nvarchar(4000) OUTPUT ' ,
   @PageCurrent , @sql  OUTPUT
SET   ROWCOUNT   0
IF   @sql = N ''
   EXEC (N ' SELECT TOP 0 '
    + N '   ' + @FieldShow
    + N '  FROM  ' + @tbname )
ELSE
BEGIN
   SET   @sql = STUFF ( @sql , 1 , 1 ,N '' )  
   -- 执行查询
   EXEC (N ' SELECT TOP  ' + @TopN
    + N '   ' + @FieldShow
    + N '  FROM  ' + @tbname
    + N '  WHERE  ' + @FieldKey
    + N '  IN( ' + @sql
    + N ' )  ' + @FieldOrder )
END
END
GO