<%
Set Up = Server.CreateObject("SiteGalaxyUpload.Form")

'저장할 서버의 폴더를 준비한다
Path1 = server.mappath(".") & "\upload\" '하위에 반드시 upload 라는 디렉토리가 생성돼 있어야 한다.


Fname = Up("file1")

if Fname <> "" then '파일 첨부가 되었으면

' 이 컴포넌트는 바로 파일이름을 구할 수 없다
Filename=Mid(Fname,InstrRev(Fname,"\")+1) '파일이름부분 추출

' 중복시에 파일이름부분을 변경하기 위해 분리를 한다
Farry=split(Filename,".") '.을 기준으로 분리
preFname=Farry(0) '파일이름 앞부분
extFname=Farry(1) '파일의 확장자


' 저장할 전체 path를 만든다, 파일이름을 구한다
' 두 변수는 중복시 중복처리루틴을 통해 새로 할당된다
Path2 = Path1 & Filename
saveFname=preFname & "." & extFname


'**************************** 중복시 처리 시작
Set fso = CreateObject("Scripting.FileSystemObject") 'FSO를 사용한다(내장)

countNo = 0 ' 파일이 존재할 경우, 파일이름 뒤에 붙일 숫자를 세팅함.

fExist=0 ' 같은 이름의 파일이 있다면(반복문에 조건으로 사용)
Do until fExist = 1 ' 같은 이름의 파일이 없을 때까지 반복

If (fso.FileExists(Path2)) Then ' 파일이 중복되면
countNo = countNo + 1 '파일이름 뒤에 붙일 숫자를 1증가
'파일이름 뒤에 붙일 숫자 countno를 추가한다
Path2 = Path1 & preFname & countNo & "." & extFname
saveFname=preFname & countNo & "." & extFname
else ' 파일이 없으면(중복되지 않으면)
fExist=1 'loop탈출을 위해 조건을 변경
End If

Loop
'**************************** 중복시 처리 끝

Up("file1").SaveAs(Path2) ' 파일을 실제로 저장한다.
response.write(saveFname & " 저장완료")

else
%>
파일이 없네요
<%
end if

Set Up = nothing
%>