<% Dim DuraUP Set DuraUP = Server.CreateObject("DEXT.FileUpload") DuraUP.DefaultPath=Server.MapPath("/upload/daumeditor") DuraUP.AutoMakeFolder = true Dim Dimg, callback_func, FileName, FileURL Dimg = DuraUP("upload_file") callback_func = DuraUP("callback_func") '중복데이터 처리 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 FileName = Server.UrlEncode(Dimg) FileURL = "/upload/daumeditor/"&FileName end if Set DuraUP = nothing response.redirect "/daumeditor/callback.asp?imageurl="&FileURL&"&fileName="&FileName %>