百万分页存储过程

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
Create procedure SqlDataPaging
@tbName varchar(255)='',        --表名
@tbFields varchar(1000)='*',      --返回字段
@OrderField varchar(255)='id',   --排序的字段名
@PageSize int=5,                 --页尺寸
@PageIndex int=1,                --页码
@OrderType bit=0,                --排序类型,1是升序,0是降序
@strWhere varchar(1500)='',    --查询条件
@Total int output            --返回总记录数
as
declare @strSql varchar(5000)     --主语句
declare @strOrder varchar(200)    --排序
declare @strSqlCount nvarchar(500)--查询记录总数主语句
declare @strtemp varchar(50)      --排序附加语句
--------------排序-----------------1是降序,0未升序
if @OrderType =0
begin
set @strtemp= '>(select max('
set @strOrder='order by ' + @OrderField + ' asc '
end
else
begin
set @strtemp= '<(select min('
set @strOrder='order by '+ @OrderField + ' desc'
end
--------------总记录数---------------
if @strWhere !=''
begin
set @strSqlCount='Select @TotalCout=count(*) from  ' + @tbName + '  where  '+ @strWhere
print '------查询总数 条件不为空--------'+@strSqlCount
end
else
begin
set @strSqlCount='Select @TotalCout=count(*) from  ' + @tbName
print '------查询总数 条件为空--------'+@strSqlCount
end
--------------如果是第一页------------
--------如果是第一页----------
if @PageIndex =1
begin
--如果查询条件不为空---
if @strWhere !=''
begin
set @strSql = 'Select top' +str(@PageSize)+ ' ' + @tbFields + '  from '+ @tbName +' where ' + @strWhere + ' ' + @strOrder
print '-----------为第一页并且查询条件也不为空----------------------'
end
--如果查询条件为空---
else
begin
set @strSql = 'Select top' +str(@PageSize)+ ' ' + @tbFields + '  from '+ @tbName + ' ' + @strOrder
print '-----------是第一页并且查询条件为空----------------------'
end
end
------------如果不是第一页-----------------
else
begin
--如果查询条件不为空---
if @strWhere !=''
begin
set @strSql='Select top ' +str(@PageSize) + ' ' + @tbFields
+' from ' + @tbName + ' where '+@OrderField +' '
+ @strtemp+ ' ' +@OrderField+ ') from (select top'
+str((@PageIndex-1)*@PageSize) + ' '+@OrderField +' from '+@tbName
+ ' where '+@strWhere+ ' '+ @strOrder +') as tb)'+ @strOrder
print '-----------不是第一页并且查询条件不为空----------------------'
end
--如果查询条件为空----
else
begin
set @strSql='Select top ' + str(@PageSize) + ' ' + @tbFields
+' from ' + @tbName + ' where '+@OrderField + ' '
+ @strtemp+ ' ' +@OrderField+ ') from (select top'
+str((@PageIndex-1)*@PageSize) + ' '+@OrderField +' from '+@tbName
+ ' '+ @strOrder +') as tb)'+ @strOrder
print '-----------不是第一页并且查询条件为空----------------------'
end
end
print @strSql
exec sp_executesql @strSqlCount,N'@TotalCout int output',@Total output
print @strSql+'------执行结束-------'
exec(@strSql)