在经典ASP项目中，面对后台管理系统的数据列表，开发者常常需要展示成千上万条记录。如果直接执行SELECT * FROM 表再把结果交给前端分页，不仅占用内存，还会让页面响应变得极慢。通过ADO调用分页查询存储过程，可以把分页逻辑放到数据库引擎中完成，只把当前页需要的数据返回给应用层，这样既减轻了网络负担，也充分利用了数据库的索引能力。
分页存储过程的设计与原理
实现高效分页的关键，是在存储过程里使用SQL Server提供的ROW_NUMBER()窗口函数为结果集生成连续行号，然后利用WHERE子句截取目标页的数据。这种方式比老的TOP加子查询写法更直观，并且在有合适索引时性能稳定。存储过程通常接收两个输入参数：@PageIndex表示第几页，@PageSize表示每页条数，同时通过一个输出参数@TotalCount返回总记录数，方便前端计算总页数。
下面给出一个适用于订单表的存储过程示例。它先统计符合条件的总行数写入输出参数，再用CTE（公用表表达式）包装带行号的结果，最后根据页码偏移取出数据。注意ORDER BY字段应当有索引支撑，否则行号生成会触发全表排序。输入参数使用INT类型可以避免字符串拼接带来的注入风险，也比在ASP里拼SQL安全得多。
CREATE PROCEDURE dbo.GetOrdersPaged
@PageIndex INT,
@PageSize INT,
@TotalCount INT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
-- 先统计总数
SELECT @TotalCount = COUNT(*) FROM dbo.Orders WHERE Status = 1;
-- 利用ROW_NUMBER分页
WITH Ordered AS (
SELECT
Id,
OrderNo,
Amount,
CreateTime,
ROW_NUMBER() OVER (ORDER BY CreateTime DESC) AS RowNum
FROM dbo.Orders
WHERE Status = 1
)
SELECT Id, OrderNo, Amount, CreateTime
FROM Ordered
WHERE RowNum BETWEEN (@PageIndex - 1) * @PageSize + 1 AND @PageIndex * @PageSize;
END
上述写法的优点在于数据库只返回一页数据，网络包大小可控。如果表数据量继续增长，可以结合CreateTime上的聚集索引或者覆盖索引进一步优化。需要提醒的是，@PageIndex从1开始计数，调用方要自行处理越界情况，比如当页码超过总页数时返回空结果集而不是报错。
ASP中使用ADO调用存储过程
在经典ASP里，推荐使用ADODB.Command对象而不是拼SQL字符串来调用存储过程。Command对象允许我们显式声明参数类型和方向，这样既能防止类型隐式转换错误，也能明确区分输入与输出参数。首先要创建Connection并打开，然后新建Command，将其CommandType设为adCmdStoredProc，再使用CreateParameter方法构造参数集合。
以下代码展示了如何传入页码和每页大小，并接收总记录数。注意输出参数必须在执行前加入Parameters集合，且执行后通过其Value属性读取。如果漏掉输出参数，总页数就无法计算。代码中使用了adInteger等常量，实际项目里可以直接写对应数值，比如adCmdStoredProc是4，adInteger是3，adParamInput是1，adParamOutput是2。
<%
Dim conn, cmd, rs, total, pageIndex, pageSize
pageIndex = 2
pageSize = 10
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=.;Initial Catalog=TestDb;User Id=sa;Password=123;"
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = "GetOrdersPaged"
cmd.CommandType = 4 ' adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@PageIndex", 3, 1, , pageIndex)
cmd.Parameters.Append cmd.CreateParameter("@PageSize", 3, 1, , pageSize)
cmd.Parameters.Append cmd.CreateParameter("@TotalCount", 3, 2)
Set rs = cmd.Execute()
total = cmd.Parameters("@TotalCount").Value
Response.Write "总记录数：" & total & "<br/>"
Do While Not rs.EOF
Response.Write rs("OrderNo") & " | " & rs("Amount") & "<br/>"
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set cmd = Nothing
Set conn = Nothing
%>
这种调用方式比Recordset.Open直接写SQL更规范。实际开发中，可以把连接字符串放到Application变量或者include文件中统一管理。另外，若使用MSDASQL桥接驱动而非SQLOLEDB，某些输出参数的读取时机可能不同，建议在Execute之后立即取输出参数，不要在关闭连接后才读取。
常见错误与性能排查思路
很多人在初次使用ADO调用分页存储过程时，会遇到“参数类型不匹配”或者“未指定输出参数值”的错误。这通常是因为CreateParameter里写的类型常量与存储过程定义不一致，或者把输出参数写成了输入方向。建议在调试阶段把Response.Write每个参数的Type和Direction，确认与数据库端一致。此外，如果存储过程内部有SELECT但没有SET NOCOUNT ON，ADO可能把受影响行数消息也当作结果集，导致rs指向了错误的数据集。
性能方面，若发现翻到后面几页明显变慢，应检查排序字段是否有索引。因为ROW_NUMBER() OVER (ORDER BY CreateTime DESC)需要按该字段排序，缺少索引就会每次全表扫描加排序。可以用SQL Server的“执行计划”查看是否出现“排序”算子。另一个容易被忽视的点是连接超时：当数据量很大且页面并发高时，应在Connection字符串里加上Connection Timeout和Command Timeout设置，避免默认超时导致页面报错。
还有一类问题是编码与空值。若订单表某些字段允许NULL，在ASP里直接用rs("字段")输出可能得到空白，应配合IsNull函数处理。如果前端需要JSON格式，可以在ASP里拼字符串或者用JScript的Array转换，但注意分页总数字段必须来自输出参数，而不能在前端靠粗略估算，否则页码计算会错乱。通过这些细节把控，ADO配合存储过程的分页方案能在老项目里长期稳定运行。