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