数据库分页存储过程（5）

******************************************************************************************

过程名称：Common_Percent_Pagination

过程功能：

代码设计：小朱(zsy619@163.com)

设计时间：2005-11-3 13:58:26

******************************************************************************************

功能描述：

******************************************************************************************

如果您修改了我的程序，请留下修改记录，以便对程序进行维护，谢谢！！！

==========================================================================================

修改人修改时间修改原因

------------------------------------------------------------------------------------------

==========================================================================================

******************************************************************************************

备注：

*****************************************************************************************

Create Procedure [dbo].[Common_Percent_Pagination]

@TBName NVARCHAR(255) ,

@SQL nVARCHAR(4000), --不带排序语句的SQL语句

@Page int, --页码

@RecsPerPage int, --每页容纳的记录数

@ID VARCHAR(255), --需要排序的不重复的ID号

@Sort VARCHAR(255) , --排序字段及规则

@PageCount INT OUTPUT --总页数

Declare @intResult Int

Begin Tran

-----------------------------------------------------------------代码设计--------------------------------------------------------------------

DECLARE @sql1 nvarchar(4000)

SET @sql1=N'SELECT @PageCount=COUNT(*)'

+N' FROM '+@tbname

EXEC sp_executesql @sql1,N'@PageCount int OUTPUT',@PageCount OUTPUT

SET @PageCount=(@PageCount+@RecsPerPage-1)/@RecsPerPage

DECLARE @Str nVARCHAR(4000)

SET @Str='SELECT TOP '+CAST(@RecsPerPage AS VARCHAR(20))+' * FROM ('+@SQL+') T WHERE T.'+@ID+' NOT IN (SELECT TOP '+CAST((@RecsPerPage*(@Page-1)) AS VARCHAR(20))+' '+@ID+' FROM ('+@SQL+') T9 ORDER BY '+@Sort+') ORDER BY '+@Sort

--PRINT @Str

--EXEC sp_ExecuteSql @Str

--EXEC @Str

DECLARE @Str1 NVARCHAR(400)

DECLARE @Str2 NVARCHAR(400)

SET @Str1 = CAST(@RecsPerPage AS VARCHAR(20))

SET @Str2 = CAST((@RecsPerPage*(@Page-1)) AS VARCHAR(20))

EXEC ( N'SELECT TOP '+@Str1+ N' * FROM ('+@SQL+N') T WHERE T.'+@ID+N' NOT IN (SELECT TOP '+@Str2+N' '+@ID+N' FROM ('+@SQL+N') T9 ORDER BY '+@Sort+N') ORDER BY '+@Sort )

Set @intResult = @@ROWCOUNT

----------------------------------------------------------------------------------------------------------------------------------------------------

If @@Error <> 0

Begin

RollBack Tran

Return -1

End

Else

Begin

Commit Tran

Return @intResult

End