quote:

<%
yy=yol(request("path"))
if yy ="/" then
Response.Redirect "klasor.asp?path=upload"
else
x=yol(request("path"))
end if
if yy="\" then
Response.Redirect "klasor.asp?path=upload"
else
x=yol(request("path"))
end if
if yy="\\" then
Response.Redirect "klasor.asp?path=upload"
else
x=yol(request("path"))
end if
if yy="//" then
Response.Redirect "klasor.asp?path=upload"
else
x=yol(request("path"))
end if

if not x="" then
strListelenecekKlasor = request("path")
else
Response.Redirect "klasor.asp?path=upload"
end if
Set ObjFSO=Server.CreateObject("Scripting.FileSystemObject")
Set strDosyalar=ObjFSO.GetFolder(Server.MapPath(strListelenecekKlasor))

Private Function FileSize(ItemSize)
If ItemSize >= 1073741824 Then
ItemSize = FormatNumber((ItemSize/1073741824),2) &" GB"
ElseIf ItemSize >= 1048576 Then
ItemSize = FormatNumber((ItemSize/1048576),2) &" MB"
ElseIf ItemSize >= 1024 Then
ItemSize = FormatNumber((ItemSize/1024),2) &" KB"
ElseIf ItemSize >= 0 Then
ItemSize = ItemSize &" byte"
Else
ItemSize = "0 byte"
End If

FileSize = ItemSize
End Function
Function TR(strGelen)
TR = Replace(strGelen, "İ", "İ")
TR = Replace(TR, "ı", "ı")
TR = Replace(TR, "ç", "ç")
TR = Replace(TR, "Ç", "Ç")
TR = Replace(TR, "ş", "ş")
TR = Replace(TR, "Ş", "Ş")
TR = Replace(TR, "ü", "ü")
TR = Replace(TR, "Ü", "Ü")
TR = Replace(TR, "ğ", "ğ")
TR = Replace(TR, "Ğ", "Ğ")
TR = Replace(TR, "ö", "ö")
TR = Replace(TR, "Ö", "Ö")
End Function
%><center>
<table width="931" cellpadding="0" cellspacing="0" border="0" bordercolor="gray">
<td width="931">
<table width="934" cellpadding="1" cellspacing="1" border="1" bordercolor="gray" height="62">
<tr><td bgcolor="black" width="77%" height="16">
<font size="2" face="Arial" color="white"> Root
<b>Bölümü - <%=x%></b></td><td bgcolor="black" width="135" height="16">
<p align="center"><b><a href="/in/dosyayukle.asp">
<font face="Arial" size="2" color="#FFFFFF">
<span style="text-decoration: none">Dosya Yükle</span></font></a></b></td></tr>
<tr bgcolor="#dddddd">
<td width="77%" height="16">
<p align="center"><font size="2" face="Arial"> <b>Dosya</td>
<td width="135" height="16">
<p align="center"><font size="2" face="Arial"> <b>Dosya Detay</b></td>
</tr>
<%
For each strBulunanDosya in strDosyalar.subfolders
%>
<tr onmouseover="this.style.backgroundColor='lightgreen';" onmouseout="this.style.backgroundColor='#FFFFFF';" onclick="return listim('<%=TR(strListelenecekKlasor)%>/<%=TR(strBulunanDosya.Name)%>')">
<td width="77%" height="13"><font size="2" face="Arial"><a href="#" onclick="return listim('<%=TR(strListelenecekKlasor)%>/<%=TR(strBulunanDosya.Name)%>')">
<span style="text-decoration: none"><%=TR(strBulunanDosya.Name)%></span></a></td>
<td width="135" align="center" height="13"><font size="2" face="Arial"><%=strBulunanDosya.DateLastModified%></td>
</tr>
<%
Next
For each strBulunanDosya in strDosyalar.files
dnam=strBulunanDosya.Name
%>
<tr onmouseover="this.style.backgroundColor='lightgreen';" onmouseout="this.style.backgroundColor='#FFFFFF';">
<td width="77%" height="1" bordercolor="#800000">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="89%" id="AutoNumber1">
<tr>
<td width="15%" rowspan="3"><font size="2" face="Arial"><a href="<%=TR(strListelenecekKlasor)%>/<%=TR(strBulunanDosya.Name)%>" target="_blank">
<span style="text-decoration: none">
<img src="<%=TR(strListelenecekKlasor)%>/<%=TR(strBulunanDosya.Name)%>" width="143" height="123"></span></a></td>
<td width="8%"><b><font size="2" face="Arial"> Link</font></b></td>
<td width="65%"><font size="2" face="Courier">
<font face="Arial">
<input name="T1" size="75" value="http://www.xxx.com/<%=TR(strListelenecekKlasor)%>/<%=TR(strBulunanDosya.Name)%>"></font></td>
</tr>
<tr>
<td width="8%"><b><font size="2" face="Arial"> Forum  </font></b></td>
<td width="65%"><font size="2" face="Courier">
<font face="Arial">
<input name="T1" size="75" value="

