[ASP] DEXT.FileUpload 기본 사용법, 파일용량제한, 확장자제한

DEXT.FileUpload 사용법과 파일용량제한, 확장자제한 입니다.

Set theForm = Server.CreateObject ("DEXT.FileUpload") 

theForm.AutoMakeFolder = True '폴더가 존재하지 않을경우 자동 생성 사용

theForm.UploadTimeout = 1200   '업로드 Timeout 설정

theForm.DefaultPath = Server.MapPath("/upload/") '파일이 저장될 로컬폴더 경로

theForm.MaxFileLen = int(1024 * 1024 * 10)'하나의 파일 크기를 10MB이하로 제한.

For i = 1 To theForm.Form("upfile").Count

if theForm("upfile")(i).FileLen > theForm.MaxFileLen Then ' 파일 용량 체크

Response.Write "<script language=javascript>"

Response.Write "alert(""10M 이상의 사이즈인 파일은 업로드하실 수 없습니다"");"

   Response.Write "history.back(-1);"

   Response.Write "</script>"

set theForm=nothing

Response.end

Else

If theForm("upfile")(i) <> "" Then 

If InStr(theForm("upfile")(i),".") > 0 Then '확장자가 있을경우

FileEXT = Split(theForm("upfile")(i),".")

If theForm("upfile") <> FileEXT(ubound(FileEXT)) Then 

Select Case UCase(FileEXT(ubound(FileEXT)))

Case "JPG","BMP","JPEG","GIF","PNG","PSD"

FileEXT = "IMAGE"

Case "ZIP","ALZ","7Z","EGG","RAR"

FileEXT = "ZIP"

Case "WMA","WMV","MP3","MP4","AVI","MOV","MPEG","FLV"

FileEXT = "VIDEO/AUDIO"

Case "HWP","XLS","XLSX","DOC","DOCX","TXT","GUL","PPT","PPTX","PDF"

FileEXT = "DOCUMENT"

Case Else

FileEXT = "NONE"

End Select

End If 

Else '확장자가 없을 경우

FileEXT = "NONE"

End If

If FileEXT = "NONE" Then 

Response.Write "<script>alert('등록할 수 없는 파일입니다.\n[이미지],[문서],[동영상] 파일만 등록 가능합니다.'); history.back(-1);</script>"

set theForm=nothing

Response.End

End If

End If

SaveFile = theForm("upfile")(i).LastSavedFileName '파일 로컬에 저장

End If

Next