【下载文档:  各种存储过程使用指南.txt 】

---

各种存储过程使用指南
<% '---开始链接数据库 Dim strConnString strConnString = "driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo" set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConnstring '---结束链接数据库 '---开始为输入参数赋值 Dim SelectSql , SelectRs Dim SelectID , SelectName , SelectReturn SelectSql = "Select Max(CompanyID) From Dim_Company" Set SelectRs = Conn.Execute(SelectSql) SelectID = SelectRs(0) '---结束为输入参数赋值 Dim TiggerType TiggerType = 3 Set Cmd = Server.CreateObject("ADODB.Command") Set Cmd.ActiveConnection = Conn Cmd.CommandType = 4 '---声明此过程为存储过程 If TiggerType = 1 then '---开始一个输入参数的存储过程调用 Cmd.CommandText = "TransCompany1" Set CmdParam = Cmd.CreateParameter("@TransID",3,1) Cmd.Parameters.Append CmdParam Cmd("@TransID") = SelectID Cmd.Execute '---结束一个输入参数的存储过程调用 Elseif TiggerType = 2 then '---开始一个输入参数，一个输出参数的存储过程调用 Cmd.CommandText = "TransCompany2" Set CmdParamID = Cmd.CreateParameter("@TransID",3,1) Cmd.Parameters.Append CmdParamID Cmd("@TransID") = SelectID Set CmdParamName = Cmd.CreateParameter("@TransName",202,2,50) Cmd.Parameters.Append CmdParamName Cmd.Execute SelectName = Cmd("@TransName") '---结束一个输入参数，一个输出参数的存储过程调用 Elseif TiggerType = 3 then '---开始一个输入参数，一个输出参数，一个返回值的存储过程调用 Cmd.CommandText = "TransCompany3" Set CmdParamReturn = Cmd.CreateParameter("Return_Value",3,4) Cmd.Parameters.Append CmdParamReturn Set CmdParamID = Cmd.CreateParameter("@TransID",3,1) Cmd.Parameters.Append CmdParamID Cmd("@TransID") = SelectID Set CmdParamName = Cmd.CreateParameter("@TransName",202,2,50) Cmd.Parameters.Append CmdParamName Cmd.Execute SelectName = Cmd("@TransName") SelectReturn = Cmd("Return_Value") '---结束一个输入参数，一个输出参数，一个返回值的存储过程调用 End if Conn.Close Set Conn = Nothing Set Cmd = Nothing Set CmdParamID = Nothing Set CmdParamname = Nothing Set CmdParamReturn = Nothing %>