<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Server.ScriptTimeout = 90000 Session.Timeout = 120 Session.LCID = 1042 session.CodePage = "65001" Response.Charset = "UTF-8" Response.cacheControl = "no-cache, no-store, must-revalidate" Response.AddHeader "pragma","no-cache" Response.Expires = -1 Set DuraUP = Server.CreateObject("DEXT.FileUpload") '// 파일업로드 컴포넌트를 선언 DuraUP.AutoMakeFolder = true '자동폴더 생성 DuraUP.DefaultPath=Server.MapPath("/userfiles") '// 파일이 실제로 업로드되는 위치 editor_id = DuraUP("editor_id") '// 에디터 ID Dimg = DuraUP("upload_file") '// 업로드 파일 '중복데이터 처리 datestr = REPLACE(FORMATDATETIME(now(), 2), "-", "") if hour(time) < 10 then hourstr = "0" & hour(time) else hourstr = hour(time) if Minute(time) < 10 then monthstr = "0" & Minute(time) else monthstr = Minute(time) if second(time) < 10 then secstr = "0" & second(time) else secstr = second(time) GetDateType = datestr&hourstr&monthstr&secstr IF trim(Dimg) <> "" THEN fileExtension = DuraUP("upload_file").FileExtension Dimg = GetDateType&"-."&FileExtension DuraUP("upload_file").SaveAs Dimg, False '// 이미지 저장 FileName = Server.UrlEncode(Dimg) '// 파일명, 한글 파일명일 인코딩 FileURL = "/userfiles/"&FileName '// 이미지 URL END If Response.clear() %>