'Establish Command Object
Set Comm=Server.CreateObject("ADODB.Command")
'Set connection information
Comm.ActiveConnection="DSN=NorthWind;Uid=sa;Pwd="
'Sign stored procedure name
Comm.CommandText="GetEmployee3"
Comm.CommandType=adCmdStoredProc
'Establish parameter object
Set P1=Comm.CreateParamter("In",adInteger,adParamInput,2,6)
Comm.Parameters.Append P1
'Run storedProcedure
Set rs=Comm.Execute
While Not rs Is Nothing
Response.Write "<Table Border=2>"
Response.Write "<Tr>"
For I=0 To rs.Fields.Count-1
Response.Write "<Td>" & UCase(rs(I).Name) & "</Td>"
Next
Response.Write "</Tr>"
'Show fields value
While Not rs.EOF
Response.Write "<Tr>"
For I=0 To rs.Fields.Count-1
Response.Write "<Td>" & rs(I).Value & "</Td>"
Next
rs.MoveNext
Response.Write "</Tr>"
Wend
Response.Write "</Table><Br>"
'Move cursor to the next recordset
Set rs=rs.NextRecordset()
Wend
'Release resource
Set rs=Nothing
Set Comm=Nothing
%>
测试过,没问题。林金霖的ASP实务经典里的例子