"></font></td>
</tr>
<tr>
<td width="8%"><b><font size="2" face="Arial"> Web</font></b></td>
<td width="65%"><font size="2" face="Courier">
<font face="Arial">
<input name="T1" size="75" value="<img src="http://www.xxx.com/<%=TR(strListelenecekKlasor)%>/<%=TR(strBulunanDosya.Name)%>">"></font></td>
</tr>
</table>
</td>
<td width="135" align="center" height="1" bordercolor="#800000">
<font size="2" face="Arial"><%=FileSize(strBulunanDosya.Size)%><br><%=strBulunanDosya.DateLastModified%></td>
</tr>
<%
Next
%>
</table>
</td>
</table>
<table width="416" cellpadding="0" cellspacing="0" border="0" bordercolor="gray">
<td>
<div id="list" name="list"></div>
</td>
</table>

quote:


<!-- BEGIN PAGE CONTENT -->
<div id="contentTop"></div>
<div id="content-wrap">
<div id="content" class="container_16 clearfix">

<!-- BEGIN PORTFOLIO CONTENT -->
<div id="contentPortfolio" class="grid_16 fadehover">

<div class="path"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=112578925&url=default.asp" data-href="default.asp">Ana Sayfa </a><img src="images/arrowPath.png" alt="" /> <strong>
Resim Yükleme</strong></div>
<!-- BEGIN FIRST SET -->


<%
' transfer ettiğimiz dosyayı isimlendirirken dosya adına günün tarihini iliştirmesi için aşama oluşturuyoruz...
' dosyayı transfer ettikten sonra bu verileri kullanacağız. cpr1 : tarih, cpr2 : ay, cpr3 : gün

cpr1=Year(date) ' tarih için Yılı öğrendik

if month(date) < 10 then ' eğer ay 10 rakamından küçükse başına 0 ekledik
cpr2 = "0" & month(date)
else
cpr2 = month(date) ' değilse ayı olduğu gibi aldık
end if

if Day(date) < 10 then ' eğer gün 10 rakamından küçükse başına 0 ekledik
cpr3 = "0" & Day(date)
else
cpr3 = Day(date) ' değilse günü olduğu gibi aldık
end if
' tarih oluşturma bölümü bitti

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


<form action="dosyayukle.asp?safha=yukle" method="post" ENCtype="multipart/form-data">


<p align="center">
<b><font size="2" face="Arial">
Buradan Sadece Resim Yükleyebilirsiniz.
Zirve Forum ve Muhasebe İle İlgili Olmayan Dosyalar Silinecektir</font></b><font face="Arial"><br><br>
</b>
<input class="form" type="file" name="dosyaisim" size="49"><font size="2">
</font></font>
</td></tr>
<tr><td align="center">
<font face="Arial">
<br>
<br>
<input class="buton" type="submit" value=" Resmi Yüklemek İçin Tıklayınız" onClick="this.value='Resim Dosyası Yükleniyor... Lütfen Bekleyiniz...'"><font size="2">
<br>
 </font></font></td></tr>
