较快的数据库分页算法[SQL]

/*
名称:spAll_DeleteNoneUnique
输入:要查询的表名和字段列表
输出:
调用:
说明:实现千万级数据的分页显示!--可以在5秒内获取1448万条记录里的第1200页的100条记录，雄不？
作者:铁拳
邮件:
网站:http://www.wellknow.net
更新:20040610
支持:http://bbs.wellknow.net
版权:转述时请注明来源:用思维创造未来的Wellknow.net
*/

CREATE PROCEDURE GetRecordFromPage
@tblName varchar(255), -- 表名
@fldName varchar(255), -- 字段名
@PageSize int = 10, -- 页尺寸
@PageIndex int = 1, -- 页码
@IsCount bit = 0, -- 返回记录总数, 非 0 值则返回
@OrderType bit = 0, -- 设置排序类型, 非 0 值则降序
@strWhere varchar(1000) = '' -- 查询条件 (注意: 不要加 where)
AS

declare @strSQL varchar(6000) -- 主语句
declare @strTmp varchar(100) -- 临时变量
declare @strOrder varchar(400) -- 排序类型

if @OrderType != 0
begin
set @strTmp = "<(select min"
set @strOrder = " order by [" + @fldName +"] desc"
end
else
begin
set @strTmp = ">(select max"
set @strOrder = " order by [" + @fldName +"] asc"
end

set @strSQL = "select top " + str(@PageSize) + " * from ["
+ @tblName + "] where [" + @fldName + "]" + @strTmp + "(["
+ @fldName + "]) from (select top " + str((@PageIndex-1)*@PageSize) + " ["
+ @fldName + "] from [" + @tblName + "]" + @strOrder + ") as tblTmp)"
+ @strOrder

if @strWhere != ''
set @strSQL = "select top " + str(@PageSize) + " * from ["
+ @tblName + "] where [" + @fldName + "]" + @strTmp + "(["
+ @fldName + "]) from (select top " + str((@PageIndex-1)*@PageSize) + " ["
+ @fldName + "] from [" + @tblName + "] where " + @strWhere + " "
+ @strOrder + ") as tblTmp) and " + @strWhere + " " + @strOrder

if @PageIndex = 1
begin
set @strTmp = ""
if @strWhere != ''
set @strTmp = " where " + @strWhere

set @strSQL = "select top " + str(@PageSize) + " * from ["
+ @tblName + "]" + @strTmp + " " + @strOrder
end

if @IsCount != 0
set @strSQL = "select count(*) as Total from [" + @tblName + "]"

exec (@strSQL)

GO

 

 

 

修改后，便于使用的代码：

修改一点点便于其他人使用 
CREATE PROCEDURE GetRecordFromPage 
@tblName varchar(255), -- 表名 
@fldName varchar(255), -- 字段名 
@OrderfldName varchar(255), -- 排序字段名 
@StatfldName varchar(255), -- 统计字段名 
@PageSize int = 10, -- 页尺寸 
@PageIndex int = 1, -- 页码 
@IsCount bit = 0, -- 返回记录总数, 非 0 值则返回 
@OrderType bit = 0, -- 设置排序类型, 非 0 值则降序 
@strWhere varchar(1000) = '' -- 查询条件 (注意: 不要加 where) 
AS 

declare @strSQL varchar(6000) -- 主语句 
declare @strTmp varchar(100) -- 临时变量 
declare @strOrder varchar(400) -- 排序类型 

if @OrderType != 0 
begin 
set @strTmp = "<(select min" 
set @strOrder = " order by [" + @OrderfldName +"] desc" 
end 
else 
begin 
set @strTmp = ">(select max" 
set @strOrder = " order by [" + @OrderfldName +"] asc" 
end 

set @strSQL = "select top " + str(@PageSize) + " " + @fldName + " from [" 
+ @tblName + "] where [" + @OrderfldName + "]" + @strTmp + "([" 
+ @OrderfldName + "]) from (select top " + str((@PageIndex-1)*@PageSize) + " [" 
+ @OrderfldName + "] from [" + @tblName + "]" + @strOrder + ") as tblTmp)" 
+ @strOrder 

if @strWhere != '' 
set @strSQL = "select top " + str(@PageSize) + " " + @fldName + " from [" 
+ @tblName + "] where [" + @OrderfldName + "]" + @strTmp + "([" 
+ @OrderfldName + "]) from (select top " + str((@PageIndex-1)*@PageSize) + " [" 
+ @OrderfldName + "] from [" + @tblName + "] where " + @strWhere + " " 
+ @strOrder + ") as tblTmp) and " + @strWhere + " " + @strOrder 

if @PageIndex = 1 
begin 
set @strTmp = "" 
if @strWhere != '' 
set @strTmp = " where " + @strWhere 

set @strSQL = "select top " + str(@PageSize) + " " + @fldName + " from [" 
+ @tblName + "]" + @strTmp + " " + @strOrder 
end 

if @IsCount != 0 
set @strSQL = "select count(" + @StatfldName + ") as Total from [" + @tblName + "]" 

exec (@strSQL) 

GO