MSSQL2000和2005的分页

set ANSI_NULLS  ON
set QUOTED_IDENTIFIER  ON
go

ALTER  PROC  [ dbo ]. [ PROCE_PageView2000 ]
(
@tbname      nvarchar( 100),                -- 要分页显示的表名
@FieldKey    nvarchar( 1000),       -- 用于定位记录的主键(惟一键)字段,可以是逗号分隔的多个字段
@PageCurrent  int = 1,                -- 要显示的页码
@PageSize    int = 10,                 -- 每页的大小(记录数)
@FieldShow  nvarchar( 1000) = '',       -- 以逗号分隔的要显示的字段列表,如果不指定,则显示所有字段
@FieldOrder  nvarchar( 1000) = '',       -- 以逗号分隔的排序字段列表,可以指定在字段后面指定DESC/ASC
@WhereString     nvarchar( 1000) =N '',      -- 查询条件
@RecordCount  int OUTPUT              -- 总记录数
)
AS
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( @WhereString,N '') =N ''
     SET  @WhereString =N ''
ELSE
     SET  @WhereString =N ' WHERE ( ' + @WhereString +N ' ) '

-- 如果@RecordCount为NULL值,则计算总页数(这样设计可以只在第一次计算总页数,以后调用时,把总页数传回给存储过程,避免再次计算总页数,对于不想计算总页数的处理而言,可以给@RecordCount赋值)
IF  @RecordCount  IS  NULL
BEGIN
     DECLARE  @sql  nvarchar( 4000)
     SET  @sql =N ' SELECT @RecordCount=COUNT(*) '
         +N '  FROM  ' + @tbname
         +N '   ' + @WhereString
     EXEC sp_executesql  @sql,N ' @RecordCount int OUTPUT ', @RecordCount OUTPUT
END

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

-- 第一页直接显示
IF  @PageCurrent = 1
     EXEC(N ' SELECT TOP  ' + @TopN
         +N '   ' + @FieldShow
         +N '  FROM  ' + @tbname
         +N '   ' + @WhereString
         +N '   ' + @FieldOrder)
ELSE
BEGIN
     -- 处理别名
     IF  @FieldShow =N ' * '
         SET  @FieldShow =N ' a.* '

     -- 生成主键(惟一键)处理条件
     DECLARE  @Where1  nvarchar( 4000), @Where2  nvarchar( 4000),
         @s  nvarchar( 1000), @Field sysname
     SELECT  @Where1 =N '', @Where2 =N '', @s = @FieldKey
     WHILE  CHARINDEX(N ' , ', @s) > 0
         SELECT  @Field =LEFT( @s, CHARINDEX(N ' , ', @s) - 1),
             @s = STUFF( @s, 1, CHARINDEX(N ' , ', @s),N ''),
             @Where1 = @Where1 +N '  AND a. ' + @Field +N ' =b. ' + @Field,
             @Where2 = @Where2 +N '  AND b. ' + @Field +N '  IS NULL ',
             @WhereString = REPLACE( @WhereString, @Field,N ' a. ' + @Field),
             @FieldOrder = REPLACE( @FieldOrder, @Field,N ' a. ' + @Field),
             @FieldShow = REPLACE( @FieldShow, @Field,N ' a. ' + @Field)
     SELECT  @WhereString = REPLACE( @WhereString, @s,N ' a. ' + @s),
         @FieldOrder = REPLACE( @FieldOrder, @s,N ' a. ' + @s),
         @FieldShow = REPLACE( @FieldShow, @s,N ' a. ' + @s),
         @Where1 = STUFF( @Where1 +N '  AND a. ' + @s +N ' =b. ' + @s, 1, 5,N ''),    
         @Where2 = CASE
             WHEN  @WhereString = ''  THEN N ' WHERE ( '
             ELSE  @WhereString +N '  AND ( '
             END +N ' b. ' + @s +N '  IS NULL ' + @Where2 +N ' ) '

     -- 执行查询
     EXEC(N ' SELECT TOP  ' + @TopN
         +N '   ' + @FieldShow
         +N '  FROM  ' + @tbname
         +N '  a LEFT JOIN(SELECT TOP  ' + @TopN1
         +N '   ' + @FieldKey
         +N '  FROM  ' + @tbname
         +N '  a  ' + @WhereString
         +N '   ' + @FieldOrder
         +N ' )b ON  ' + @Where1
         +N '   ' + @Where2
         +N '   ' + @FieldOrder)
END

set ANSI_NULLS  ON
set QUOTED_IDENTIFIER  ON
go
CREATE  PROCEDURE  [ dbo ]. [ p_GetListByPage ]
(
  @TableName  varchar( 50),             -- 表名
  @ReFieldsStr  varchar( 200)  =  ' * ',    -- 字段名(全部字段为*)
  @OrderString  varchar( 200),          -- 排序字段(必须!支持多字段不用加order by)
  @WhereString  varchar( 500)  =N '',   -- 条件语句(不用加where)
  @PageSize  int  =  10,                      -- 每页多少条记录
  @PageIndex  int  =  1 ,                -- 指定当前为第几页
  @TotalPage  int  =  0 output,              -- 总页数
  @TotalRecord  int  =  0 output             -- 返回总记录数
)
AS
BEGIN 
     -- 处理开始点和结束点
     Declare  @StartRecord  int;
     Declare  @EndRecord  int; 
     Declare  @TotalCountSql  nvarchar( 500); 
     Declare  @SqlString  nvarchar( 2000);    
     SET  @StartRecord  = ( @PageIndex - 1) * @PageSize  +  1
     SET  @EndRecord  =  @StartRecord  +  @PageSize  -  1 
     SET  @TotalCountSql = N ' select @TotalRecord = count(*) from  '  +  @TableName; -- 总记录数语句
     SET  @SqlString  = N ' (select row_number() over (order by  ' +  @OrderString  + ' ) as rowId, ' + @ReFieldsStr + '  from  ' +  @TableName; -- 查询语句
     --
     IF ( @WhereString!  =  ''  or  @WhereString != null)
         BEGIN
             SET  @TotalCountSql = @TotalCountSql  +  '   where  ' +  @WhereString;
             SET  @SqlString  = @SqlString +  '   where  ' +  @WhereString;            
         END
     -- 第一次执行得到
     IF( @TotalRecord  is  null)
        BEGIN
            EXEC sp_executesql  @totalCountSql,N ' @TotalRecord int out ', @TotalRecord output; -- 返回总记录数
       END
     SET  @TotalPage  =  CEILING( @TotalRecord * 1.0 / @PageSize)
     -- --执行主语句
     SET  @SqlString  = ' select * from  '  +  @SqlString  +  ' ) as t where rowId between  '  +  ltrim( str( @StartRecord))  +  '  and  '  +   ltrim( str( @EndRecord));
     Exec ( @SqlString);
END
GO