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