<%@ Language=VBScript %>
<%
'---Начать подключение к базе данных
Тусклая стрконнстринг
strConnString = "driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnstring
'---Завершить связывание с базой данных
'---Начать присваивать значения входным параметрам
Тусклый SelectSql, SelectRs
Тусклый SelectID, SelectName, SelectReturn
SelectSql = "Выберите Max(CompanyID) из Dim_Company"
Установите SelectRs = Conn.Execute(SelectSql)
SelectID = SelectRs(0)
'---Завершение присвоения значений входным параметрам
Dim TiggerType
TiggerType = 3
Set Cmd = Server.CreateObject("ADODB.Command")
Установите Cmd.ActiveConnection = Conn
Cmd.CommandType = 4 '---Объявите эту процедуру как хранимую процедуру.
Если TiggerType = 1, то
'---Запустить вызов хранимой процедуры с входными параметрами
Cmd.CommandText = "ТрансКомпания1"
Установить CmdParam = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParam
Cmd("@TransID") = SelectID
Cmd.Execute
'---Завершить вызов хранимой процедуры с входными параметрами
Elseif TiggerType = 2 then
'---Запустить вызов хранимой процедуры с одним входным параметром и одним выходным параметром
Cmd.CommandText = "ТрансКомпания2"
Установить CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SelectID
Установить CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName
Cmd.Execute
SelectName = Cmd("@TransName")
'---Завершить вызов хранимой процедуры с одним входным параметром и одним выходным параметромElseif
TiggerType = 3 then
'---Запустить вызов хранимой процедуры с одним входным параметром, одним выходным параметром и возвращаемым значением
Cmd.CommandText = "ТрансКомпания3"
Установить CmdParamReturn = Cmd.CreateParameter("Return_Value",3,4)
Cmd.Parameters.Append CmdParamReturn
Установить CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SelectID
Установить CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName
Cmd.Execute
SelectName = Cmd("@TransName")
SelectReturn = Cmd("Возвращаемое_значение")
'---Завершить вызов хранимой процедуры с одним входным параметром, одним выходным параметром и одним возвращаемым значением
End if
Conn.Close
SetConn=Ничего
Установить Cmd = Ничего
Установить CmdParamID = Ничего
Установить CmdParamname = Ничего
Установить CmdParamReturn = Ничего
%>