sql分页存储过程

CREATE PROC SP_PageList 
@tbname     sysname,           --要分页显示的表名 
@FieldKey   sysname,           --用于定位记录的主键(惟一键)字段,只能是单个字段 
@PageCurrent int=1,             --要显示的页码 
@PageSize   int=10,            --每页的大小(记录数) 
@FieldShow  nvarchar(1000)='',  --以逗号分隔的要显示的字段列表,如果不指定,则显示所有字段 
@FieldOrder  nvarchar(1000)='', --以逗号分隔的排序字段列表,可以指定在字段后面指定DESC/ASC 
                                          --用于指定排序顺序 
@Where     nvarchar(1000)='',  --查询条件 
@RecordCount  int OUTPUT,       --总记录数 
@PageCount  int OUTPUT        --总页数 
AS 
DECLARE @sql nvarchar(4000) 
SET NOCOUNT ON 
--检查对象是否有效 
IF OBJECT_ID(@tbname) IS NULL 
BEGIN 
RAISERROR(N'对象"%s"不存在',1,16,@tbname) 
RETURN 
END 
IF OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsTable')=0 
AND OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsView')=0 
AND OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsTableFunction')=0 
BEGIN 
RAISERROR(N'"%s"不是表、视图或者表值函数',1,16,@tbname) 
RETURN 
END 
 
--分页字段检查 
IF ISNULL(@FieldKey,N'')='' 
BEGIN 
RAISERROR(N'分页处理需要主键（或者惟一键）',1,16) 
RETURN 
END 
 
--其他参数检查及规范 
IF ISNULL(@PageCurrent,0)<1 SET @PageCurrent=1 
IF ISNULL(@PageSize,0)<1 SET @PageSize=10 
IF ISNULL(@FieldShow,N'')=N'' SET @FieldShow=N'*' 
IF ISNULL(@FieldOrder,N'')=N'' 
SET @FieldOrder=N'' 
ELSE 
SET @FieldOrder=N'ORDER BY '+LTRIM(@FieldOrder) 
IF ISNULL(@Where,N'')=N'' 
SET @Where=N'' 
ELSE 
SET @Where=N'WHERE ('+@Where+N')' 
 
--如果@PageCount为NULL值,则计算总页数(这样设计可以只在第一次计算总页数,以后调用时,把总页数传回给存储过程,避免再次计算总页数,对于不想计算总页数的处理而言,可以给@PageCount赋值) 
IF @PageCount IS NULL 
BEGIN 
SET @sql=N'SELECT @PageCount=COUNT(*)' 
+N' FROM '+@tbname 
+N' '+@Where 
EXEC sp_executesql @sql,N'@PageCount int OUTPUT',@PageCount OUTPUT 
SET @RecordCount = @PageCount 
SET @PageCount=(@PageCount+@PageSize-1)/@PageSize 
END 
 
--计算分页显示的TOPN值 
DECLARE @TopN varchar(20),@TopN1 varchar(20) 
SELECT @TopN=@PageSize, 
@TopN1=@PageCurrent*@PageSize 
 
--第一页直接显示 
IF @PageCurrent=1 
EXEC(N'SELECT TOP '+@TopN 
+N' '+@FieldShow 
+N' FROM '+@tbname 
+N' '+@Where 
+N' '+@FieldOrder) 
ELSE 
BEGIN 
SELECT @PageCurrent=@TopN1, 
@sql=N'SELECT @n=@n-1,@s=CASE WHEN @n<'+@TopN 
+N' THEN @s+N'',''+QUOTENAME(RTRIM(CAST('+@FieldKey 
+N' as varchar(8000))),N'''''''') ELSE N'''' END FROM '+@tbname 
+N' '+@Where 
+N' '+@FieldOrder 
SET ROWCOUNT @PageCurrent 
EXEC sp_executesql @sql, 
N'@n int,@s nvarchar(4000) OUTPUT', 
@PageCurrent,@sql OUTPUT 
SET ROWCOUNT 0 
IF @sql=N'' 
EXEC(N'SELECT TOP 0' 
+N' '+@FieldShow 
+N' FROM '+@tbname) 
ELSE 
BEGIN 
SET @sql=STUFF(@sql,1,1,N'') 
--执行查询 
EXEC(N'SELECT TOP '+@TopN 
+N' '+@FieldShow 
+N' FROM '+@tbname 
+N' WHERE '+@FieldKey 
+N' IN('+@sql 
+N') '+@FieldOrder) 
END 
END 

GO

执行：declare @rc int,@pc int;
EXEC SP_PageList @tbname='assets_directory', @FieldKey='ass_no',@PageCurrent =1,@PageSize=10,@FieldShow='ass_no,ass_name',@FieldOrder='ass_no desc',@Where='',@RecordCount = @rc,@PageCount = @pc;
select @rc,@pc