利用SQL未公开的存储过程实现分页(更加好用的一个!)

--在Sql查询分析器中执行一下脚本建立存储过程p_splitpage
--create procedure p_splitpage   
if exists(select * from dbo.sysobjects where id = object_id(N'[dbo].[p_splitpage]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_splitpage]
GO

--利用SQL未公开的存储过程实现分页
CREATE PROCEDURE P_SPLITPAGE
(
    @SQL NVARCHAR(4000), --要执行的SQL语句
    @CURRENTPAGE INT = 2,  --要显示的页码
    @PAGESIZE INT      = 10,    --每页的大小
    @PAGECOUNT INT   = 0 OUT --总页数
)
AS
SET NOCOUNT ON
DECLARE @P1 INT

EXEC SP_CURSOROPEN @P1 OUTPUT,@SQL,@SCROLLOPT = 1,@CCOPT = 1,@ROWCOUNT = @PAGECOUNT OUTPUT

SET @PAGECOUNT  = CEILING(1.0 * @PAGECOUNT / @PAGESIZE) 
SET @CURRENTPAGE = (@CURRENTPAGE-1) * @PAGESIZE + 1
--SELECT @CURRENTPAGE
EXEC SP_CURSORFETCH @P1,16,@CURRENTPAGE,@PAGESIZE 
EXEC SP_CURSORCLOSE @P1

GO

--然后在程序中就可以用以下方式调用，具体的参数请参见上面的脚本
EXEC p_splitpage 'select top 1000 id,name from sysobjects',2,10

ASP中的调用
    var db = new DB("Provider=SQLOLEDB.1;Password=mysa;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=.");
    
    var strSql = "SELECT * FROM Products ORDER BY ProductID DESC";
    db.setCmdType(adCmdStoredProc);
    db.setCmdText("p_splitpage");
    
    db.addCmdParam(adVarChar,1000,strSql,"@SQL");
    db.addCmdParam(adInteger,4,1,"@CURRENTPAGE");
    db.addCmdParam(adInteger,4,10,"@PAGESIZE");
    db.addCmdParam(adInteger,4,0,"@PAGECOUNT",adParamOutput);
    //取得输出参数必须执行无返回值的exeCmd方法
     //而不能输出值和记录集同时得到,因为这是ADO的限制!
    db.exeCmd();
    var params = db.getCmdParameters();

    for(var i=0;i<params.Count;i++)
        Apps.printLn(params(i).Name + "," + params(i).Value);

    //取得rs的方法
    var rs = db.exeCmdRs();
    if(rs != null)
    {    
        rs = rs.NextRecordset();
    }
    for(;!rs.EOF;rs.MoveNext())
    {
        Apps.printLn(rs(1));
    }
    
    db.clear();
    Apps.print(Globals.getUseTime());