ASP 调用存储过程，同时返回记录集和输出参数

'使用存储过程方式获取数据
Set CMD = Server.CreateObject("Adodb.Command")
CMD.ActiveConnection = CNS '指定连接字符串
CMD.CommandText = "ReadProduct" '指定储存过程名称
CMD.Prepared = True '指定 SQL 预编译存储过程
CMD.CommandType = 4 '指定命令模式为存储过程

'增加参数
CMD.Parameters.Append CMD.CreateParameter("@tblName",200,1,50,"Product") '增加存储过程参数
CMD.parameters.Append CMD.CreateParameter("@fldName",200,1,50,"Price")
CMD.parameters.Append CMD.CreateParameter("@PageSize",4,1,4,3)
CMD.parameters.Append CMD.CreateParameter("@PageIndex",4,1,4,1)
CMD.parameters.Append CMD.CreateParameter("@IsCount",4,1,4,0)
CMD.parameters.Append CMD.CreateParameter("@OrderType",4,1,4,0)
CMD.parameters.Append CMD.CreateParameter("@strWhere",200,1,20,"")
CMD.parameters.Append CMD.CreateParameter("@PageCount",4,2,4)

Set Rs = CMD.Execute

Rs.Close '必须关闭记录集对象的情况下，才能获取到存储过程的输出参数
Response.Write(CMD("@PageCount") & "/")

Rs.Open
'之后使用记录集时再 Open 一下