几个分页存储过程

 几个分页存储过程     

一。
/**//*
说明:1.支持多表查询 2.支持任意排序 3.不支持表别名
IF(EXISTS(Select * FROM sysobjects Where [id]=OBJECT_ID('usp_PagingLarge') AND xtype='P'))
Drop PROCEDURE usp_PagingLarge
*/

GO

Create PROCEDURE usp_PagingLarge
@TableNames VARCHAR(200), --表名,可以是多个表,但不能用别名
@PrimaryKey VARCHAR(100), --主键,可以为空,但@Order为空时该值不能为空
@Fields VARCHAR(200), --要取出的字段,可以是多个表的字段,可以为空,为空表示select *
@PageSize INT, --每页记录数
@CurrentPage INT, --当前页,0表示第1页
@Filter VARCHAR(200) = '', --条件,可以为空,不用填 where
@Group VARCHAR(200) = '', --分组依据,可以为空,不用填 group by
@Order VARCHAR(200) = '' --排序,可以为空,为空默认按主键升序排列,不用填 order by
AS
BEGIN
DECLARE @SortColumn VARCHAR(200)
DECLARE @Operator CHAR(2)
DECLARE @SortTable VARCHAR(200)
DECLARE @SortName VARCHAR(200)
IF @Fields = ''
SET @Fields = '*'
IF @Filter = ''
SET @Filter = 'Where 1=1'
ELSE
SET @Filter = 'Where ' + @Filter
IF @Group <>''
SET @Group = 'GROUP BY ' + @Group

IF @Order <> ''
BEGIN
DECLARE @pos1 INT, @pos2 INT
SET @Order = REPLACE(REPLACE(@Order, ' asc', ' ASC'), ' desc', ' DESC')
IF CHARINDEX(' DESC', @Order) > 0
IF CHARINDEX(' ASC', @Order) > 0
BEGIN
IF CHARINDEX(' DESC', @Order) < CHARINDEX(' ASC', @Order)
SET @Operator = '<='
ELSE
SET @Operator = '>='
END
ELSE
SET @Operator = '<='
ELSE
SET @Operator = '>='
SET @SortColumn = REPLACE(REPLACE(REPLACE(@Order, ' ASC', ''), ' DESC', ''), ' ', '')
SET @pos1 = CHARINDEX(',', @SortColumn)
IF @pos1 > 0
SET @SortColumn = SUBSTRING(@SortColumn, 1, @pos1-1)
SET @pos2 = CHARINDEX('.', @SortColumn)
IF @pos2 > 0
BEGIN
SET @SortTable = SUBSTRING(@SortColumn, 1, @pos2-1)
IF @pos1 > 0
SET @SortName = SUBSTRING(@SortColumn, @pos2+1, @pos1-@pos2-1)
ELSE
SET @SortName = SUBSTRING(@SortColumn, @pos2+1, LEN(@SortColumn)-@pos2)
END
ELSE
BEGIN
SET @SortTable = @TableNames
SET @SortName = @SortColumn
END
END
ELSE
BEGIN
SET @SortColumn = @PrimaryKey
SET @SortTable = @TableNames
SET @SortName = @SortColumn
SET @Order = @SortColumn
SET @Operator = '>='
END

DECLARE @type varchar(50)
DECLARE @prec int
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 @TopRows INT
SET @TopRows = @PageSize * @CurrentPage + 1
print @TopRows
print @Operator
EXEC('
DECLARE @SortColumnBegin ' + @type + '
SET ROWCOUNT ' + @TopRows + '
Select @SortColumnBegin=' + @SortColumn + ' FROM ' + @TableNames + ' ' + @Filter + ' ' + @Group + ' orDER BY ' + @Order + '
SET ROWCOUNT ' + @PageSize + '
Select ' + @Fields + ' FROM ' + @TableNames + ' ' + @Filter + ' AND ' + @SortColumn + '' + @Operator + '@SortColumnBegin ' + @Group + ' orDER BY ' + @Order + '
')
END

GO

--调用例子:
--1.单表/单排序
EXEC usp_PagingLarge 'bigtable','d_id','d_id,d_title,d_content,d_time',20,1,'','','d_id desc'
--2.单表/多排序
EXEC usp_PagingLarge 'bigtable','d_id','*',20,0,'','','d_time asc,d_id desc'
--3.多表/单排序
EXEC usp_PagingLarge 'bigtable left join bigtable_author on bigtable.d_id=bigtable_author.BigTable_id', 'bigtable.d_id', 'bigtable.d_id,bigtable.d_title,bigtable.d_content,bigtable.d_time,bigtable_author.d_author', 20, 0, '', '', 'bigtable.d_id asc'
--4.多表/多排序
EXEC usp_PagingLarge 'bigtable left join bigtable_author on bigtable.d_id=bigtable_author.BigTable_id', 'bigtable.d_id', 'bigtable.d_id,bigtable.d_title,bigtable.d_content,bigtable.d_time,bigtable_author.d_author', 20, 0, '', '', 'bigtable.d_time asc,bigtable.d_id desc'

ASP程序:
'-------分页程序-------
Dim ors
Set ors=new SQLPaging'创建对象
Set ors.Conn=conn'得到数据库连接对象
With ors
.PageSize=20'每页记录条数
.PageName="dluser"'cookies名称
.DbType="MSSQL"
'数据库类型,AC为access,MSSQL为sqlserver2000存储过程版,MYSQL为mysql,PGSQL为PostGreSql
.RecType=0
'记录总数(>0为另外取值再赋予或者固定值,0执行count设置存cookies,-1执行count不设置cookies)
.JsUrl="Inc/"'Paging.js的路径
.Pkey="id"'主键
.Field="lxr,tel,mobile_no"
.Table="user"
.Condition=""'条件,不需要where
.OrderBy="addtime desc"'排序,不需要order by,需要asc或者desc
End With
Rs=ors.ResultSet()
 二。

通用TOP版翻页(SQL Server 2000/2005 已测),思路是通的,可以改存储过程版可以改前台代码版。

USE Northwind --这里拿 SQL Server 2000 示例数据库做测试
/*Copy全部 至 SQL Server 2000 查询分析器可以直接执行*/

/*========== 设置变量 ==========*/
DECLARE @Fields  NVARCHAR(4000)  /**必要参数:全部字段用 * 或者指定字段名,为了便于交叉子查询。*/
DECLARE @FROM  NVARCHAR(4000)  /**必要参数:相关数据表,可以多表连接。*/
DECLARE @ID   NVARCHAR(50)  /**必要参数:TOP分页依赖唯一约束的那个字段,最好是数字递增标识。*/
DECLARE @Where  NVARCHAR(4000)  /* 数据查询的判式,可以省略。*/
DECLARE @Order  NVARCHAR(4000)  /**必要参数 需要排序的字段,至少有一个字段。 可以多个字段排序*/

DECLARE @Page  INT     /*当前页数*/
DECLARE @PageSize INT     /*每页行数*/
DECLARE @PageCount INT     /*页面总数*/
DECLARE @RowCount INT     /*统计行数*/
DECLARE @ReturnType NVARCHAR(10)  /*返回类型*/

DECLARE @tempSQL NVARCHAR(4000)  /*存放临时动态拼合的SQL语句,可惜的是不能使用 NTEXT 如果超长SQL语句 就只能在前台使用本方法了*/

/*========== 初始测试用变量 ==========*/

SET @Fields = N'*'     /*测试用全部字段 * */
SET @FROM = N'Orders'    /*测试用数据表*/
SET @ID  = N'OrderID'   /*测试用 TOP 分页依赖的字段*/
SET @Where = N'CustomerID LIKE ''A%'''/*测试用WHERE判式,注意单引号的转义 '='' */
SET @Order = N'OrderID'   /*测试用排序字段*/

SET @Page  = 1     /*当前页数*/
SET @PageSize = 50    /*每页行数*/
SET @PageCount = 0     /*页面总数*/
SET @RowCount = 0     /*统计行数*/
SET @ReturnType = 'GetCount'  /*返回类型*/

/*========== 分页参数 ==========*/

--临时注销判断返回类型,改存储过程后可以将此块独立写也可以集成在一起

--IF(@ReturnType = 'GetCount')/* 判断 @ReturnType 是否只返回分页的几个统计数 */
-- BEGIN

  /*先查询出总行数*/
  IF(@RowCount <= 0 OR @RowCount = NULL)/*这个判断可有可无,因为 Count 大量数据比较耗时*/
   BEGIN
    SET @tempSQL = N'SELECT @RowCount = COUNT(*) FROM ' + @FROM + ' WHERE '+ @Where
    EXECUTE sp_executesql @tempSQL, N'@RowCount INT OUTPUT', @RowCount OUTPUT
   END

  /*计算总页数*/
  IF(@RowCount%@PageSize>0)
   Begin
    Set @PageCount = (@RowCount/@PageSize)+1
   End
  Else
   Begin
    Set @PageCount = @RowCount/@PageSize
   End

  /*输出分页参数*/
  SELECT @PageCount AS [PageCount_总页数],@RowCount AS [RowCount_总行数]

  --RETURN /* 临时测试注销,退出整个过程 */

-- END

/*========== 单页数据 ==========*/

/*处理当前页面数异常,如果存储过程没有传入@PageCount,不执行这里*/
IF(@PageCount > 0)
 BEGIN
  IF(@Page<=0 OR @Page = NULL)/*判断首页*/
   BEGIN
    SET @Page = 1
   END
  IF(@Page>@PageCount)/*判断尾页*/
   Begin
    Set @Page=@PageCount
   End
 END

/*处理TOP数*/
DECLARE @TOP INT
SET @TOP = (@PageSize * @Page) - @PageSize

/*拼合查询语句*/
IF(@Where<>'')
 BEGIN
  SET @tempSQL = N'SELECT TOP '
      + CONVERT(nvarchar,@PageSize) +
      N' '
      + @Fields +
      N' FROM '
      + @FROM +
      N' WHERE '
      + @ID +
      N' NOT IN(SELECT TOP '
      + CONVERT(nvarchar,@TOP) +
      N' '
      + @ID +
      N' FROM '
      + @FROM +
      N' WHERE '
      + @Where +
      N' ORDER BY '
      + @Order +
      N') AND '
      + @Where +
      N' ORDER BY '
      + @Order
 END
ELSE
 BEGIN
  SET @tempSQL = N'SELECT TOP '
      + CONVERT(nvarchar,@PageSize) +
      N' '
      + @Fields +
      N' FROM '
      + @FROM +
      N' WHERE '
      + @ID +
      N' NOT IN(SELECT TOP '
      + CONVERT(nvarchar,@TOP) +
      N' '
      + @ID +
      N' FROM '
      + @FROM +
      N' ORDER BY '
      + @Order +
      N') ORDER BY '
      + @Order
 END

/*执行查询 返回记录集*/
EXECUTE sp_executesql @tempSQL

/*

以前写的 SQL Server 2005 版的翻页存储过程:http://feb-.blog.163.com/blog/static/165778920068295342809/

通用ASP翻页函数:http://feb-.blog.163.com/blog/static/1657789200692194018580/

ASP前台翻页代码,模拟动网的那个表格翻页:http://feb-.blog.163.com/blog/static/165778920069219511208/

*/

 

你可能感兴趣的:(ASP.NET,存储,sql,server,filter,cookies,测试,sqlserver)