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")

%>