echajoa/common/daumeditor/file_uploader.asp

<% 
    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
 %>