<%@ Language="VBScript.Encode" CODEPAGE="1254"%>

<% 
' transfer ettigimiz dosyayi isimlendirirken dosya adina günün tarihini ilistirmesi için asama olusturuyoruz...
' dosyayi transfer ettikten sonra bu verileri kullanacagiz. cpr1 : tarih, cpr2 : ay, cpr3 : gün

cpr1=Year(date)				' tarih için Yili ögrendik

if month(date) < 10 then	' eger ay 10 rakamindan küçükse basina 0 ekledik
cpr2 = "0" & month(date)
else
cpr2 = month(date)			' degilse ayi oldugu gibi aldik 
end if

if Day(date) < 10 then		' eger gün 10 rakamindan küçükse basina 0 ekledik
cpr3 = "0" & Day(date)
else
cpr3 = Day(date)			' degilse günü oldugu gibi aldik
end if

' tarih olusturma bölümü bitti


safha = Request.QueryString("safha")
On Error Resume Next
If safha = "" Then 
%>


<% 
if not session("girdinmilan") = "evetgirdimlan" then
response.write "<br><center><br><b>Yonetici izniniz yok.</b>"
response.end
end if
%>

<br /><br><br><br><br><br>
<form action="?safha=yukle" method="post" ENCtype="multipart/form-data">
<table border="0" align="center" cellpadding="5" cellspacing="5">
<tr><td>
<input class="form" type="file" name="dosyaisim" size="35">
</td></tr>
<tr><td align="center">
<input class="buton" type="submit" value=" Dosyayi servera gönder..." onClick="this.value='Dosya yükleniyor..'">
</td></tr>
</table>
</form>
<% end If  %>

<%
If safha="yukle" Then 	' Eger dosya yükleme talimati verilmis ise
dosyayeri = "files"	' Gönderdigimiz dosyanin kaydedilecegi dizini belirliyoruz

' Dosya isminin ilerdede çakismamasi için veya dosya ismine biraz daha hava katmak için random sayi üretiyoruz
Randomize
Numara = INT (RND*9999999999)+1

Server.ScriptTimeout=1000  
Set Upload = Server.CreateObject("Persits.Upload.1")  
Upload.OverwriteFiles = False  
Sayac = Upload.SaveToMemory  

If Sayac = 0 Then 
   Response.Write "Lütfen yüklemek üzere bir dosya seçiniz..."
   Response.End 
End If

For Each File in Upload.Files
Next


Set dosya = Upload.Files ("dosyaisim")
dosyaadi = "mail_"&cpr1&cpr2&cpr3&"_"&saynumara&"_"&Numara&Right(dosya.FileName,4)
Path = Server.MapPath(dosyayeri & "/" & dosyaadi) 
dosya.SaveAs Path

say close : set say = nothing

%>
<br>
<div align="center">
<br>
<Br><Br>
Dosyayi servera transfer ettiniz ve iliskilendirdiniz<br />
Dosya su sekilde isimlendirildi <br /><br /><input type="text" size="100" value="files/<%=dosyaadi%>" /><br />
<br><br><a href="default.asp">Baska dosya yukleyin</a>
<%end if%>
</div>
 

</body>
</html>