MS-SQL 分页函数+ASP-优快云博客

本文介绍了一个用于MS-SQL分页查询的存储过程，该存储过程接受参数如页码、页大小、主键、查询列、表名和查询条件，生成SQL语句以实现分页效果。此外，还提供了无查询条件时的处理方式。

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

共需要两个存储过程，第一个是负责分页的

CREATE PROCEDURE [dbo].[USP_GetList] 
(
 @pageIndex int = 1 -- 当前页码0 表示返回所有符合内容
,@pageSize int = 10 -- 页尺寸
,@SID nvarchar(30) = '' -- 主键字段
,@strGetField nvarchar(1000) = '*' -- 需要返回的列
,@strTableName nvarchar(30) = '' --表名    
,@strWhere nvarchar(2000) = '' -- 查询条件(注意: 条件中要带where)
,@strOrderBy nvarchar(300) = '' -- 排序  
--,@MemberID int=0 --会员ID
)
AS
SET NOCOUNT ON
DECLARE @strSQL nvarchar(4000)
DECLARE @startPos int
DECLARE @endPos int
DECLARE @num int
SET @startPos=@pageSize*(@pageIndex-1)+1
SET @endPos=@startPos+@pageSize-1
--页大小*(页数-1)
SET @num = @pageSize * (@PageIndex - 1)
IF @PageIndex!=0
    BEGIN
        IF @strWhere != ''
            SET @strSQL = 'SELECT TOP '+ cast(@pageSize as nvarchar(10)) +' '+ @strGetField +' FROM '+ @strTableName +' WHERE ('+ cast(@SID as nvarchar(30)) +' NOT IN (SELECT TOP '+ cast(@num as nvarchar(20)) +' '+ cast(@SID as nvarchar(30)) +' FROM '+ @strTableName +' where '+@strWhere+' ORDER BY '+ cast(@strOrderBy as nvarchar(255)) +' )) and '+@strwhere+' ORDER BY '+cast(@strOrderBy as varchar(255)) + ''
        else
            SET @strSQL = 'SELECT TOP '+ cast(@pageSize as nvarchar(10)) +' '+ @strGetField +' FROM '+ @strTableName +' WHERE ('+ cast(@SID as nvarchar(30)) +' NOT IN (SELECT TOP '+ cast(@num as nvarchar(20)) +' '+ cast(@SID as nvarchar(30)) +' FROM '+ @strTableName +' ORDER BY '+ cast(@strOrderBy as nvarchar(255)) +' )) ORDER BY '+ cast(@strOrderBy as varchar(255)) + ''
      --SET @strSQL = 'SELECT TOP 页大小 *  FROM Users  WHERE (ID  NOT IN (SELECT TOP (页大小*(当前页-1)) ID FROM Users   ORDER BY ID DESC )) ORDER BY ID DESC'
    END
ELSE
    BEGIN
        IF @strWhere != ''
            SET @strSQL = 'select '+ @strGetField +' from  ' + @strTableName + ' where '+ @strWhere +' order by '+ @strOrderBy
        ELSE
            SET @strSQL = 'select '+ @strGetField +' from  ' + @strTableName + ' order by '+ @strOrderBy
    END
--print(@strSQL)
EXEC(@strSQL)
GO

第二个存储过程

CREATE PROCEDURE [dbo].[USP_GetTotal]
(
    @strTableName nvarchar(30) = '',
    @strWhere nvarchar(2000) = '' -- 查询条件(注意: 条件中要带where)
)
AS
SET NOCOUNT OFF
DECLARE @strSQL nvarchar(2500)
IF @strWhere != ''
    SET @strSQL = 'select count(*) as Total from ['+ @strTableName +'] where '+ @strWhere
ELSE
    SET @strSQL = 'select count(*) as Total from ['+ @strTableName +']'
EXEC(@strSQL)
GO

下面是调用这个存储过程的两个函数。可以放到一个包含文件里

,注意，下面的函数里面使用的一些变量，是全局的变量，不是参数传入的，所以需要在调用函数钱，给全局变量赋值。

<%
'取记录总数存储过程 
public function getDataRowCount(strTableName, strWhere)
    dim maxCount
    dim myobj
    dim rsCount
    maxCount = 0
    Set myobj = Server.CreateObject("ADODB.Command")
    with myobj
       .ActiveConnection = conn
       .CommandText      = "USP_GetTotal"
       .CommandType      = 4
       .Prepared         = true
       .Parameters.append .CreateParameter("@strTableName", 200, 1, 30, strTableName)
       .Parameters.append .CreateParameter("@strWhere", 200, 1, 2000, strWhere)
       Set rsCount = .Execute
    end with
    Set myobj = Nothing
    maxCount = rsCount("Total")
    rsCount.close:Set rsCount = Nothing
    getDataRowCount = maxCount 
end function
'单表分页存储过程 
sub getDataRS()
    dim obj
    Set obj = Server.CreateObject("ADODB.Command")
    with obj
        .ActiveConnection = conn 
        .CommandText      = "USP_GetList"
        .CommandType      = 4
        .Prepared         = true
        .Parameters.append .CreateParameter("@pageIndex", 3, 1, 4, iPageIndex)
        .Parameters.append .CreateParameter("@pageSize", 3, 1, 4, iPageSize)
        .Parameters.append .CreateParameter("@SID", 200, 1, 30, SID) ' 2000 
        .Parameters.append .CreateParameter("@strGetField", 200, 1, 1000, strGetField)
        .Parameters.append .CreateParameter("@tableName", 200, 1, 30, strTableName)
        .Parameters.append .CreateParameter("@strWhere", 200, 1, 2000, strWhere)
        .Parameters.append .CreateParameter("@strOrderBy", 200, 1, 300, strOrderBy)
        Set rstobj = .Execute
    end with
    Set obj = Nothing
end sub
%>

下面是调用这组分页存储过程的实例

'#############定义分页存储过程所要使用的变量################################################## 
    '1.定义变量，给部分变量设定初始值 
        dim iPageIndex, iPageSize, iRowCount
        dim strWherem, strTableName, SID, strGetField, strWhere, strOrderBy
        iPageSize = 12                                      '一页内显示的记录条数 
        strTableName = "dataTable"    '表名 
        SID = "id"                                              '主键名 
        strGetField = "id, field1,field2,field3"
                                                                            '要显示的字段名 
        strWhere = "where1=1 and where2=2"           
                                                                            'where子句 
        strOrderBy = "id desc"                      '排序          
        
    '2,执行getPageInf() 得到(1)iPageIndex:当前页数,(2)iRowCount：总记录数,(3)iPageCount：总页数 
        Call getPageInfo()   'include_gb/page.asp 
        
    '3,先定义rsTobj，再执行getDataRS().sub getDataRS()使用上面定义的表明，字段，where,页数，总记录数语句等，去访问存储过程，并把结果付给rsTobj(集合) 
        dim rsTobj
        Call getDataRS()
    '4,rsTobj得到了返回数据，开始循环输出，写到过程里，方便调用 
        sub showProducts()
            if rsTobj.eof Then
                response.Write("暂时没有数据")
            else    
                do while not rsTobj.eof 
                    Call showProdTable(rsTobj("id"),rsTobj("NewsName"),rsTobj("Pictures"),rsTobj("abstract"), rsTobj("AddTime"))
                rsTobj.moveNext
                loop
            end if
            CloseRS(rsTobj) '关闭链接 include_gb/connSiteData.asp 
        end sub
'###############################################################