解决几百万条以上数据分页让人蛋疼的 SQL2005, SQL2008最后一页卡死，最后一页查询超时的源码

-- =============================================
-- Author:        吉日嘎拉
-- Create date: 2012年02月23日
-- Description:    2012年02月23日编码规范化
-- =============================================
ALTER PROCEDURE [dbo].[GetRecordByPage] 
   @TableName          VARCHAR( 4000),           -- 表名
   @SelectField        VARCHAR( 4000),           -- 要显示的字段名(不要加select)
   @WhereConditional   VARCHAR( 4000),           -- 查询条件(注意: 不要加  where)
   @SortExpression     VARCHAR( 255),            -- 排序索引字段名
   @PageSize           INT =  20,                -- 页大小
   @PageIndex          INT =  1,                 -- 页码
   @RecordCount        INT OUTPUT,              -- 返回记录总数
   @SortDire           VARCHAR( 5) =  ' DESC '      -- 设置排序类型, 非  0 值则降序
AS
BEGIN

   DECLARE @commandText VARCHAR( 8000)      -- 主语句
   DECLARE @TopN INT                         -- 获取前几条记录
   DECLARE @PageCount INT                     -- 总共会是几页
   DECLARE @TopLimit INT                     -- 获取多少条记录
   DECLARE @SQLRowCount NVARCHAR( 4000)     -- 用于查询记录总数的语句
   DECLARE @SQLOrder VARCHAR( 400)          -- 排序类型
   DECLARE @SQLTemp VARCHAR( 4000)          -- 临时变量

   SET @Sort LTRIM(RTRIM(@SortExpression))
   SET @SortDire = UPPER(LTRIM(RTRIM(@SortDire)))

   -- 这里是计算整体记录行数
   IF @RecordCount IS NULL
   BEGIN
       IF @WhereConditional !=  ''
       BEGIN
         SET @SQLRowCount =  ' SELECT @RecordCount=COUNT(1) FROM  ' + @TableName +  '  WHERE  ' + @WhereConditional
       END
       ELSE
       BEGIN
         SET @SQLRowCount =  ' SELECT @RecordCount=COUNT(1) FROM  ' + @TableName
       END
   END

   -- SELECT @RecordCount=@@ROWCOUNT
   EXEC sp_executesql @SQLRowCount, N ' @RecordCount INT OUT ', @RecordCount  out

   IF @RecordCount IS NULL
   BEGIN
      SET @RecordCount =  0
   END

   -- 这里是控制页数最多少
   SET @PageCount = @RecordCount / @PageSize +  1

   -- 这里检查当前页的有效性
   IF (@PageIndex <  1)
   BEGIN
       SET @PageIndex =  1
   END

   -- 这里限制最后一页的有效性
   IF (@PageIndex > @PageCount)
   BEGIN
       SET @PageIndex = @PageCount
   END

   IF @SortDire !=  ' ASC '
   BEGIN
       SET @SQLTemp =  ' <(SELECT MIN '
       SET @SQLOrder =  '  ORDER BY  ' + @SortExpression +  '  DESC '
   END
   ELSE
   BEGIN
set @SQLTemp =  ' >(SELECT MAX '
set @SQLOrder =  '  ORDER BY  ' + @SortExpression +  '  ASC '
   END

   -- 这里是调试信息
   -- SELECT @SQLOrder

   -- 获取几条数据？ 吉日嘎拉  2010- 11- 02 更新
   SET @TopN = @RecordCount - @PageSize * (@PageIndex -  1)
   IF @TopN > @PageSize
   BEGIN
       SET @TopN = @PageSize
   END

   SET @TopLimit = @PageSize * (@PageIndex -  1)
   IF @TopLimit > @RecordCount
   BEGIN
       SET @TopLimit = @RecordCount
   END

   SET @commandText =  ' SELECT TOP  ' + STR(@TopN) +  ' ' + @SelectField +  '  FROM  '
       + @TableName +  '  WHERE  ' + @SortExpression + @SQLTemp +  ' ( '
       + RIGHT(@SortExpression, LEN(@SortExpression) - CHARINDEX( ' . ', @SortExpression)) +  ' ) FROM (SELECT TOP  ' + STR(@TopLimit)
       +  ' ' + @SortExpression +  '  FROM  ' + @TableName  + @SQLOrder +  ' ) AS TableTemp) '
       + @SQLOrder

   IF @WhereConditional !=  ''
       SET @commandText =  ' SELECT TOP  ' + STR(@TopN) +  ' ' + @SelectField +  '  FROM  '
           + @TableName +  '  WHERE  ' + @SortExpression + @SQLTemp +  ' ( '
           + RIGHT(@SortExpression, LEN(@SortExpression) - CHARINDEX( ' . ',@SortExpression)) +  ' ) FROM (SELECT TOP  ' + STR(@TopLimit)
           +  ' ' + @SortExpression +  '  FROM  ' + @TableName +  '  WHERE  ' + @WhereConditional +  ' '
           + @SQLOrder +  ' ) AS TableTemp) AND  ' + @WhereConditional +  ' ' + @SQLOrder

   IF @PageIndex =  1
   BEGIN
       -- 第一页的显示效率提高
       SET @SQLTemp =  ''
       IF @WhereConditional !=  ''
           SET @SQLTemp =  '  WHERE  ' + @WhereConditional

       SET @commandText =  ' SELECT TOP  ' + STR(@TopN) +  ' ' + @SelectField 
                         +  '  FROM  ' + @TableName + @SQLTemp +  ' ' + @SQLOrder
   END
   ELSE
   BEGIN    
       -- 解决大数据最有一页卡死的问题
       IF @PageIndex = @PageCount
       BEGIN
           IF @SortDire =  ' ASC '
           BEGIN
               SET @SQLOrder =  '  ORDER BY  ' + @SortExpression +  '  DESC '
           END
           ELSE
           BEGIN
               SET @SQLOrder =  '  ORDER BY  ' + @SortExpression +  '  ASC '
           END

           SET @SQLTemp =  ''
           IF @WhereConditional !=  ''
               SET @SQLTemp =  '  WHERE  ' + @WhereConditional

           SET @commandText =  ' SELECT TOP  ' + STR(@TopN) +  ' ' + @SelectField 
                             +  '  FROM  ' + @TableName + @SQLTemp +  ' ' + @SQLOrder

           SET @commandText =  ' SELECT  ' + @SelectField
                             +  '  FROM ( ' + @commandText +  ' ) AS TableTemp ORDER BY  ' + @SortExpression +  ' ' + @SortDire
       END
   END

   EXEC (@commandText)

   -- 这个是调试程序用的
   -- SELECT @commandText

END

本文转自 jirigala 51CTO博客，原文链接：http://blog.51cto.com/2347979/1196318，如需转载请自行联系原作者