<!--METADATA TYPE= "typelib"  NAME= "ADODB Type Library" 

      FILE="C:\Program Files\Common Files\SYSTEM\ADO\msado15.dll"  -->

<% 

dim sConn

Set sConn = Nothing

set sConn = Server.CreateObject("ADODB.Connection")

sConn.open "Provider=SQLOLEDB; Data Source=DB주소; Initial Catalog=DBa명; User Id=아이디; Password=비번"

Dim xlsxFile

Dim SheetNamez

Dim xlsxConn

Dim strSQL

xlsxFile = "파일경로"

Set xlsxConn = Server.CreateObject("ADODB.Connection")

xlsxConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & xlsxFile & "; Extended Properties=Excel 12.0;"

Set Rs = Server.CreateObject("ADODB.Recordset")

Set rsData = Server.CreateObject("ADODB.Recordset")

SheetName = "시트명"

strSQL = "SELECT * FROM [" & SheetName & "$]"

i = 1

Rs.Open strSQL, xlsxConn, 1, , 1

Do Until Rs.EOF

if i > 3 then ' 행은 1부터 시작

rsData.open "테이블명", sConn, 1, 2, adCmdTable

rsData.addnew

rsData("컬럼1") = trim(Rs(0)) ' 열은 0부터 시작

rsData("컬럼2") = trim(Rs(1))

rsData("컬럼3") = now()

rsData.update

rsData.close

end if

i = i + 1

Rs.MoveNext

Loop

Rs.Close

Set rsData = Nothing

Set Rs = Nothing

Set xlsxConn = Nothing

sConn.Close

set sConn = Nothing

%>

old_path = "c:\test\test.asp"

new_path = "c:\new_test\"    ' 끝에 \까지 넣어주면 권한 문제 발생소지가 줄어든다.

Set fso = CreateObject("Scripting.FileSystemObject")

fso.copyfile  old_path, new_path, true        ' true는 오버라이트, false는 대상폴더에 겹치는 파일이 있으면 중단됨

Set fso = nothing

EXEC sp_helptext 트리거명;

DROP TRIGGER [트리거명]  -- 트리거 삭제

CREATE TRIGGER [트리거명] ON [테이블명]

AFTER INSERT,UPDATE,DELETE -- FOR INSERT,UPDATE,DELETE 와 같음

AS

BEGIN

DECLARE @action char(1) -- 구분자 변수선언

DECLARE @test nvarchar(20)  -- 셀렉트한 데이터 저장용 변수 선언

IF COLUMNS_UPDATED() > 0 -- insert or update

BEGIN

IF EXISTS (SELECT * FROM DELETED) -- update

SET @action = 'U'

ELSE

SET @action = 'I'

END

ELSE -- delete

BEGIN

SET @action = 'D'

END

SELECT Name,@action FROM DELETED;

-- 변수에 값넣기 - 첫번째. 데이터 주입

SELECT @test = 0

-- 변수에 값넣기 - 두번째. 타 테이블에서 불러오기

SELECT @test = col1 FROM table1

-- 변수에 값넣기 - 세번째. INSERT 혹은 UPDATE 한 데이터에서 가져오기

SELECT @test = col2

FROM inserted

-- IF문

IF @test = 0 BEGIN -- IF 조건이 참일때

SELECT 1 -- 조건 걸어넣고 쿼리문 없으면 에러나므로 방지용

END ELSE IF @test > 0 AND @test < 10 BEGIN -- ELSE IF 조건이 참일때

SELECT 1

END ELSE BEGIN -- ELSE 일때

SELECT 1

END

-- null 비교

-- @test is null, @test is not null

END