ACTIVE SERVER PAGE

  set FSO					= Server.CreateObject("Scripting.FileSystemObject") 
  set UploadForm			= Server.CreateObject("ABCUpload4.XForm") 
  UploadForm.CodePage		= 65001
  UploadForm.Overwrite		= True								'덮어쓰기 허용
  UploadForm.AbsolutePath	= True
  UploadForm.MaxUploadSize	= 1024*1024*10						'파일용량 (10M)


  board_title 				= UploadForm("board_title")(1)


  '날짜 폴더 생성
  UP_DIR="/file_data"
  UP_DIR = Server.MapPath(UP_DIR)

  '파일첨부1
  Set theField = UploadForm("uploadedfile")(1)						'파일이 업로드 되었다면 
  If theField.FileExists Then
		fileName	= theField.safeFileName							'파일명
		fileSize	= theField.Length								'파일사이즈

		if fileSize>(1024*1024*10) then 
			message =  "화일 용량이 20M을 초과할수 없습니다." 
		Else
			strname		= Mid(fileName,1,InstrRev(fileName,".")-1)
			strExt		= Lcase(Mid(filename,InstrRev(filename,".")+1))
			strname		= file_StrDelete(strname)					'파일명 특수문자 삭제

			bExist		= True 
			strfilename = strname & "." & strExt 
			cntFile	    = 0 
			do while bExist 
				if (FSO.FileExists(UP_DIR&"/"&strfilename)) then
					cntfile		= cntfile+1
					strfilename	= strname&"_"&cntfile&"."&strExt  
				else 
					bExist		= false
				end if
			Loop		

			filename1	= strfilename 


			msg = filename1 &""


			theField.Save UP_DIR &"/"& filename1						'파일저장


		End if
  End If
 
  IF len(trim(filename1))>1 THEN
    FILENAME1=CSTR(yea)+cstr(mon)+"/"+filename1
  end if