在ASP中，使用ADO对象来打开一个存储过程通常涉及以下步骤：
创建一个Command对象。
设置Command对象的CommandType属性为adCmdStoredProc，表示要执行的是一个存储过程。
指定存储过程的名称。
打开Command对象。
创建一个Recordset对象。
使用Recordset对象的Open方法来执行Command对象并打开结果集。
以下是一个简单的示例代码：
<%
Dim conn, cmd, rs, strSQL
' 创建连接对象
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "YourConnectionString" ' 替换为你的连接字符串
conn.Open
' 创建Command对象
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
' 设置CommandType为adCmdStoredProc
cmd.CommandType = 4 ' adCmdStoredProc
' 指定存储过程名称
cmd.CommandText = "YourStoredProcedureName" ' 替换为你的存储过程名称
' 创建参数（如果存储过程需要参数）
' Set param = cmd.CreateParameter("paramname", adInteger, adParamInput, 4, YourValue)
' cmd.Parameters.Append param
' 打开Recordset
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3 ' adUseClient
rs.Open cmd
' 处理结果集
If Not rs.EOF Then
' 遍历记录
Do While Not rs.EOF
' 输出字段
For i = 0 To rs.Fields.Count - 1
Response.Write(rs.Fields(i).Name & ": " & rs.Fields(i).Value & "<br>")
Next
rs.MoveNext
Loop
Else
Response.Write("No records returned.")
End If
' 清理
rs.Close
Set rs = Nothing
cmd.ActiveConnection = Nothing
Set cmd = Nothing
conn.Close
Set conn = Nothing
%>
请确保将YourConnectionString、YourStoredProcedureName和YourValue替换为你的实际连接字符串、存储过程名称和参数值。如果存储过程不需要参数，可以省略创建参数的部分。