分页存储代码 .

 

ALTER PROC PageView 
@tbname    sysname,          --要分页显示的表名 
@FieldKey  sysname,          --用于定位记录的主键(惟一键)字段,只能是单个字段 
@PageCurrent int=1,            --要显示的页码 
@PageSize  int=10,            --每页的大小(记录数) 
@FieldShow  nvarchar(1000)='',  --以逗号分隔的要显示的字段列表,如果不指定,则显示所有字段 
@FieldOrder  nvarchar(1000)='', --以逗号分隔的排序字段列表,可以指定在字段后面指定DESC/ASC 
                                          --用于指定排序顺序 
@Where    nvarchar(1000)='',  --查询条件 
@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 @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