asp 덱스트 업로드 파일 업로드 함수 개발

' 파일 업로드 컴포넌트 지정

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

' 파일 저장 위치 설정

LoactionPath = (server.MapPath ("/"))

' 파일의 용량 체크 함수 지정

Function check_maxLength(check_file_length)

' 최대 업로드 용량 지정

UploadForm.MaxFileLen = 520000000 ' 5mb로 설정

If check_file_length > UploadForm.MaxFileLen Then  

Response.Write "<script language=javascript>alert('파일 용량이 5MB 이상은 올리실 수 없습니다.');history.back();</script>"

Response.End

End if

End Function

' 파일의 이름이 중복되지 않게 리네임하는 함수 지정

Function file_rename(obj, file_type, filePath)

' Extension : 파일 확장자

' SaveFileName : 저장될 파일명 리 네임

' UploadFile : 저장될 경로, 이름, 확장자

response.write obj

Extension = obj.FileExtension

SaveFileName = file_type&"_"&Year(Now())&Month(Now())&Day(Now())&Replace(FormatDateTime(now,4),":","")&Right(now,2)

UploadFile = LoactionPath&SaveFileName&"."&Extension

file_rename = UploadFile

End function

' 입력된 파일의 새로운 이름으로 저장

UploadForm("img_file").SaveAs UploadFile, False

그냥 저장시 

UploadForm("img_file").Save 사용