<% Server.ScriptTimeout=10000'-엑셀데이터의 원활한 처리를 위해 타임아웃 설정 Set objApp = nothing Set uploadform = Server.CreateObject("DEXT.FileUpload") uploadform.DefaultPath = server.MapPath("./") '--업로드컴포넌트를 이용해 엑셀파일을 받아오는 부분 If uploadform("csvfile") <> "" Then '------------파일 저장-------------------- strName = uploadform("csvfile").FileName ext_arr = Split(strName,".") Select Case UCase(ext_arr(UBound(ext_arr))) Case "CSV", "TXT" Case Else Set uploadform = Nothing alertMsg "유효한파일이 아닙니다." response.end End select strDirectory = server.MapPath("/")&"\data\csv\" strName = wfile2("csvfile", 10, strDirectory, "csv,txt") '------------파일 저장-------------------- alertMsg("[추가완료] 메세지가 나올때까지 기다리세요.") '------------전화번호 추가---------------- Set fs = Server.CreateObject("Scripting.FileSystemObject") Set objFile = fs.OpenTextFile(strDirectory & strName, 1) %> <% Set fs = Nothing Set objFile = nothing '------------전화번호 추가끝-------------- '------------파일삭제--------------------- dfile strDirectory , strName '------------파일삭제--------------------- alertMsg("추가완료") response.end Else Set uploadform = nothing End If '----------함수-------- Function alertMsg(msg) %> <% End Function %>