<%
'存储过程
'Create PROCEDURE MYSQL
'    @a int,
'    @b int
'AS
'    return @a + @b
'GO
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Driver={SQL Server};server=192.168.1.69;uid=sa;pwd=sa;database=union_5k3g;"
Set MyCommand = Server.CreateObject("ADODB.Command")
MyCommand.Parameters.append MyCommand.CreateParameter("@return",3,4)
MyCommand.Parameters.append MyCommand.CreateParameter("@a",3,1,50,10)
MyCommand.Parameters.append MyCommand.CreateParameter("@b",3,1,50,20)
MyCommand.CommandType = 4
MyCommand.ActiveConnection = conn
MyCommand.CommandText = "MYSQL"
MyCommand.execute
Response.Write(MyCommand.Parameters("@return"))
Set MyCommand = Nothing
conn.close
Set conn = Nothing
%>

<%
'存储过程
'Create PROCEDURE MYSQL
'    @a int,
'    @b int,
'    @c int output
'AS
'    Set @c = @a + @b
'GO
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Driver={SQL Server};server=192.168.1.69;uid=sa;pwd=sa;database=union_5k3g;"
Set MyCommand = Server.CreateObject("ADODB.Command")
MyCommand.Parameters.append MyCommand.CreateParameter("@a",3,1,50,20)
MyCommand.Parameters.append MyCommand.CreateParameter("@b",3,1,50,20)
MyCommand.Parameters.append MyCommand.CreateParameter("@c",3,2,50)
MyCommand.CommandType = 4
MyCommand.ActiveConnection = conn
MyCommand.CommandText = "MYSQL"
MyCommand.execute
Response.Write(MyCommand.Parameters("@c"))
Set MyCommand = Nothing
conn.close
Set conn = Nothing
%>