本文转自百度文库http://wenku.baidu.com/view/8f6ec149fe4733687e21aa72.html
必须有主键
原代码
Codeuse users
go if exists(select name from sysobjects where name='pages' and xtype='p')
drop proc pages
go CREATE PROC pages
@tblName varchar(255), -- 表名
@strGetFields varchar(1000), -- 需要返回的列
@fldName varchar(255), -- 排序的字段名
@PageSize int, -- 多少条/页
@PageIndex int, -- 页码
@doCount bit, -- 返回记录总数, 0不返回,1返回
@OrderType bit, -- 设置排序类型, 0升序,1降序
@strWhere varchar(1500) -- 查询条件 (注意: 不要加 where)
AS declare @strSQL varchar(5000) --主语句
declare @strTmp varchar(150) --临时变量
declare @strOrder varchar(400) --排序类型 --如果@doCount传递过来的不是0，就执行总数统计。
if @doCount != 0
begin
--查询条件为空
set @strSQL = 'select count(*) as Total from ' + @tblName
--查询条件不为空
if @strWhere !=''
set @strSQL = 'select count(*) as Total from ' + @tblName + ' where '+@strWhere
end --以下的所有代码都是@doCount为0的情况：
--如果@OrderType是1，就执行降序，否则为升序！
else
begin
--查询条件为空
set @strTmp = '>(select max'
set @strOrder = ' order by ' + @fldName +' asc'
--查询条件不为空
if @OrderType = 1
begin
set @strTmp = '<(select min'
set @strOrder = ' order by ' + @fldName +' desc'
end --如果是第一页就执行代码，这样会加快执行速度
if @PageIndex = 1
begin
--查询条件为空
set @strSQL='select top '+str(@PageSize)+''+@strGetFields+' from '+@tblName+''+@strOrder
--如果查询条件不为空，
if @strWhere != ''
set @strSQL='select top '+str(@PageSize)+''+@strGetFields+' from '+@tblName+' where '+@strWhere+''+@strOrder
end
--如果不是第一页，则
else
begin
--以下代码赋予了@strSQL以真正执行的SQL代码 --sql查询语句
set @strSQL = 'select top ' + str(@PageSize) +''+@strGetFields+ ' from '
+ @tblName + ' where ' + @fldName + '' + @strTmp + '('
+ @fldName + ') from (select top ' + str((@PageIndex-1)*@PageSize) + ''
+ @fldName + ' from ' + @tblName + '' + @strOrder + ') as tblTmp)'+ @strOrder --如果查询条件不为空，则另写sql语句
if @strWhere != ''
set @strSQL = 'select top ' + str(@PageSize) +''+@strGetFields+ ' from '
+ @tblName + ' where ' + @fldName + '' + @strTmp + '('
+ @fldName + ') from (select top ' + str((@PageIndex-1)*@PageSize) + ''
+ @fldName + ' from ' + @tblName + ' where ' + @strWhere + ''
+ @strOrder + ') as tblTmp) and ' + @strWhere + '' + @strOrder
end
end
exec (@strSQL)
GO --运行存储过程pages
--表名varchar,要返回的列名(*为返回所有)varchar,排序的列varchar,每页显示数量int,
--第几页int,是否统计总数bit,是否降序排列bit,排列条件(不要带where)varchar --统计borrow表的记录数量
exec pages 'uu','*','',0,0,1,0,''
--按borrowid排倒序分别显示1、2、3页的信息
exec pages 'uu','*','uid',4,1,0,1,''
exec pages 'uu','*','uid',4,2,0,1,'uid is not null'
exec pages 'uu','*','uid',4,3,0,1,''
简单改造，调整了参数的顺序，重新进行了命名，以符合的我的使用习惯
if exists(select name from sysobjects where name='pages' and xtype='p')
drop proc pages
go CREATE PROC pages
@bit_DoCount BIT , -- 返回记录总数, 0不返回,1返回
@str_tblName varchar(255), -- 表名
@str_SelectFields varchar(1000), -- 需要返回的列(所有字段*)
@str_Where varchar(1500), -- 查询条件 (注意: 不要加 where)
@str_PkField varchar(255), --主键名称(决定着取出来的记录)
@bit_OrderType bit, -- 设置排序类型, 0升序,1降序
@int_PageSize int, -- 多少条/页
@int_PageIndex int -- 页码
AS declare @strSQL varchar(5000) --主语句
declare @strTmp varchar(150) --临时变量
declare @strOrder varchar(400) --排序类型 --如果@doCount传递过来的不是0，就执行总数统计。
if @bit_DoCount != 0
begin
--查询条件为空
set @strSQL = 'select count(*) as Total from ' + @str_tblName
--查询条件不为空
if @str_Where !=''
set @strSQL = 'select count(*) as Total from ' + @str_tblName + ' where '+@str_Where
end --以下的所有代码都是@doCount为0的情况：
--如果@OrderType是1，就执行降序，否则为升序！
else
begin
--查询条件为空
set @strTmp = '>(select max'
set @strOrder = ' order by ' + @str_PkField +' asc'
--查询条件不为空
if @bit_OrderType = 1
begin
set @strTmp = '<(select min'
set @strOrder = ' order by ' + @str_PkField +' desc'
end --如果是第一页就执行代码，这样会加快执行速度
if @int_PageIndex = 1
begin
--查询条件为空
set @strSQL='select top '+str(@int_PageSize)+' '+@str_SelectFields+' from '+@str_tblName+' '+@strOrder
--如果查询条件不为空，
if @str_Where != ''
set @strSQL='select top '+str(@int_PageSize)+' '+@str_SelectFields+' from '+@str_tblName+' where '+@str_Where+' '+@strOrder
end
--如果不是第一页，则
else
begin
--以下代码赋予了@strSQL以真正执行的SQL代码 --sql查询语句
set @strSQL = 'select top ' + str(@int_PageSize) +' '+@str_SelectFields+ ' from '
+ @str_tblName + ' where ' + @str_PkField + '' + @strTmp + '('
+ @str_PkField + ') from (select top ' + str((@int_PageIndex-1)*@int_PageSize) + ' '
+ @str_PkField + ' from ' + @str_tblName + '' + @strOrder + ') as tblTmp)'+ @strOrder --如果查询条件不为空，则另写sql语句
if @str_Where != ''
set @strSQL = 'select top ' + str(@int_PageSize) +' '+@str_SelectFields+ ' from '
+ @str_tblName + ' where ' + @str_PkField + '' + @strTmp + '('
+ @str_PkField + ') from (select top ' + str((@int_PageIndex-1)*@int_PageSize) + ' '
+ @str_PkField + ' from ' + @str_tblName + ' where ' + @str_Where + ' '
+ @strOrder + ') as tblTmp) and ' + @str_Where + ' ' + @strOrder
end
end
PRINT @strSQL
exec (@strSQL)
GO