[upload_ok.asp] ¢º¢º´Ù¿î·Îµå
<%
Set UploadForm = Server.CreateObject("SiteGalaxyUpload.Form")
up_dir = Request.ServerVariables("APPL_PHYSICAL_PATH")
& "upload\"
'¹Ýµå½Ã upload ¶ó´Â µð·ºÅ丮°¡ »ý¼ºµÅ ÀÖ¾î¾ß ÇÑ´Ù.
cur_file = UploadForm("filename")
if cur_file <> "" then
'ÆÄÀÏ Ã·ºÎ°¡ µÇ¾úÀ¸¸é
filename = Mid(cur_file, InstrRev(cur_file, "\")
+ 1)
' ÆÄÀÏÀ̸§¸¸ »Ì¾Æ ³À´Ï´Ù. ex) write.asp
pre_filename = Left(filename, InstrRev(filename ,
".")-1)
' ÆÄÀÏ È®ÀåÀÚ¸¦ Á¦°ÅÇÑ ÆÄÀÏ À̸§À» ±¸ÇÔ. ex) write
tail_filename = Mid(filename ,InstrRev(filename ,
".")+1)
'È®ÀåÀÚ¸¦ ±¸ÇÔ. ex) asp
if tail_filename = "asp" then
tail_filename = "html"
filename = pre_filename & "." & tail_filename
end if
stored_full_name = up_dir & filename
' ÀúÀåÇÒ À̸§ÀÇ Àüü path¸¦ ¸¸µì´Ï´Ù. ex) c:\inetpub\upload\write.asp
' ¾Æ·¡ºÎÅÍ´Â ÆÄÀÏ Áߺ¹ °Ë»ç ÀÌ´Ù.
' MS¿¡¼ Á¦°øÇÏ´Â ÆÄÀÏ °ü·Ã ±âº» ÄÞÆ÷³ÍÆ®¸¦ »ý¼º
Set fso = CreateObject("Scripting.FileSystemObject")
' ¿ì¼± ÆÄÀÏÀÌ Á¸ÀçÇÑ´Ù°í °¡Á¤
bExist = True
' ÀúÀåÇÒ ÆÄÀÏÀÇ ¿ÏÀüÇÑ À̸§À» ¸¸µê
strFileNameTemp = stored_full_name
' ÆÄÀÏÀÌ Á¸ÀçÇÒ °æ¿ì, À̸§ µÚ¿¡ ºÙÀÏ ¼ýÀÚ¸¦ ¼¼ÆÃÇÔ.
countfilename = 0
While bExist = True ' ¿ì¼± ÀÖ´Ù°í »ý°¢ÇÔ.
If (fso.FileExists(strFileNameTemp )) Then
' ÆÄÀÏÀÌ ÀÖÀ¸¸é, ¿©±â·Î µé¾î ¿É´Ï´Ù.
'ÆÄÀÏ À̸§¿¡ ¼ýÀÚ¸¦ ºÙÀÎ »õ·Î¿î ÆÄÀÏ À̸§ »ý¼º
countfilename = countfilename + 1
strFileNameTemp = up_dir & pre_filename & countfilename
& "." & tail_filename
else ' ÆÄÀÏÀÌ ¾øÀ¸¸é ¿©±â·Î ¿ÀÁö¿ä.
' ¿©±â¿¡¼ óÀ½ÀÇ °æ¿ì¿¡ ´ëÇÑ Ã³¸®(Áï °°Àº À̸§ÀÇ ÆÄÀÏÀÌ ¾ø´Â °æ¿ì)°¡
' µé¾î°¡¾ß ÇÕ´Ï´Ù.
if countfilename <> 0 then
pre_filename = pre_filename & countfilename 'ex)
write2
filename = pre_filename & "." & tail_filename
'ex) write2.asp
end if
'½ÇÁ¦ ÀúÀåÇÒ ÆÄÀÏÀ̸§À» Ç¥½ÃÇϱâ À§ÇØ...
bExist = False
' ÆÄÀÏÀÌ Á¸ÀçÇÏÁö ¾ÊÀ¸¹Ç·Î.
End If
Wend
Set fso = nothing
'Scripting.FileSystemObject¸¦ ´Ý¾ÆÁÜ.
UploadForm("filename").SaveAs(strFileNameTemp)
' ÆÄÀÏÀ» ½ÇÁ¦·Î ÀúÀåÇÑ´Ù.
response.write(filename & "À¸·Î ÀúÀå¿Ï·á")
else
response.write("ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.")
end if
Set UploadForm = nothing 'Nothing Object
%>
#####################################################################
|