conn.open constr
set cmd = server.createobject("adodb.command")
cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText =  "addwebeasymail"

cmd.Parameters.Append cmd.CreateParameter("@name",advarChar,adParamInput,100,name)  /* varchar 200 */            cmd.Parameters.Append cmd.CreateParameter("@age",adinteger,adParamInput,4,age)   /* int 3 */
cmd.Parameters.Append command.CreateParameter("@money",adCurrency,adParamInput,,money) /* money 6 */
cmd.Parameters.Append command.CreateParameter("@birth",adDBTimeStamp,adParamInput,8,bday) /* day 135 */

cmd.Parameters.Append cmd.CreateParameter("xxx",advarChar,adParamOutput)   /* varchar return */  
cmd.Parameters.Append cmd.CreateParameter("result",adinteger,adParamOutput)  /* int return */  

cmd.Execute,,adExecuteNoRecords        /* 执行 */
tmpid=cmd("result")                /* 获取返回值 */
xxx = cmd("xxx")
Set cmd = Nothing
conn.close