asp操作有返回值的存储过程

'asp操作有返回值的存储过程
Set Cmd_Rs = Server.CreateObject("Adodb.Command")
Set Cmd_Rs.ActiveConnection = Conn
Cmd_Rs.CommandText = "pr_UpDateChatRoom" '存储过程名称
Cmd_Rs.Parameters.Append Cmd_Rs.CreateParameter("RETURN_VALUE",2,4) '返回值
Cmd_Rs.Parameters.Append Cmd_Rs.CreateParameter("@a",20,1,8,a)   'bigint 长度8
Cmd_Rs.Parameters.Append Cmd_Rs.CreateParameter("@b",200,1,-1,b)  'varchar(max)
Cmd_Rs.Parameters.Append Cmd_Rs.CreateParameter("@c",200,1,-1,c)  'varchar(max)
Cmd_Rs.Parameters.Append Cmd_Rs.CreateParameter("@d",3,1,4,d)   'int 长度4
Cmd_Rs.Execute()
Cmd_Status = Cmd_Rs.Parameters("RETURN_VALUE") '返回值
Set Cmd_Rs.ActiveConnection = nothing
Set Cmd_Rs = nothing