;/TITLE> " exit 함수 END IF ''Excel에서 데이터 읽기 do while Not rs.EOF ''는 i=0에서 rs.Fields.Count-1 EDITION=rs(0) FILE_CODE=rs(2에 대해 검색된 데이터를 oracle 데이터베이스에 INSERT합니다. ) rs(3) rs(4) rs( 5) FILE_NAME=rs(9) KIND1_DESC=rs(6) KIND2_DESC=rs(7) KIND3_DESC=rs(8) KIND4_DESC=rs(9) SAVE_YEAR=rs(10) FILE_UNIT=rs(1) COM_FILE_CODE=rs(11) ''========== ============ ======================== CHECED_SQL="nvl(FILE_CASE,'' 선택) ) FILE_CASE FROM ODM67 where EDITION='"&TRIM(EDITION )&"' and FILE_CODE='"&TRIM(FILE_CODE)&"' " MobjDB.OpenSQL(CHECED_SQL)이면 mobjDB.IsEmpty이면 FILE_CASE="0001" CASE_DESC=" 일반 사례" INS_SQL="" INS_SQL=INS_SQL & " INSERT INTO ODM67(" & VBCRLF INS_SQL=INS_SQL & " EDITION,FILE_CODE,FILE_CASE ," & VBCRLF INS_SQL=INS_SQL & " CASE_DESC,CRT_USER,CRT_DATE," & VBCRLF INS_SQL=INS_SQL & " CRT_TIME,MDF_USER,MDF_DATE,MDF_TIME)" & VBCRLF INS_SQL=INS_SQL & " VALUES( " & VBCRLF INS_SQL=INS_SQL & " ' "&TRIM(EDITION)&"','"&TRIM(FILE_CODE)&"'," & VBCRLF INS_SQL=INS_SQL & " '"&TRIM(FILE_CASE)&" ','"&TRIM(CASE_DESC)&"', " & VBCRLF INS_SQL=INS_SQL & " '"&TRIM(SESSION("USER_ID"))&"','"&TRIM(TODAY)&"'," & VBCRLF INS_SQL=INS_SQL & " '"&TRIM (NOWTIME)&"','"&TRIM(SESSION("USER_ID"))&"'," & VBCRLF INS_SQL=INS_SQL & " '"&TRIM(TODAY )&"','"&TRIM(NOWTIME)& "')" CALL mobjDB.ExecSQL(INS_SQL) End If End If ''========= ============= ========================= INS_SQL="" INS_SQL= INS_SQL & " INSERT INTO ODM61( " & VBCRLF INS_SQL=INS_SQL & " EDITION,FILE_CODE,FILE_NAME,KIND1_DESC," & VBCRLF INS_SQL=INS_SQL & " KIND2_DESC,KIND3_DESC,KIND4_DESC,SAVE_YEAR," & VBCRLF INS_SQL=INS_SQL & " FILE_UNIT,COM_FILE_CODE,CRT_USER, CRT_DATE ," & VBCRLF INS_SQL=INS_SQL & " CRT_TIME,MDF_USER,MDF_DATE,MDF_TIME)" & VBCRLF INS_SQL=INS_SQL & " VALUES(" & VBCRLF INS_SQL=INS_SQL & " '"&TRIM(EDITION) &"','"&TRIM(FILE_CODE)&"'," & VBCRLF INS_SQL=INS_SQL & " '"&TRIM(FILE_NAME)&"','" &TRIM(KIND1_DESC)&"'," & VBCRLF INS_SQL=INS_SQL & " '"&TRIM(KIND2_DESC)&"','"&TRIM(KIND3_DESC)&"'," & VBCRLF INS_SQL=INS_SQL & " '"&TRIM(KIND4_DESC)&"','"&TRIM(SAVE_YEAR)&"'," & VBCRLF INS_SQL=INS_SQL & " '"&TRIM(FILE_UNIT)&"','"&TRIM(COM_FILE_CODE)&"' ," & VBCRLF INS_SQL=INS_SQL & " ' "&TRIM(SESSION("USER_ID"))&"','"&TRIM(TODAY)&"'," & VBCRLF INS_SQL=INS_SQL & " '"&TRIM(NOWTIME)&"','"&TRIM(SESSION("USER_ID"))&"'," & VBCRLF INS_SQL=INS_SQL & " '"&TRIM(TODAY)&"' ,'"&TRIM(NOWTIME)&"')" ''RESPONSE.WRITE INS_SQL& " " IF mobjDB.ExecSQL(INS_SQL) THEN InCount=InCount 1 ELSE NoCount=NoCount 1 file=file&TODAY&" "&NOWTIME&" "&EDITION&" "&FILE_CODE & VBCRLF END IF exit for next rs.MoveNext Loop rs.close set rs=nothing Conn.close set StrConn=nothing if file<>"" then CALL CreateFolder() SetFile(file) 호출 strpath=server.mappath("EXCEL_DATA.xls") DeleteFolder(strpath) 호출 file="" end if 함수 종료 '******* ************************************************** * ' 목적: 지정된 새 파일을 생성합니다. 존재하는 경우 새 파일을 생성하지 않고 파일에 레코드를 추가합니다. ' 전달: 파일: 추가할 데이터 ' 반환: '**** ******************************************** ******* *** 함수 SetFile(file) file_path="C:LOGOD60err.log" set fstemp=server.CreateObject("Scripting.FileSystemObject") IF (fstemp.FileExists(file_path) ) THEN ELSE set filetemp=fstemp.CreateTextFile(file_path,true) filetemp.writeLine "실패한 가져오기 데이터 기록" filetemp.close END IF ''실패 정보 OpenTextFile 추가 set filetemp=fstemp.OpenTextFile(file_path,8,true) filetemp.writeLine 파일 filetemp.close set filetemp=Nothing set fstemp =없음 함수 종료 '******************************************** ********* ************* ' 목적: 지정된 새 폴더를 생성합니다. 폴더가 있으면 생성하지 마세요. ' 전달: ' 복귀: '** *************************************** ************ ***** 함수 CreateFolder() Dim fso, f folder="c:LOG" Set fso = CreateObject(" Scripting.FileSystemObject") IF fso.FolderExists(폴더) THEN ELSE Set f = fso.CreateFolder(folder) CreateFolderDemo = f.Path END IF 끝 기능 '******** ************************************** *********** ' 목적 : 업로드된 파일 삭제, ' 전달 : 업로드된 파일의 가상 경로 전달 ' 반환 : '** **************** ********************************** ******* 함수 DeleteFolder(filepath) Dim fso, f folder="EXCEL_DATA.xls" Set fso = CreateObject("Scripting.FileSystemObject") ' 'response.write fso.FileExists(filepath) IF fso.FileExists(filepath) THEN fso.DeleteFile filepath END IF End Function %>