<%

'---开始链接数据库

DimstrConnString

strConnString="driver={SQLServer};server=songhp;uid=sa;pwd=;database=XVZDemo"

setConn=Server.CreateObject("ADODB.Connection")

Conn.OpenstrConnstring

'---结束链接数据库

'---开始为输入参数赋值

DimSelectSql,SelectRs

DimSelectID,SelectName,SelectReturn

SelectSql="SelectMax(CompanyID)FromDim_Company"

SetSelectRs=Conn.Execute(SelectSql)

SelectID=SelectRs(0)

'---结束为输入参数赋值

DimTiggerType

TiggerType=3

SetCmd=Server.CreateObject("ADODB.Command")

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

%>

【各种存储过程使用指南】相关文章：

★ 处理驱动器和文件夹

★ 用存储过程、GetRows()、抽取10万条数据的速度测试

★ 在VBScript中使用类

★ 几例在ASP存储过程的使用方法

★ 在ASP编程中使用数组

★ sql 存储过程分页

★ 为什么在存储过程中用OLEDB方式不能返回记录集

★ ASP中FSO的神奇功能 - 使用FSO进行搜索

★ asp存储过程使用大全

★ Access中使用Create Procedure创建存储过程第1/2页