set cmd=server.CreateObject("Adodb.command")
set rs=server.CreateObject("adodb.recordset")
cmd.ActiveConnection=conn
cmd.CommandType=4
cmd.CommandTimeout = 50000
'set rsAnswer=server.CreateObject("adodb.recordset")
cmd.CommandText="a"
'方法一
'set tmppara=cmd.CreateParameter("@变量",类型(int=3,varchar=200),参数类型(输入=1,输出=2) ,字段大小 , 初始值)
'set tmppara=cmd.CreateParameter("@t",3,2 , 20, 0)
'cmd.Parameters.Append tmppara
'方法二
cmd.Parameters.Refresh
cmd.Parameters("@t")=0'输出参数
cmd.Execute
response.Write cmd("@t")