<% Dim idx, subject, writeDate, fileName, contents Dim file_del Dim UploadForm, SQL, RS, tableName, listFile Dim mode, msg Dim adm_idx, adm_date, adm_hit, i tableName = "tbl_gallery" '### DB 테이블명 listFile = fullPath & "/intro/intro03.asp" '### 리스트 파일명 Set UploadForm = Server.CreateObject("DEXT.FileUpload") UploadForm.AutoMakeFolder = True 'UploadForm.DefaultPath = "E:\WIN_SERVER\002_uni114.co.kr\www\data\" & tableName UploadForm.DefaultPath = PathDir&"\data\" & tableName '넘어온 값 변수에 받기 idx = Trim(UploadForm("idx")) mode = Trim(UploadForm("mode")) userId = Session("id") userName = Session("name") subject = Trim(UploadForm("subject")) : subject = InjectionDefender(subject) contents = UploadForm("contents") : contents = InjectionDefender(contents) Call CheckAuth(userId, mode) '### 접근 권한 체크 '### 이미지 파일이 아니면 파일 삭제하고 에러 처리하는 함수 ### Sub NotImage() UploadForm.DeleteAllSavedFiles Set UploadForm = Nothing Response.Write "" Response.End End Sub Select Case mode Case "edit" '수정 ########################################################## msg = "수정" '### 파일 삭제 함수 (DB 수정) ### Sub FileDel(idx) SQL = "UPDATE " & tableName SQL = SQL & " SET f_nm1 = '' " SQL = SQL & " WHERE seq = " & idx Dbcon.Execute(SQL) End Sub file_del = Trim(UploadForm("file_del")) '체크된 파일 삭제 SQL = "SELECT f_nm1 FROM " & tableName & " WHERE seq=" & idx Set RS = Dbcon.Execute(SQL) fileName1 = RS("f_nm1") If file_del = "Y" Then UploadForm.DeleteFile UploadForm.DefaultPath & "\" & fileName1 Call FileDel(idx) End If '첨부파일 업로드 For Each item In UploadForm("files") item.Save, False Next '에러 발생시 업로드 된 파일 삭제. IF Err THEN Response.Write Err.number & "
" & Err.source & "
" & Err.description UploadForm.DeleteAllSavedFiles Set UploadForm = Nothing Response.End END If fileName1 = UploadForm("files")(1).LastSavedFileName fileSize1 = UploadForm("files")(1).FileLen '이미지 파일이 아니면 파일을 삭제 하고 에러처리 한다. If fileSize1 > 0 And UploadForm("files")(1).IsImageItem() = False Then Call NotImage() : 'DB 수정 SQL = "UPDATE " & tableName SQL = SQL & " SET name = '" & subject & "'" SQL = SQL & ", contents = '" & contents & "'" If fileSize1 > 0 Then SQL = SQL & ", f_nm1 = '" & fileName1 & "'" End If SQL = SQL & " WHERE seq = " & idx Dbcon.Execute(SQL) RS.Close Set RS = Nothing Case "del" '삭제 ########################################################## msg = "삭제" '파일 삭제 SQL = "SELECT f_nm1 FROM " & tableName & " WHERE seq=" & idx Set RS = Dbcon.Execute(SQL) fileName1 = RS("f_nm1") If fileName1 <> "" Then UploadForm.DeleteFile UploadForm.DefaultPath & "\" & fileName1 : 'DB 삭제 SQL = "DELETE " & tableName & " WHERE seq=" & idx Dbcon.Execute(SQL) RS.Close Set RS = Nothing Case "insert" '추가 ########################################################## msg = "등록" '첨부파일 업로드 For Each item In UploadForm("files") item.Save, False Next '에러 발생시 업로드 된 파일 삭제. IF Err THEN Response.Write Err.number & "
" & Err.source & "
" & Err.description UploadForm.DeleteAllSavedFiles Set UploadForm = Nothing Response.Write "" Response.End END If fileName1 = UploadForm("files")(1).LastSavedFileName fileSize1 = UploadForm("files")(1).FileLen '이미지 파일이 아니면 파일을 삭제 하고 에러처리 한다. If fileSize1 > 0 And UploadForm("files")(1).IsImageItem() = False Then Call NotImage() : 'DB 저장 SQL = "INSERT INTO " & tableName & " (f_nm1, reg_dt, name, contents) " SQL = SQL & " VALUES ('" & fileName1 & "', GETDATE(), '" & subject & "', '" & contents & "')" 'Response.Write SQL Dbcon.Execute(SQL) Case Else msg = "실패" End Select '처리 완료(공용) ########################################################## Set UploadForm = Nothing Response.Write "" Response.End %>