ASP中调用带输出参数的存储过程

ASP中使用带输出参数的存储过程的例子
<%
set conn=server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
strconn="driver={sql server};server=192.168.1.99;uid=sa;pwd=sasa;database=test"

conn.Open strconn
set cmd.ActiveConnection=conn
cmd.CommandType=4

cmd.CommandText = "prc_InsertErrortest"
cmd.Parameters.Append cmd.CreateParameter("@VTalk_Card",20,1,,100) '20是adInteger的顺序号，不能用asInteger直接代替，否则出错，其他类型也一样
'cmd("@VTalk_Card")=10
cmd.Parameters.Append cmd.CreateParameter("@WP_Card",20,1,,100)
'cmd("@WP_Card")=10
cmd.Parameters.Append cmd.CreateParameter("@nret",20,3,,0)
'cmd("@nret")=0

cmd.Execute()

bbb=cmd("@nret")
response.Write bbb
%>
<!-- 存储过程的定义如下:
CREATE proc prc_InsertErrortest
(
@Talk_Card int,
@WP_Card int,
@nret int out
)
as
insert into T_Error(VTalk_Card,WP_Card,FillDate) values(@VTalk_Card,@WP_Card,getdate())
set @nret=10
-->