各种存储过程使用指南

　　<%

---开始链接数据库
DimstrConnString
strConnString=driver={SQLServer};server=songhp;uid=sa;pwd=;database=XVZDemo
Conn.OpenstrConnstring
---结束链接数据库

---开始为输入参数赋值
DimSelectSql,SelectRs
DimSelectID,SelectName,SelectReturn
SelectSql=SelectMax(CompanyID)FromDim_Company
SetSelectRs=Conn.Execute(SelectSql)
SelectID=SelectRs(0)
---结束为输入参数赋值

DimTiggerType
TiggerType=3

SetCmd.ActiveConnection=Conn
Cmd.CommandType=4---声明此过程为存储过程

IfTiggerType=1then

---开始一个输入参数的存储过程调用
Cmd.CommandText=TransCompany1

SetCmdParam=Cmd.CreateParameter(@TransID,3,1)
Cmd.Parameters.AppendCmdParam
Cmd(@TransID)=SelectID
Cmd.Execute
---结束一个输入参数的存储过程调用

ElseifTiggerType=2then

---开始一个输入参数，一个输出参数的存储过程调用
Cmd.CommandText=TransCompany2

SetCmdParamID=Cmd.CreateParameter(@TransID,3,1)
Cmd.Parameters.AppendCmdParamID
Cmd(@TransID)=SelectID
SetCmdParamName=Cmd.CreateParameter(@TransName,202,2,50)
Cmd.Parameters.AppendCmdParamName
Cmd.Execute
SelectName=Cmd(@TransName)
---结束一个输入参数，一个输出参数的存储过程调用

ElseifTiggerType=3then

---开始一个输入参数，一个输出参数，一个返回值的存储过程调用
Cmd.CommandText=TransCompany3
SetCmdParamReturn=Cmd.CreateParameter(Return_Value,3,4)
Cmd.Parameters.AppendCmdParamReturn
SetCmdParamID=Cmd.CreateParameter(@TransID,3,1)
Cmd.Parameters.AppendCmdParamID
Cmd(@TransID)=SelectID
SetCmdParamName=Cmd.CreateParameter(@TransName,202,2,50)
Cmd.Parameters.AppendCmdParamName

Cmd.Execute
SelectName=Cmd(@TransName)
SelectReturn=Cmd(Return_Value)
---结束一个输入参数，一个输出参数，一个返回值的存储过程调用

Endif

Conn.Close
SetConn=Nothing
SetCmd=Nothing
SetCmdParamID=Nothing
SetCmdParamname=Nothing
SetCmdParamReturn=Nothing

%>