윈도우 서버에서 업로드 컴포넌트 사용시.

매일 만들기 귀찮으니깐

함수로 정해서 요로코롬만 사용함세.

이미지 체크함수(덱스트 사용시)

Function Img_check(ext)
 IF ext = "JPEG" or ext = "GIF" or ext = "PNG" THEN
  extCode = 0
 ELSE
  extCode = 1
 END IF
 Img_check = extCode
End Function

요건 덱스트 업로드!

'DEXTUpload 를 이용한 파일 업로드 
Function All_file_save_dext(strFolder,theField,intUpFileSize)
  
 file_ext = theField.ImageFormat
 
 limit_file_size = 10

 If Img_check(file_ext) = 1 Then
     AlertHistoryBack "이미지 파일(JPG,GIF,PNG)만 가능합니다."
   End If

   If intUpFileSize > (1024 * 1024 * limit_file_size) Then
  AlertHistoryBack "파일크기는 "&limit_file_size&"MB 보다 작아야 합니다."
   End If

 upfileName = theField.SaveAs(strFileName, False)
 
 strFileName = Mid(upfileName, InstrRev(upfileName,"\")+1)   '경로명을 제외한 파일명을 축출
 
 All_file_save_dext = strFileName

end function

ABC업로드 사용시

'ABCUpload 를 이용한 파일 업로드 
Function All_file_save(strFolder,theField,intUpFileSize)

 If intUpFileSize > 0 Then   '파일을 업로드 했다면
  Dim objFSO              '파일시스템 개체
  Dim strFilePath         '파일이 위치한 클라이언트의 경로
  Dim strFileName         '파일명 (ex:test.txt)
  Dim strName             '확장자를 제외한 파일명 test
  Dim strExt              '파일의 확장자 txt
  Dim blnExist            '동일한 파일명이 존재하는지 검사하기위한 부울린변수
  Dim intCount            '동일한 파일명이 존재할경우 파일명 뒤에 붙일 숫자변수 
  Dim strStoreFileName    '실제로 서버에 저장될 파일경로와 파일명
  Dim limit_file_size     '업로드 파일의 용량제한

  limit_file_size = 20    '용량제한은 20MB 로 설정

  Set objFSO = CreateObject("Scripting.FileSystemObject")      '파일시스템 개체 생성 

  If intUpFileSize > (1024 * 1024 * limit_file_size) Then    '파일크기가 20MB를 넘을 경우 업로드를 못하게 한다
   AlertHistoryBack "파일의 용량은 "& limit_file_size &"MB를 초과할 수 없습니다!!"
   Response.End 
  End if

  strFilePath = theField.RawFilePath                      '파일의 클라이언트 경로 
  strFileName = Mid(strFilePath, InstrRev(strFilePath,"\")+1)   '경로명을 제외한 파일명을 축출
  strName = Mid(strFileName, 1, instrRev(strFileName,".")-1)    '파일명에서 이름을
  strExt = lcase(Mid(strFilePath,instrrev(strFilePath,".")+1))        '파일명에서 확장자를 분리

  If strExt = "asp" Or strExt = "php" Or strExt = "php3" Or strExt = "jsp" Or strExt = "asa" Or strExt = "aspx" Or strExt = "ascx" Then
   AlertHistoryBack "업로드할 수 없는 파일형식입니다!"
   Response.End
  End If

  '동일한 파일명이 존재하는지 검사해서 파일명을 바꾸는 루틴 
  blnExist = True               '동일한 파일이 존재한다고 가정 
  intCount = 0
  strStoreFileName = strFolder & strFileName

  Do While blnExist  '파일이 중복될 경우 이름을 다시 지정 -파일이름 뒤에 숫자를 붙여서 업
   If(objFSO.FileExists(strStoreFileName)) then  '파일명이 존재한다면 
    intCount = intCount + 1        '카운터를 1 증가
    strFileName = strName & "-" & intCount & "." & strExt
    strStoreFileName = strFolder & strFileName
   Else
    blnExist = False
   End If
  Loop

  If theField.FileExists Then
   theField.Save strStoreFileName
  End If

  Set objFSO = Nothing

  all_file_save = strFileName
 Else
  all_file_save = NULL
 End If 

end function