Asp ile resim üzerine yazı yazma

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 -->