<%@ 言語=VBScript %>
<%
'---データベースへの接続を開始します
ディム strConnString
strConnString = "ドライバー={SQL Server};サーバー=songhp;uid=sa;pwd=;データベース=XVZDemo"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnstring
'---データベースへのリンクを終了
'---入力パラメータへの値の割り当てを開始
ディム SelectSql、SelectRs
Dim SelectID 、 SelectName 、 SelectReturn
SelectSql = "Dim_Company から Max(CompanyID) を選択"
SelectRs = Conn.Execute(SelectSql) を設定します。
選択ID = 選択Rs(0)
'---入力パラメータへの値の割り当てを終了
Dim TiggerType
TiggerType = 3
Set Cmd = Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn を設定します
Cmd.CommandType = 4 '---このプロシージャをストアド プロシージャとして宣言します
TiggerType = 1 の場合
'---入力パラメータを使用してストアド プロシージャ呼び出しを開始します
Cmd.CommandText = "TransCompany1"
Set CmdParam = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParam
Cmd("@TransID") = SelectID
コマンド実行
'---入力パラメータを使用してストアド プロシージャ呼び出しを終了する
Elseif TiggerType = 2 then
'---1 つの入力パラメータと 1 つの出力パラメータを使用してストアド プロシージャ呼び出しを開始します
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
コマンド実行
SelectName = Cmd("@TransName")
'---1 つの入力パラメータと 1 つの出力パラメータを使用してストアド プロシージャの呼び出しを終了
Elseif TiggerType = 3 then
'---1 つの入力パラメータ、1 つの出力パラメータ、および戻り値を使用してストアド プロシージャの呼び出しを開始
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
コマンド実行
SelectName = Cmd("@TransName")
SelectReturn = Cmd("Return_Value")
'---1 つの入力パラメータ、1 つの出力パラメータ、および 1 つの戻り値を使用してストアド プロシージャ呼び出しを終了
End if
Conn.Close
SetConn=なし
Cmd = なしを設定します
CmdParamID = なしを設定します
CmdParamname = なしを設定します
CmdParamReturn = なしを設定します
%>