[分享]可以随意定义排序语句的千万数量级分页显示存储过程

[evafly920]

[分享]可以随意定义排序语句的千万数量级分页显示存储过程
1.速度空前快，超过目前知道的大部分分页存储过程，一千万条数据平均不到100MS；
2.效率高，最后一页与第一页速度几乎持平；
3.可以随意定制查询条件；
4.可以随意定义排序语句；
5.可以随意定义分组语句。
6...........

欢迎试用，有什么心得请 Mail:[e-mail]

http://www.cn5135.com/Opportunities/Pagination.asp

[syilo]

UP!!

[evafly920]

CREATE PROCEDURE CN5135_SP_Pagination
/*
***************************************************************
** 中国无忧商务网千万数量级分页存储过程 **
***************************************************************
参数说明:
1.Tables :表名称,视图
2.PrimaryKey :主关键字
3.Sort :排序语句，不带Order By 比如：NewsID Desc,OrderRows Asc
4.CurrentPage :当前页码
5.PageSize :分页尺寸
6.Filter :过滤语句，不带Where
7.Group :Group语句,不带Group By

版权所有：中国无忧商务网(http://www.cn5135.com)
欢迎试用，有什么心得请 Mail:[e-mail]
示例代码：http://www.cn5135.com/Opportunities/Pagination.asp
注：转载请保留相关版权说明，谢谢！^_^
***************************************************************/
(
@Tables varchar(1000),
@PrimaryKey varchar(100),
@Sort varchar(200) = NULL,
@CurrentPage int = 1,
@PageSize int = 10,
@Fields varchar(1000) = '*',
@Filter varchar(1000) = NULL,
@Group varchar(1000) = NULL
)
AS

/*默认排序*/
IF @Sort IS NULL OR @Sort = ''
SET @Sort = @PrimaryKey

DECLARE @SortTable varchar(100)
DECLARE @SortName varchar(100)
DECLARE @strSortColumn varchar(200)
DECLARE @operator char(2)
DECLARE @type varchar(100)
DECLARE @prec int

/*设定排序语句.*/
IF CHARINDEX('DESC',@Sort)>0
BEGIN
SET @strSortColumn = REPLACE(@Sort, 'DESC', '')
SET @operator = '<='
END
ELSE
BEGIN
IF CHARINDEX('ASC', @Sort) = 0
SET @strSortColumn = REPLACE(@Sort, 'ASC', '')
SET @operator = '>='
END


IF CHARINDEX('.', @strSortColumn) > 0
BEGIN
SET @SortTable = SUBSTRING(@strSortColumn, 0, CHARINDEX('.',@strSortColumn))
SET @SortName = SUBSTRING(@strSortColumn, CHARINDEX('.',@strSortColumn) + 1, LEN(@strSortColumn))
END
ELSE
BEGIN
SET @SortTable = @Tables
SET @SortName = @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 = @SortTable AND c.name = @SortName

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 @CurrentPage < 1
SET @CurrentPage = 1

/*设置分页参数.*/
SET @strPageSize = CAST(@PageSize AS varchar(50))
SET @strStartRow = CAST(((@CurrentPage - 1)*@PageSize + 1) AS varchar(50))

/*筛选以及分组语句.*/
IF @Filter IS NOT NULL AND @Filter != ''
BEGIN
SET @strFilter = ' WHERE ' + @Filter + ' '
SET @strSimpleFilter = ' AND ' + @Filter + ' '
END
ELSE
BEGIN
SET @strSimpleFilter = ''
SET @strFilter = ''
END
IF @Group IS NOT NULL AND @Group != ''
SET @strGroup = ' GROUP BY ' + @Group + ' '
ELSE
SET @strGroup = ''

/*执行查询语句*/
EXEC(
'
DECLARE @SortColumn ' + @type + '
SET ROWCOUNT ' + @strStartRow + '
SELECT @SortColumn=' + @strSortColumn + ' FROM ' + @Tables + @strFilter + ' ' + @strGroup + ' ORDER BY ' + @Sort + '
SET ROWCOUNT ' + @strPageSize + '
SELECT ' + @Fields + ' FROM ' + @Tables + ' WHERE ' + @strSortColumn + @operator + ' @SortColumn ' + @strSimpleFilter + ' ' + @strGroup + ' ORDER BY ' + @Sort + '
'
)
GO

[vcokwap]

执行不了
exec CN5135_SP_Pagination 'test','id', ' istop desc,rlydateandtime desc ',1,8,'id,name','id=10',null

服务器: 消息 156，级别 15，状态 1，行 2
在关键字 'SET' 附近有语法错误。
服务器: 消息 137，级别 15，状态 1，行 3
必须声明变量 '@SortColumn'。
服务器: 消息 170，级别 15，状态 1，行 5
第 5 行: ',' 附近有语法错误。

[jihanzhong]

看看他的思路就好

[ntcw]

这个过程早就看过，是一个鬼佬写的。请标明出处啊！

[ntcw]

注：转载请保留相关版权说明，谢谢！^_^

抄人家的，怎么还要这样做呢？

[winternet]

up

[Arong0512]

服务器: 消息 156，级别 15，状态 1，行 3
在关键字 'SET' 附近有语法错误。
服务器: 消息 156，级别 15，状态 1，行 4
在关键字 'FROM' 附近有语法错误。
服务器: 消息 170，级别 15，状态 1，行 6
第 6 行: '>' 附近有语法错误。

[7271747]

做人要厚道

[cywarson]

Mark..

[fzxml]

mark

[eyych]

好人啊。

[fzxml]

真的可以随意定义排序语句吗，楼主不要误导啊，有没有测试过呀

[eyych]

好人，
给一下
http://www.cn5135.com/Opportunities/Pagination.asp
使用这个分页存储过程的源代码吧，
俺超级菜，
不知道怎么使用它，
and
怎么输出查询的结果。。。

[bgu]

如果表没主键即没ID怎么用？

[coble]

总页数是如何得到的呢？

[nbjed]

TotalRecords没有，如何改一下取得啊