成熟sql 分页存储过程(UP_General_GetOrderPage)

GO
/****** Object:  StoredProcedure [dbo].[UP_General_GetOrderPage]    Script Date: 03/17/2011 11:16:42 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[UP_General_GetOrderPage]
    @tblName      nvarchar(255),       -- 表名 
    @strGetFields      nvarchar(1000),     -- 选择的字段列表以,分隔 
    @OrderFldName      nvarchar(500),  -- 排序字段以,分隔（不能含keyFldName指定的字段，可为空） 
    @orderFldDesc      nvarchar(500),  -- 排序字段及排序方向，如addDate desc,id desc（排序字段需通过selectOrderFldName指定，可为空） 
    @fldName      nvarchar(255),     -- 主键字段 
    @PageSize     int = 10,           -- 页尺寸 
    @PageIndex    int = 1,            -- 页码 
    @strWhere     nvarchar(1000) = '',  -- 查询条件(注意: 不要加where) 
    @RowCount int output
AS 
declare @strWhereA nvarchar(1200)            -- 临时变量，给sqlwhere加where 
declare @strOrderA nvarchar(2000)            -- 第一次排序类型 
declare @strOrderB nvarchar(2000)            -- 第二次排序类型 
declare @strSqlA nvarchar(4000)          -- 第一次选出 
declare @strSqlB nvarchar(4000)          -- 第二次选出 
declare @strSQL nvarchar(4000)           -- 最后选出 

    set @strSQL = 'select @RowCount=ISNULL(count(*),0) from  ' + @tblName + '   where  1=1 '+@strWhere 
    exec sp_executesql @strSQL,N'@RowCount int output',@RowCount out
       
    IF @RowCount=0
    BEGIN
        RETURN
    END
 --以上代码的意思是如果@doCount传递过来的不是0，就执行总数统计。以下的所有代码都是@doCount为0的情况 
    set @strSQL =''
/* 条件*/ 
if @strWhere != '' 
    set @strWhereA = ' where 1=1 ' + @strWhere 
else 
    set @strWhereA = '' 
     
/* 选择字段列表*/ 
if @strGetFields is null or rtrim(@strGetFields) = '' 
    set @strGetFields = '*' 
     
/* 排序字段列表*/ 
if not(@OrderFldName is null or rtrim(@OrderFldName) = '') 
    if rtrim(@OrderFldName) = 'id' 
        set @OrderFldName = '' 
    else 
        set @OrderFldName = ',' + @OrderFldName 
     
/* 构建order，按指定方式排序*/ 
if @orderFldDesc is null or rtrim(@orderFldDesc) = '' 
    set @orderFldDesc = ' order by id desc' 
else 
    set @orderFldDesc = ' order by ' + @orderFldDesc 
set @strOrderA = UPPER(@orderFldDesc) 
set @strOrderB =  replace(@strOrderA,'DESC','DESC1') 
set @strOrderB =  replace(@strOrderB,'ASC','DESC') 
set @strOrderB =  replace(@strOrderB,'DESC1','ASC') 

/* 第一页*/ 
if @PageIndex = 1 
    set @strSQL = 'select top ' + str(@PageSize) + ' ' + @strGetFields + ' from [' + @tblName + '] with(nolock)' + @strWhereA + ' ' + @strOrderA 
else 
    begin 
        --取得总记录数 
        declare @sql nvarchar(500) 
        declare @maxCount int 
        declare @maxPage int 
        declare @tempRowCount int 
        set @sql ='select @maxCount = count('+@fldName+') from [' + @tblName + ']' + @strWhereA 
        exec sp_executesql @sql,N'@maxCount int output',@maxCount output 
        set @maxPage = @maxCount / @PageSize 
        if(@maxCount % @PageSize > 0) 
            set @maxPage = @maxPage + 1 
        /* 最后一页*/ 
        if @PageIndex >= @maxPage 
            begin 
                set @PageIndex = @maxPage 
                set @strSqlA = char(13) + '(select top '+str(@maxCount % @PageSize)+' ' + @fldName + @OrderFldName + ' from [' + @tblName + '] as a with(nolock) ' + @strWhereA + @strOrderB + '  )' + char(13) 
                set @strSqlB = char(13) + '(select ' + @fldName +' from ' + @strSqlA  + ' as b )' + char(13) 
                set @strSQL = 'select ' + @strGetFields + ' from [' + @tblName + '] where ([' + @fldName + '] in '+@strSqlB+')' + @strOrderA + char(13) 
            end 
        else 
            begin 
                /* 不是第一页，也不是最后一页*/ 
                if(@PageIndex <= @maxPage / 2) 
                    begin 
                    --前半数的页 
                        set @tempRowCount = @PageIndex * @PageSize 
                        /* 构建SQL，本分页算法的目的是为了实现高效的非主键排序的分页。by tony */ 
                        /* 1、先按指定字段+主键字段按降序选出perPage*pageNum条记录*/ 
                        set @strSqlA = char(13) + '(select top '+str(@tempRowCount)+' ' + @fldName + @OrderFldName + ' from [' + @tblName + '] as a  with(nolock) ' + @strWhereA + @strOrderA + '  )' + char(13) 
                        /* 2、再从选出的记录中按升序选出perPage条记录*/ 
                        set @strSqlB = char(13) + '(select top '+str(@PageSize)+' ' + @fldName + ' from ' + @strSqlA  + ' as b ' + @strOrderB + '  )' + char(13) 
                        /* 3、从数据库中选出主键在第二次选出的记录中的记录，按降序排列，分页完成*/ 
                        set @strSQL = 'select ' + @strGetFields + ' from [' + @tblName + '] where ([' + @fldName + '] in '+@strSqlB+')' + @strOrderA 
                    end 
                else 
                    begin 
                    --后半数的页 
                        set @tempRowCount = @maxCount - (@PageIndex -1) * @PageSize 
                        /* 构建SQL，本分页算法的目的是为了实现高效的非主键排序的分页。by tony */ 
                        /* 1、先按指定字段+主键字段按降序选出perPage*pageNum条记录*/ 
                        set @strSqlA = char(13) + '(select top '+str(@tempRowCount)+' ' + @fldName + @OrderFldName + ' from [' + @tblName + '] as a  with(nolock) ' + @strWhereA + @strOrderB + '  )' + char(13) 
                        /* 2、再从选出的记录中按升序选出perPage条记录*/ 
                        set @strSqlB = char(13) + '(select top '+str(@PageSize)+' ' + @fldName + ' from ' + @strSqlA  + ' as b ' + @strOrderA + '  )' + char(13) 
                        /* 3、从数据库中选出主键在第二次选出的记录中的记录，按降序排列，分页完成*/ 
                        set @strSQL = 'select ' + @strGetFields + ' from [' + @tblName + '] where ([' + @fldName + '] in '+@strSqlB+')' + @strOrderA 
                    end 
                end 
    end 

set nocount on 

/*print @strSQL*/ --显示SQL 
exec (@strSQL) 
set nocount off 
RETURN