在上面的存储过程中，输入当前页号及每页记录数，返回当前页的记录集，总页数及记录总数。为了更具典型性，将记录总数以返回值的形式返回。以下是调用该存储过程的ASP代码(具体的分页操作略去):

    '**调用分页存储过程**
    DIM pagenow,pagesize,pagecount,recordcount
    DIM MyComm,MyRst
    pagenow = Request("pn")
    '自定义函数用于验证自然数
    if CheckNar(pagenow) = false then pagenow = 1
    pagesize = 20
    Set MyComm = Server.CreateObject("ADODB.Command")
    with MyComm
       .ActiveConnection = MyConStr          'MyConStr是数据库连接字串
       .CommandText      = "getUserList"     '指定存储过程名
       .CommandType      = 4                 '表明这是一个存储过程
       .Prepared         = true              '要求将SQL命令先行编译
       '返回值(记录总量)
       .Parameters.Append .CreateParameter("RETURN",2,4)
       '出参(总页数)
       .Parameters.Append .CreateParameter("@iPageCount",3,2)
       '入参(当前页号)
       .Parameters.append .CreateParameter("@iPage",3,1,4,pagenow)
       '入参(每页记录数)
       .Parameters.append .CreateParameter("@iPageSize",3,1,4,pagesize)
       Set MyRst = .Execute
    end with
    if MyRst.state = 0 then        '未取到数据，MyRst关闭
       recordcount = -1
    else
       MyRst.close    '注意：若要取得参数值，需先关闭记录集对象
       recordcount = MyComm(0)
       pagecount   = MyComm(1)
       if cint(pagenow)>=cint(pagecount) then pagenow=pagecount
    end if
    Set MyComm = Nothing

    '以下显示记录
    if recordcount = 0 then
       Response.Write "无记录"
    elseif recordcount > 0 then
       MyRst.open
       do until MyRst.EOF
       ......
       loop
       '以下显示分页信息
       ......
    else  'recordcount=-1
       Response.Write "参数错误"
    end if