基于RowNumber的分页存储过程

基于RowNumber的分页存储过程，可能不完善

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[Pagination]
@Page int = 1,      -- 当前页码
@PageSize int = 10,     -- 每页记录条数(页面大小)
@Table nvarchar(500),    -- 表名或视图名，甚至可以是嵌套SQL：(Select * From Tab Where ID>1000) Tab
@Field nvarchar(1000) = '*',   -- 返回记录集字段名，","隔开，默认是"*"
@OrderBy nvarchar(100) = 'ID ASC', -- 排序规则
@PK nvarchar(100),  --主键
@Filter nvarchar(500),    -- 过滤条件
@MaxPage smallint output,   -- 执行结果 -1 error, 0 false, maxpage true
@TotalRow int output,    -- 记录总数 /* 2007-07-12 22:11:00 update */
@Descript varchar(100) output  -- 结果描述
AS
BEGIN
Set ROWCOUNT @PageSize;

Set @Descript = 'successful';
-------------------参数检测----------------
IF LEN(RTRIM(LTRIM(@Table))) !> 0
Begin
  Set @MaxPage = 0;
  Set @Descript = 'table name is empty';
  Return;
End
if @Page<=0
    set @Page=1
IF LEN(RTRIM(LTRIM(@PK))) !> 0
Begin
  Set @MaxPage = 0;
  Set @Descript = 'PrimaryKey is empty';
  Return;
End

IF ISNULL(@PageSize,0) <= 0
Begin
  Set @MaxPage = 0;
  Set @Descript = 'page size error';
  Return;
End

IF ISNULL(@Page,0) <= 0
Begin
  Set @MaxPage = 0;
  Set @Descript = 'page error';
  Return;
End
-------------------检测结束----------------
DECLARE @Start_ID varchar(50)
DECLARE @End_ID varchar(50)
SET @Start_ID = convert(varchar(50),(@Page - 1) * @PageSize)
SET @End_ID = convert(varchar(50),@Page * @PageSize)

Begin Try
  -- 整合SQL
  Declare @SQL nvarchar(4000), @Portion nvarchar(4000);
--    if(@Page = 1)
--    begin
--        Set @SQL = 'select top ' + convert(varchar(10),@PageSize) + @Field + ' from ' + @Table
--        Set @SQL = @SQL + case when len(@Filter) >= 1 then ' where ' + @Filter end
--
--        if LEN(RTRIM(LTRIM(@OrderBy))) > 0
--            Set @SQL = @SQL + ' order by ' + @OrderBy
--    end
--    else
--    begin
      Set @Portion = ' ROW_NUMBER() OVER (ORDER BY '

      if LEN(RTRIM(LTRIM(@OrderBy))) > 0
            Set @Portion = @Portion  + @OrderBy + ','
      
      Set @Portion = @Portion + @PK + ') AS ROWNUM FROM ' + @Table;

      Set @Portion = @Portion + (CASE WHEN LEN(@Filter) >= 1 THEN (' Where ' + @Filter + ') AS tab') ELSE (') AS tab') END);

      Set @SQL = 'Select * FROM (Select ' + @Field + ',' + @Portion;

      Set @SQL = @SQL + ' Where tab.ROWNUM > ' + @Start_ID +' AND tab.ROWNUM <= ' + @End_ID;
    --end

  -- 执行SQL, 取当前页记录集
print @SQL
  Execute(@SQL);
  
  --------------------------------------------------------------------

  -- 整合SQL
--print len(@SQL)
--print len(@Portion)
  Set @SQL = 'Set @Rows = (Select MAX(ROWNUM) FROM (Select' + @Portion + ')';
print @SQL
  -- 执行SQL, 取最大页码
  Execute sp_executesql @SQL, N'@Rows int output', @TotalRow output;
--print @TotalRow
  if(isnull(@TotalRow,0)=0)
    Set @TotalRow = 0;
  Set @MaxPage = (CASE WHEN (@TotalRow % @PageSize)<>0 THEN (@TotalRow / @PageSize + 1) ELSE (@TotalRow / @PageSize) END);
End Try
Begin Catch
  -- 捕捉错误
  print ERROR_MESSAGE();
  Set @MaxPage = -1;
  Set @Descript = 'error line: ' + CAST(ERROR_LINE() AS varchar(8)) + ', error number: ' + CAST(ERROR_NUMBER() AS varchar(8)) + ', error message: ' + ERROR_MESSAGE();
print @Descript
  Return;
End Catch;

-- 执行成功
Return;
END