ASP调用SQL Server存储过程

代码

存储过程

dim  account,oldname,newname,RsCommand
dim  adCmdStoredProc,adInteger,adChar,adParamInput,adParamOutput,ReturnValue

account  =  session( " whoami " )
oldname  =   trim (Request.Form( " oldname " ))
newname  =   trim (Request.Form( " newname " ))

adCmdStoredProc  =   4
adInteger  =   3
adChar  =   129
adParamInput  =   1
adParamOutput  =   2
  ' 建立COMMAND对象
  set  RsCommand  =  Server.CreateObject( " adodb.command " )
 RsCommand.CommandText  =   " sp_addModify13SName "
 RsCommand.ActiveConnection  =  conn
 RsCommand.CommandType  =  adCmdStoredProc
' 添加参数
 RsCommand.Parameters.Append RsCommand.CreateParameter( " @account " , adChar, adParamInput, 20 ,account)
 RsCommand.Parameters.Append RsCommand.CreateParameter( " @oldname " , adChar, adParamInput, 20 ,oldname)
 RsCommand.Parameters.Append RsCommand.CreateParameter( " @newname " , adChar, adParamInput, 20 ,newname)
 RsCommand.Parameters.Append RsCommand.CreateParameter( " @ReturnValue " ,adInteger, adParamOutput, 4 )

 RsCommand.execute ' 执行
 ReturnValue  =  RsCommand.Parameters( " @ReturnValue " ) ' 取出返回值

 

Create   proc  sp_addstorename
(  @account   char ( 20 ),
  @oldname   char ( 20 ),
  @newname   char ( 20 ),
  @ReturnValue   int
)
-- 返回1正常
-- 返回0插入失败
-- 返回9系统错误
as
Begin
  set   @ReturnValue   =   0
  insert   into  modifyname13(account,oldname,newname)  values ( @account , @oldname , @newname )
  if   @@error   >   0  
  Begin
   rollback
   set   @ReturnValue   =   9
  End
  else
   set   @ReturnValue   =   1
End