</table>
</form>
<font face="Arial" size="2">
<p align="center">
<% end If %>

<%
If safha="yukle" Then ' Eğer dosya yükleme talimatı verilmiş ise
dosyayeri = "upload" ' Gönderdiğimiz dosyanın kaydedileceği dizini belirliyoruz

' Dosya isminin ilerdede çakışmaması için veya dosya ismine biraz daha hava katmak için random sayı ü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.redirect "../in/panel.asp?id=8"
Response.End
End If

For Each File in Upload.Files
If FILE.EXT<>".jpg" then 'bu tip dosyalara müsaade veriyoruz
If FILE.EXT<>".jpeg" then 'bu tip dosyalara müsaade veriyoruz
If File.ImageType="UNKNOWN" Then 'biraz önce müsaade verdiklerimizin dışında bütün resim formatlarını kabul ediyoruz.
response.redirect "../in/panel.asp?id=8"
Response.End
End if
End if
End if
Next


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

Set Jpeg = Server.CreateObject("Persits.Jpeg" )
Jpeg.Open Path

If Jpeg.OriginalWidth > 990 then
Jpeg.Width = 990
Jpeg.Height = (Jpeg.OriginalHeight * 990) / Jpeg.OriginalWidth
End If

Jpeg.Canvas.Brush.Solid = False
Jpeg.PNGOutput = True
Jpeg.ToRGB
Jpeg.Quality = 90 'resim kalitesi %100
Jpeg.Interpolation = 0
Jpeg.PreserveAspectRatio = True
Jpeg.Crop 0, kenarpayi, ebat, ebat+kenarpayi 'Üstten kırparak ölçüyü ortalıyoruz
Path2 = Server.MapPath(dosyayeri & "/" & dosyaadi)
Jpeg.Save Path2
say close : set say = nothing

%>

<tr>


</td>
</tr></table></p>
<p align="center">


<b>Tebrikler... Yükleme İşlemi Başarı İle
Tamamlandı. Aşağıdaki Kodları Kullanabilirsiniz. <br>Yeni bir resim dosyası yüklemek
için </b><a href="dosyayukle.asp">
<span style="text-decoration: none; font-weight: 700">tıklayınız</span></span></a><br>
<hr></p>
<br>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="75%" id="table1" height="1">
<tr>
<td width="24%" height="22" align="right">
<font face="Arial" size="2">
<b>Direk Link :  </b></font></td>
<td width="76%" height="22">
<font face="Arial">
<input type="text" name="T2" size="81" value="http://www.xxx.com/upload/<%=dosyaadi%>"></font></td>
</tr>
<tr>
<td width="24%" height="16" align="right">
<font face="Arial" size="2">
<b>Forum İçin Kod :  </b></font></td>
<td width="76%" height="16">
<font face="Arial">
<input type="text" name="T1" size="81" value="

"></font></td>
</tr>
</table>
</div>
<p align="center"><font face="Arial" size="2">
<a target="_blank" href="http://www.xxx.com/upload/<%=dosyaadi%>">
<br>
<img src="http://www.xxx/upload/<%=dosyaadi%>" align="middle" border="0"></a>
<%end if%>
<script>
$(document).ready(function(){
//Examples of how to assign the ColorBox event to elements
$(".example7").colorbox({width:"90%", height:"80%", iframe:true});

});
</script>

<!-- END THIRD SET -->


</div> <!-- end #contentPortfolio .grid_16 -->
<!-- END PORTFOLIO CONTENT -->

<div id="pagination" class="grid_16"></div><!-- end #pagination -->

</div> <!-- end #content -->
</div> <!-- end #content-wrap -->
<!-- END PAGE CONTENT -->

<!-- BEGIN FOOTER -->
<div id="footer-wrap">
<div id="footer" class="container_16 clearfix">
</div> <!-- end #footer -->
</div> <!-- end #footer-wrap -->
<!-- END FOOTER -->