千万数量级分页存储过程

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO
--drop proc proc_public_page
CREATE PROCEDURE proc_public_page
/*
***************************************************************
** 千万数量级分页存储过程 **
***************************************************************
参数说明:
1.TableName :表名称,视图 , 多表查询可用视图做
2.PrimaryKey :主关键字
3.Order :排序语句，不带Order By 比如：NewsID Desc,OrderRows Asc
4.Page :当前页码
5.PageSize :分页尺寸
6.Fields :查询字段 , 默认为 *
6.Where :过滤语句，不带Where 
7.Group :Group语句,不带Group By
8.RecordsCount :总记录条数
***************************************************************/
(
	@TableName varchar(1000),
	@PrimaryKey varchar(100),
	@Order varchar(200) = NULL,
	@Page int = 1,
	@PageSize int = 10,
	@Fields varchar(1000) = '*',
	@Where varchar(1000) = NULL,
	@Group varchar(1000) = NULL,
	@RecordsCount int=0 output
)
AS
BEGIN
	/*默认排序*/
	IF @Order IS NULL OR @Order = ''
		SET @Order = @PrimaryKey
	DECLARE @OrderTable varchar(100)
	DECLARE @OrderName varchar(100)
	DECLARE @strSortColumn varchar(200)
	DECLARE @operator char(2)
	DECLARE @type varchar(100)
	DECLARE @prec int
	DECLARE @sql nvarchar(4000)
	DECLARE @paramDefine nvarchar(200)
/******************** 数据表中总记录数 ***********************/
	SET @sql = 'SELECT @RecordsCount = COUNT(*) FROM ' + @TableName + ' WHERE 1=1'
	IF @Where IS NOT NULL AND @Where <> ''
		SET @sql = @sql + ' AND ' + @Where
	SET @paramDefine = '@RecordsCount INT OUTPUT'
	EXEC SP_EXECUTESQL @sql,@paramDefine,@RecordsCount OUTPUT
/*************************************************************/


/*设定排序语句.*/
	IF CHARINDEX('DESC',@Order)>0
		BEGIN
			SET @strSortColumn = REPLACE(@Order, 'DESC', '')
			SET @operator = '<='
		END
	ELSE
		BEGIN
			IF CHARINDEX('ASC', @Order) = 0
				SET @strSortColumn = REPLACE(@Order, 'ASC', '')
			SET @operator = '>='
		END
	IF CHARINDEX('.', @strSortColumn) > 0
		BEGIN
			SET @OrderTable = SUBSTRING(@strSortColumn, 0, CHARINDEX('.',@strSortColumn))
			SET @OrderName = SUBSTRING(@strSortColumn, CHARINDEX('.',@strSortColumn) + 1, LEN(@strSortColumn))
		END
	ELSE
		BEGIN
			SET @OrderTable = @TableName
			SET @OrderName = @strSortColumn
		END
	SELECT @type=t.name, @prec=c.prec FROM sysobjects o 
		JOIN syscolumns c on o.id=c.id
		JOIN systypes t on c.xusertype=t.xusertype
		WHERE o.name = @OrderTable AND c.name = @OrderName
	IF CHARINDEX('char', @type) > 0
		SET @type = @type + '(' + CAST(@prec AS varchar) + ')'
	DECLARE @strPageSize varchar(50)
	DECLARE @strStartRow varchar(50)
	DECLARE @strFilter varchar(1000)
	DECLARE @strSimpleFilter varchar(1000)
	DECLARE @strGroup varchar(1000)
	/*默认当前页*/
	IF @Page < 1
		SET @Page = 1
	/*设置分页参数.*/
	SET @strPageSize = CAST(@PageSize AS varchar(50))
	SET @strStartRow = CAST(((@Page - 1)*@PageSize + 1) AS varchar(50))
	/*筛选以及分组语句.*/
	IF @Where IS NOT NULL AND @Where <> ''
		BEGIN
			SET @strFilter = ' WHERE ' + @Where + ' '
			SET @strSimpleFilter = ' AND ' + @Where + ' '
		END
	ELSE
		BEGIN
			SET @strSimpleFilter = ''
			SET @strFilter = ''
		END
	IF @Group IS NOT NULL AND @Group <> ''
		SET @strGroup = ' GROUP BY ' + @Group + ' '
	ELSE
		SET @strGroup = ''
	SET
	/*执行查询语句*/
	EXEC('
		DECLARE @OrderColumn ' + @type + '
		SET ROWCOUNT ' + @strStartRow + '
		SELECT @OrderColumn=' + @strSortColumn + ' FROM ' + @TableName + @strFilter + ' ' + @strGroup + ' ORDER BY ' + @Order + '
		SET ROWCOUNT ' + @strPageSize + '
		SELECT ' + @Fields + ' FROM ' + @TableName + ' WHERE ' + @strSortColumn + @operator + ' @OrderColumn ' + @strSimpleFilter + ' ' + @strGroup + ' ORDER BY ' + @Order + '
	')
END
--return @RecordsCount
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO