Asp+Sqlserver2005 分页存储过程

本文介绍了一个T-SQL分页存储过程的实现方法,该过程可以根据输入参数灵活地进行数据筛选、排序及分组操作,适用于多种复杂的查询场景。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

--T-sql

 

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go


ALTER Procedure [dbo].[product_page]
@rowsTotal INT OUTPUT,   --输出总记录数
@TableNames VARCHAR(1000),    --表名,可以是多个表,但不能用别名
@PrimaryKey VARCHAR(100),    --主键,可以为空,但@Order为空时该值不能为空
@Fields    VARCHAR(1000),        --要取出的字段,可以是多个表的字段,可以为空,为空表示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)
    DECLARE @tempCount NVARCHAR(1000)

    SET @tempCount = 'SELECT @rowsTotal = COUNT(*) FROM '+@TableNames+' WHERE '+@Filter+' '
    execute sp_executesql @tempCount,N'@rowsTotal int output',@rowsTotal output

    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

 

 

———————————————————————————————————————————————————————

Asp codes

<%
dim currentPage,MaxPerPage,totalPut,Mycount,strfile
if not isempty(request.QueryString("page")) then
   currentPage=cint(request.QueryString("page"))
else
  currentPage=1
end if

call BeginConn()
MaxPerPage=1

sqltable="Help_buy inner join Help_customer on Help_customer.id = Help_buy.cusid"
sqlkey = "Help_buy.id"
sqlselect = "Help_buy.id,Help_buy.ordernum,Help_buy.ordertime,Help_buy.allprice,Help_buy.allnum,Help_customer.cusunits,Help_buy.ischeck,Help_buy.checktime"
sqlwhere = "Help_buy.shopid = "&shop_id&""
if ordertype <> "" then sqlwhere = sqlwhere & " and Help_buy.ordertype = '"&ordertype&"' "
sqlorder = "Help_buy.id desc"
     
Set MyComm = Server.CreateObject("ADODB.Command")
with MyComm
.ActiveConnection = ConnStr 'MyConStr是数据库连接字串
.CommandText = "product_page" '指定存储过程名
.CommandType = 4 '表明这是一个存储过程
.Prepared = true '要求将SQL命令先行编译
'返回值(记录总量)
'.Parameters.Append .CreateParameter("RETURN",2,4)
'出参(总记录数)
.Parameters.Append .CreateParameter("@rowsTotal",3,2)
'入参(数据表或多表)
.Parameters.append .CreateParameter("@TableNames",200,1,1000,sqltable)
'入参(主键)
.Parameters.append .CreateParameter("@PrimaryKey",200,1,100,sqlkey)
'入参(查询字段) 
.Parameters.append .CreateParameter("@Fields",200,1,1000,sqlselect)
'入参(每页条数)
.Parameters.append .CreateParameter("@PageSize",3,1,4,MaxPerPage)
'入参(当前页号)
.Parameters.append .CreateParameter("@CurrentPage",3,1,4,currentPage)
'入参(条件)
.Parameters.append .CreateParameter("@Filter",200,1,200,sqlwhere)
'入参(分组)
.Parameters.append .CreateParameter("@Group",200,1,200,null)
'入参(排序)
.Parameters.append .CreateParameter("@Order",200,1,200,sqlorder)

Set rs = .Execute
end with

if rs.state <> 0 then '取到数据,得到存储过程输出值
rs.close '注意:若要取得参数值,需先关闭记录集对象
 rscount = MyComm(0)
 'pagecount = MyComm(1)
rs.open
set MyComm = nothing
end if

totalPut = rscount

if (currentpage-1)*MaxPerPage>totalput then
   if (totalPut mod MaxPerPage)=0 then
 currentpage= totalPut / MaxPerPage
   else
 currentpage= totalPut / MaxPerPage + 1
   end if
end if

if totalPut mod MaxPerPage=0 then
 Mycount= totalPut / MaxPerPage
else
 Mycount= totalPut / MaxPerPage+1
end if

if not rs.eof then
 strfile = "?ordertype="&ordertype&"&"
  
   do while not rs.eof
%> 

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值