<%@ 언어=VBScript %>
<%
'---데이터베이스 연결 시작
희미한 strConnString
strConnString = "드라이버={SQL Server};서버=songhp;uid=sa;pwd=;데이터베이스=XVZDemo"
Conn = Server.CreateObject("ADODB.Connection") 설정
Conn.Open strConnstring
'---데이터베이스 연결 종료
'---입력 매개변수에 값 할당 시작
희미한 SelectSql, SelectRs
희미한 SelectID , SelectName , SelectReturn
SelectSql = "Dim_Company에서 Max(CompanyID) 선택"
SelectRs = Conn.Execute(SelectSql) 설정
SelectID = SelectRs(0)
'---입력 매개변수에 값 할당을 종료합니다.
Dim TiggerType
TiggerType = 3
Set Cmd = Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn으로 설정
Cmd.CommandType = 4 '---이 프로시저를 저장 프로시저로 선언If
TiggerType = 1이면
'---입력 매개변수를 사용하여 저장 프로시저 호출을 시작합니다.
Cmd.CommandText = "TransCompany1"
CmdParam = Cmd.CreateParameter("@TransID",3,1) 설정
Cmd.Parameters.Append CmdParam
Cmd("@TransID") = ID 선택
명령 실행
'---입력 매개변수를 사용하여 저장 프로시저 호출 종료
Elseif TiggerType = 2 then
'---하나의 입력 매개변수와 하나의 출력 매개변수를 사용하여 저장 프로시저 호출을 시작합니다.
Cmd.CommandText = "TransCompany2"
CmdParamID = Cmd.CreateParameter("@TransID",3,1) 설정
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = ID 선택
CmdParamName = Cmd.CreateParameter("@TransName",202,2,50) 설정
Cmd.Parameters.Append CmdParamName
명령 실행
SelectName = Cmd("@TransName")
'---하나의 입력 매개변수와 하나의 출력 매개변수를 사용하여 저장 프로시저 호출 종료
Elseif TiggerType = 3 then
'---하나의 입력 매개변수, 하나의 출력 매개변수 및 반환 값을 사용하여 저장 프로시저 호출 시작
Cmd.CommandText = "TransCompany3"
CmdParamReturn = Cmd.CreateParameter("Return_Value",3,4) 설정
Cmd.Parameters.Append CmdParamReturn
CmdParamID = Cmd.CreateParameter("@TransID",3,1) 설정
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = ID 선택
CmdParamName = Cmd.CreateParameter("@TransName",202,2,50) 설정
Cmd.Parameters.Append CmdParamName
명령 실행
SelectName = Cmd("@TransName")
SelectReturn = Cmd("Return_Value")
'---하나의 입력 매개변수, 하나의 출력 매개변수 및 하나의 반환 값을 사용하여 저장 프로시저 호출을 종료합니다.
End if
Conn.Close
SetConn=아무것도 없음
Cmd = 없음으로 설정
CmdParamID = 없음으로 설정
CmdParamname = 없음으로 설정
CmdParamReturn = 아무것도 설정하지 않음
%>