asp调用带参存储过程

1，调用没有参数的存储过程  
  <%  
  set   conn=server.CreateObject("adodb.connection")  
  set   cmd=server.CreateObject("adodb.command")  
  strconn="dsn=pubs;uid=sa;pwd"  
   
  conn.Open   strconn  
  set   cmd.ActiveConnection=conn  
   
  cmd.CommandText="{call   nono}"  
   
  'set   rs=cmc.exe   或者cmd.execute  
   
  set   rs=cmd.Execute()  
   
  %>  
  2，一个输入的参数的存储过程  
  <%  
  set   conn=server.CreateObject("adodb.connection")  
  set   cmd=server.CreateObject("adodb.command")  
  strconn="dsn=pubs;uid=sa;pwd"  
   
  conn.Open   strconn  
  set   cmd.ActiveConnection=conn  
   
  cmd.CommandText="{call   oneinput(?)}"  
  cmd.Parameters.Append   cmd.CreateParameter("@aaa",adInteger   ,adParamInput   )  
  cmd("@aaa")=100  
   
  cmd.Execute()  
   
  %>  
  3，一个输入参数和一个输出的参数  
  <%  
  set   conn=server.CreateObject("adodb.connection")  
  set   cmd=server.CreateObject("adodb.command")  
  strconn="dsn=pubs;uid=sa;pwd"  
   
  conn.Open   strconn  
  set   cmd.ActiveConnection=conn  
   
  cmd.CommandText   =   "{call   oneinout(?,?)}"  
  cmd.Parameters.Append   cmd.CreateParameter("@aaa",adInteger,adParamInput)  
  cmd("@aaa")=10  
  cmd.Parameters.Append   cmd.CreateParameter("@bbb",adInteger,adParamOutput)  
   
  cmd.Execute()  
   
  bbb=cmd("@bbb")  
  %>  
  4，一个输入参数，一个输出参数，和一个返回值  
  <%  
  set   conn=server.CreateObject("adodb.connection")  
  set   cmd=server.CreateObject("adodb.command")  
  strconn="dsn=pubs;uid=sa;pwd"  
   
  conn.Open   strconn  
  set   cmd.ActiveConnection=conn  
   
  cmd.CommandText="{?=call   onereturn(?,?)}"  
   
  cmd.Parameters.Append   cmd.CreateParameter("@return_value",adInteger,adParamReturnValue   )  
  cmd.Parameters.Append   cmd.CreateParameter("@aaa",adInteger,adParamInput   )  
  cmd("@aaa")=10  
  cmd.Parameters.Append   cmd.CreateParameter("@bbb",adInteger,adParamOutput)  
   
  cmd.Execute()  
   
  bbb=cmd("@bbb")  
  rrr=cmd("@return_value")  
  %>