时间:2021-05-23
/******************************************************************中国无忧商务网千万数量级分页存储过程*****************************************************************参数说明:1.Tables:表名称,视图2.PrimaryKey:主关键字3.Sort:排序语句,不带OrderBy比如:NewsIDDesc,OrderRowsAsc4.CurrentPage:当前页码5.PageSize:分页尺寸6.Filter:过滤语句,不带Where7.Group:Group语句,不带GroupBy版权所有:中国无忧商务网(http://)欢迎试用,有什么心得请M
CREATEPROCEDURECN5135_SP_Pagination
/*
***************************************************************
**中国无忧商务网千万数量级分页存储过程**
***************************************************************
参数说明:
1.Tables:表名称,视图
2.PrimaryKey:主关键字
3.Sort:排序语句,不带OrderBy比如:NewsIDDesc,OrderRowsAsc
4.CurrentPage:当前页码
5.PageSize:分页尺寸
6.Filter:过滤语句,不带Where
7.Group:Group语句,不带GroupBy
版权所有:中国无忧商务网(http://)
欢迎试用,有什么心得请Mail:xzhijun@GMail.com
注:转载请保留相关版权说明,谢谢!^_^
***************************************************************/
(
@Tablesvarchar(1000),
@PrimaryKeyvarchar(100),
@Sortvarchar(200)=NULL,
@CurrentPageint=1,
@PageSizeint=10,
@Fieldsvarchar(1000)='*',
@Filtervarchar(1000)=NULL,
@Groupvarchar(1000)=NULL
)
AS
IF@SortISNULLOR@Sort=''
SET@Sort=@PrimaryKey
DECLARE@SortTablevarchar(100)
DECLARE@SortNamevarchar(100)
DECLARE@strSortColumnvarchar(200)
DECLARE@operatorchar(2)
DECLARE@typevarchar(100)
DECLARE@precint
IFCHARINDEX('DESC',@Sort)>0
BEGIN
SET@strSortColumn=REPLACE(@Sort,'DESC','')
SET@operator='<='
END
ELSE
BEGIN
IFCHARINDEX('ASC',@Sort)=0
SET@strSortColumn=REPLACE(@Sort,'ASC','')
SET@operator='>='
END
IFCHARINDEX('.',@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
FROMsysobjectso
JOINsyscolumnscono.id=c.id
JOINsystypestonc.xusertype=t.xusertype
WHEREo.name=@SortTableANDc.name=@SortName
IFCHARINDEX('char',@type)>0
SET@type=@type+'('+CAST(@precASvarchar)+')'
DECLARE@strPageSizevarchar(50)
DECLARE@strStartRowvarchar(50)
DECLARE@strFiltervarchar(1000)
DECLARE@strSimpleFiltervarchar(1000)
DECLARE@strGroupvarchar(1000)
IF@CurrentPage<1
SET@CurrentPage=1
SET@strPageSize=CAST(@PageSizeASvarchar(50))
SET@strStartRow=CAST(((@CurrentPage-1)*@PageSize+1)ASvarchar(50))
IF@FilterISNOTNULLAND@Filter!=''
BEGIN
SET@strFilter='WHERE'+@Filter+''
SET@strSimpleFilter='AND'+@Filter+''
END
ELSE
BEGIN
SET@strSimpleFilter=''
SET@strFilter=''
END
IF@GroupISNOTNULLAND@Group!=''
SET@strGroup='GROUPBY'+@Group+''
ELSE
SET@strGroup=''
EXEC(
'
DECLARE@SortColumn'+@type+'
SETROWCOUNT'+@strStartRow+'
SELECT@SortColumn='+@strSortColumn+'FROM'+@Tables+@strFilter+''+@strGroup+'ORDERBY'+@Sort+'
SETROWCOUNT'+@strPageSize+'
SELECT'+@Fields+'FROM'+@Tables+'WHERE'+@strSortColumn+@operator+'@SortColumn'+@strSimpleFilter+''+@strGroup+'ORDERBY'+@Sort+'
'
)
GO
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
复制代码代码如下:------------------------------------------------------针对SQL2000的分页存储过程-
和默认翻页方式相比,自定义分页能提高几个数量级的效率。当我们的需要对大量数据分页的时候就需要考虑自定义分页,然而实现自定义分页相比默认分页需要做更多工作。对
下面这段是基本的分页代码:<%sql="select……………………省略了sql语句 Setrs=Server.Createobject("ADODB.RECO
SQL分页的存储过程代码,需要的朋友们直接拿去用,使用非常简单。分享代码如下USE[SendMessage]GO/******Object:StoredProc
整理了几个排序算法,通过测试来看,最快的还是快速排序算法,简直不是一个数量级的速度。复制代码代码如下:#include#include#include#incl