CREATE PROCEDURE proc_pagination
(
@tblName nvarchar(1000), ----要显示的表或多个表的连接，必须参数
@fldName nvarchar(4000) = '*', ----要显示的字段列表
@fldSort nvarchar(4000) = null, ----排序字段列表或条件
@fldFSort nvarchar(4000) = null, ----反向排序字段列表或条件(这个需要在调用前准备好，且一定要与原始排序完全相反)
@strCondition nvarchar(4000) = null, ----查询条件,不需where
@ID nvarchar(1000), ----主表的主键，必须参数
@Dist bit = 0, ----是否添加查询字段的 DISTINCT 默认0不添加/1添加
@pageSize int = 10, ----每页显示的记录个数
@currentpage int = 1, ----要显示那一页的记录
@pageCount int = 1 output, ----查询结果分页后的总页数
@Counts int = 1 output ----查询到的记录数
)
AS
SET NOCOUNT ON
Declare @sqlTmp nvarchar(4000) ----存放动态生成的SQL语句
Declare @strTmp nvarchar(4000) ----存放取得查询结果总数的查询语句
Declare @strID nvarchar(1000) ----存放取得查询开头或结尾ID的查询语句
Declare @strSort nvarchar(4000) ----数据排序规则A
Declare @strFSort nvarchar(4000) ----数据排序规则B
Declare @SqlSelect nvarchar(50) ----对含有DISTINCT的查询进行SQL构造
Declare @SqlCounts nvarchar(50) ----对含有DISTINCT的总数查询进行SQL构造
Declare @IDSords nvarchar(4000) ----ID和所有参加排序的字段，用于distinct和order by
if @Dist = 0 --不带distinct
begin
set @SqlSelect = 'select '
set @SqlCounts = 'Count(1)'
end
else
begin
set @SqlSelect = 'select distinct '
set @SqlCounts = 'Count(DISTINCT '+@ID+')'
end
--本来应该在这里分析@fldSort，然后自动生成反向排序字段
set @strSort=@fldSort
set @strFSort=@fldFSort
--------生成查询语句--------
--此处@strTmp为取得查询结果数量的语句
if @strCondition is null or @strCondition='' --没有查询条件，不带where
begin
set @sqlTmp = @fldName + ' From ' + @tblName
set @strTmp = @SqlSelect+' @Counts='+@SqlCounts+' FROM '+@tblName
set @strID = ' From ' + @tblName
end
else
begin
set @sqlTmp = + @fldName + ' From ' + @tblName + ' where ' + @strCondition
set @strTmp = @SqlSelect+' @Counts='+@SqlCounts+' FROM '+@tblName + ' where ' + @strCondition
set @strID = ' From ' + @tblName + ' where ' + @strCondition
end
----取得查询结果总数量-----
exec sp_executesql @strTmp,N'@Counts int out ',@Counts out
declare @tmpCounts int
if @Counts = 0
set @tmpCounts = 1
else
set @tmpCounts = @Counts
--取得分页总数
set @pageCount=(@tmpCounts+@pageSize-1)/@pageSize
/**//**当前页大于总页数 取最后一页**/
if @currentpage>@pageCount
set @currentpage=@pageCount
--/*-----数据分页2分处理-------*/
declare @pageIndex int --总数/页大小
declare @lastcount int --总数%页大小
set @pageIndex = @tmpCounts/@pageSize
set @lastcount = @tmpCounts%@pageSize
if @lastcount > 0
set @pageIndex = @pageIndex + 1 ----@lastcount>0说明最后一页还有记录，所以就应该再多一页
else
set @lastcount = @pageSize
--//***显示分页
if @strCondition is null or @strCondition='' --没有查询条件where
begin
if @pageIndex<2 or @currentpage<=@pageIndex / 2 + @pageIndex % 2 --前半部分数据处理
begin
if @fldSort is null or @fldSort='' --没有排序
set @strTmp=@SqlSelect+' top '+ CAST(@pageSize as VARCHAR(4))+' '+ @fldName+' from '+@tblName
+' where '+@ID+' not in(select '+@ID+' from '
+'('+ @SqlSelect+' top '+ CAST(@pageSize*(@currentpage-1) as Varchar(20))
+' '+ @fldName +' from '+@tblName +') as TempTBL)'
--取的是id不在前(@currentpage-1)页中，即不是前(@currentpage-1)*@pagesize条记录的前@pagesize条记录
else --如果有排序的话
set @strTmp=@SqlSelect+' top '+ CAST(@pageSize as VARCHAR(4))+' '+ @fldName+' from '+@tblName
+' where '+@ID+' not in(select '+@ID+' from ('
+ @SqlSelect+' top '+ CAST(@pageSize*(@currentpage-1) as Varchar(20)) +' '+ @fldName
+' from '+@tblName
+' order by '+ @strSort+') as TempTBL)'
+' order by '+ @strSort
--按正序排序取前(@currentpage-1)*@pagesize条记录，然后再按正序排序把前(@currentpage-1)*@pagesize条记录排除取前@pagesize条记录
end
else --后半部分数据处理
begin
set @currentpage = @pageIndex-@currentpage+1
if @currentpage <= 1 --最后一页数据显示
if @fldSort is null or @fldSort='' --没有排序
set @strTmp=@SqlSelect+' '+@fldName+' from ('
+ @SqlSelect +' ' + @fldName+ ' from '+@tblName
+' where '+@ID + ' not in (select '+@ID+' from('
+@SqlSelect+' top '+CAST(@pageSize*(@pageIndex-1) as VARCHAR(4))+' '+@fldName
+' from '+@tblName
+') as TempTBL)) AS TempTB'
--如果是最后一页就没必要再用top了，直接把不在前@pagesize*(@pageindex-1)页中的记录取出就可以
else --如果有排序的话
set @strTmp=@SqlSelect+' '+@fldName+' from ('
+@SqlSelect+' top '+ CAST(@lastcount as VARCHAR(4))+' '+ @fldName
+' from '+@tblName
+' order by '+ @strFSort +') AS TempTB'+' order by '+ @strSort
--先反向排序，取出前@lastcount条记录，再进行正向排序
else --不是最后一页，即后半部分的其他页
if @fldSort is null or @fldSort='' --没有排序时
set @strTmp=@SqlSelect+' top '+ CAST(@pageSize as VARCHAR(4))+' '+ @fldName+' from '+@tblName
+' where '+@ID+' not in(select '+@ID+' from('
+ @SqlSelect+' top '+ CAST(@pageSize*(@currentpage-1) as Varchar(20))
+' '+ @fldName +' from '+@tblName +') as TempTBL)'
--不排序时跟前半部分应该一样处理
/*
set @strTmp=@SqlSelect+' '+@fldName+' from ('
+@SqlSelect+' top '+ CAST(@pageSize as VARCHAR(4))+' '+ @fldName
+' from '+@tblName +' where '+@ID+' not in('
+ @SqlSelect+' top '+ CAST(@pageSize*(@currentpage-2)+@lastcount as Varchar(20)) +' '+ @fldName
+' from '+@tblName +')'
+') AS TempTB'
*/
else --有排序时
set @strTmp=@SqlSelect+' '+@fldName+' from ('
+@SqlSelect+' top '+ CAST(@pageSize as VARCHAR(4))+' '+ @fldName
+' from '+@tblName +' where '+@ID+' not in(select '+@ID+' from('
+ @SqlSelect+' top '+ CAST(@pageSize*(@currentpage-2)+@lastcount as Varchar(20)) +' '+ @fldName
+' from '+@tblName +' order by '+ @strFSort +') as TempTBL)'
+' order by '+ @strFSort +') AS TempTB'
+' order by '+ @strSort
--先反向排序取出前(@currentpage-1)页的记录（其中包括不满一整页的最后一页，所以是前@pagesize*(@currentpage-2)+@lastcount条记录）
--然后仍然反向排序，这回取不在上一结果集里的前@pagesize条记录，即该得到的记录
--最后进行一次正向排序
end
end
else --有查询条件
begin
if @pageIndex<2 or @currentpage<=@pageIndex / 2 + @pageIndex % 2 --前半部分数据处理
begin
if @fldSort is null or @fldSort='' --没有排序
set @strTmp=@SqlSelect+' top '+ CAST(@pageSize as VARCHAR(4))+' '+ @fldName +' from '+@tblName
+' where '+@ID+' not in(select '+@ID+' from('
+ @SqlSelect+' top '+ CAST(@pageSize*(@currentpage-1) as Varchar(20)) +' '+ @fldName
+' from '+@tblName
+' Where ' + @strCondition + ') as TempTBL)'
+' and ' + @strCondition
--先取出带where后的前@pagesize*(@currentpage-1)条记录
--再取出不在这@pagesize*(@currentpage-1)条记录中的还where的前@pagesize条记录
else --有排序
set @strTmp=@SqlSelect+' top '+ CAST(@pageSize as VARCHAR(4))+' '+ @fldName +' from '+@tblName
+' where '+@ID+' not in(select '+@ID+' from('
+ @SqlSelect+' top '+ CAST(@pageSize*(@currentpage-1) as Varchar(20)) +' '+ @fldName
+' from '+@tblName +' Where ' + @strCondition + ' order by '+ @strSort +') as TempTBL)'
+' and ' + @strCondition + ' order by '+ @strSort
--1、正向排序，取出带where后的前@pagesize*(@currentpage-1)条记录
--2、正向排序，取出不在这@pagesize*(@currentpage-1)条记录中的还where的前@pagesize条记录
end
else --后半部分
begin
set @currentpage = @pageIndex-@currentpage+1 --后半部分数据处理
if @currentpage <= 1 --最后一页数据显示
if @fldSort is null or @fldSort=''
set @strTmp=@SqlSelect+' '+@fldName + ' from '+@tblName
+' where '+@ID + ' not in (select '+@ID+' from('
+@SqlSelect+' top '+CAST(@pagesize*(@pageIndex-1) as VARCHAR(4))+' '+@fldName
+' from '+@tblName +' where '+@strCondition
+') as TempTBL) and '+@strCondition
--取不在前@pageIndex-1页中的记录
else --有排序，即既有条件又有排序
set @strTmp=@SqlSelect+' '+@fldName+' from ('
+@SqlSelect+' top '+ CAST(@lastcount as VARCHAR(4))+' '+ @fldName
+' from '+@tblName+' where '+ @strCondition
+' order by '+ @strFSort +') AS TempTB'+' order by '+ @strSort
--先倒序排列，取前@lastcount条记录
--再正序排序
else --后半部分，但不是最后一页
if @fldSort is null or @fldSort='' --没有排序条件
set @strTmp=@SqlSelect+' top '+ CAST(@pageSize as VARCHAR(4))+' '+ @fldName +' from '+@tblName
+' where '+@ID+' not in(select '+@ID+' from('
+ @SqlSelect+' top '+ CAST(@pageSize*(@currentpage-1) as Varchar(20)) +' '+ @fldName
+' from '+@tblName
+' Where ' + @strCondition + ') as TempTBL)'
+' and ' + @strCondition
--不排序时应该与前半部分相同处理
else --有排序字段、有查询条件、后半部分非最末页
set @strTmp=@SqlSelect+' '+@fldName+' from ('
+@SqlSelect+' top '+ CAST(@pageSize as VARCHAR(4))+' '+ @fldName
+' from '+@tblName +' where '+@ID+' not in ('
+'select '+@ID+' from ('
+ @SqlSelect+' top '+ CAST(@pageSize*(@currentpage-2)+@lastcount as Varchar(20)) +' '+ @fldName
+' from '+@tblName +' where '+ @strCondition +' order by '+ @strFSort +') as TempTBL)'
+' and ' + @strCondition +' order by '+ @fldFSort +') AS TempTB'+' order by '+ @strSort
end
end
------返回查询结果-----
exec sp_executesql @strTmp
--print @strTmp
SET NOCOUNT OFF
