Asp stored procedure usage

1. Call a stored procedure without parameters
<%
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 rsw.cmc.exe cmd.exe cute
Set rs = cmd. Execute ()
%>
2. Stored procedure of an input parameter
<%
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. One input parameter and one output parameter
<%
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. One input parameter, one output parameter, and one return value
<%
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 ")
%>
How to call SQL Stored Procedures in ASP
Www.lucky365.net 2002-2-7 auspicious 365