Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
resim upload
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
1 Misafir - 1 Masaüstü
Giriş
Mesaj
-
-
sayfa.asp
-------------------------------------------------------------------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
</head>
<body leftmargin="0" topmargin="30" bgcolor="#ffffff">
<center>
<table width="100%" border="0" cellspacing="5" cellpadding="5">
<tr>
<td align="center" valign="_top">
<FORM NAME="MyForm" METHOD="post" ENCTYPE="multipart/form-data" ACTION="resim_upload.asp">
<INPUT TYPE="FILE" SIZE="50" NAME="FILE1"><BR>
</td></TR><tr>
<td align="center" valign="_top"><br><INPUT TYPE=button VALUE="Kapat" onclick="javascript:window.close();"> <INPUT TYPE=SUBMIT VALUE="Şimdi Yükle">
</FORM>
</td>
</tr>
</table>
</BODY>
</HTML>
----------------------
-----------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
</head>
<body leftmargin="0" topmargin="30" bgcolor="#ffffff">
<center>
<table width="90%" border="0" cellspacing="0" cellpadding="0" height="30%">
<tr>
<td align="center" valign="_top">
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Count = Upload.SaveToMemory
If Count > 0 Then
Set File = Upload.Files(1)
Path = Server.MapPath("/resimx/" )&"\" & File.ExtractFileName
dirname = "resimler/"
kklasor = "kuresims/" 'resmin küçük boy olarak saklanacağı klasör
bklasor = "uresims/" 'resmin büyük boy olarak saklanacağı klasör
dosya = File.ExtractFileName
duzanti = right(dosya,3)
if duzanti <> "gif" and duzanti <> "jpg" and duzanti <> "png" then
response.write "<br><br><br><br><center><font class=red><small><b>Üzgünüm ! <br><br>Sadece resim dosyası ekleyebilirsiniz. Lütfen bir resim dosyası ile tekrar deneyiniz.<br><br><br>Resim dosyalarının uzantıları; jpg, gif veya png olmalıdır.<br><br><br><br><a href=javascript:history.back();>Geri Dön</a><br><br>"
response.end
end if
File.SaveAs Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
'---------------- büyük resim alınıp uygun boyutlara getirilecek
Jpeg.Open Path
BuyukResimGenislik = "480"
BuyukResimYukseklik = "360"
' Resmin genişliğini ayarlayalım
Jpeg.Width = BuyukResimGenislik
' Orjinal genişlik yukseklik kavramını bozmadan yeni yüksekliği ayarlayalım
Jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
' Kavramı bozmadık ama eğer boyutlar yine istediğimiz gibi değilse biraz kırpalım
If Jpeg.Height>BuyukResimYukseklik Then
Jpeg.Crop 0, 0, Jpeg.Width, BuyukResimYukseklik
End If
if Jpeg.Height < BuyukResimYukseklik then
Jpeg.Height = BuyukResimYukseklik
end if
'resmi biraz netleştirelim
Jpeg.Sharpen 1, 110
' Şimdi de dosyayı Buyuk Resim Klasoru ne saklayalım
Jpeg.Save Server.MapPath(dirname) & "/" & bklasor & "/" & dosya
' End If
'------------------------------- küçük resim
Jpeg.Open Path
KucukResimGenislik2 = "120"
KucukResimYukseklik2 = "90"
Jpeg.Width = KucukResimGenislik2
Jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
If Jpeg.Height>KucukResimYukseklik2 Then
Jpeg.Crop 0, 0, Jpeg.Width, KucukResimYukseklik2
End If
if Jpeg.Height < KucukResimYukseklik2 then
Jpeg.Height = KucukResimYukseklik2
end if
Jpeg.Sharpen 1, 130
Jpeg.Save Server.MapPath(dirname) & "/" & kklasor & "/" & dosya
response.Write "<center><br><br><font face=arial size=3><b>Resim Yüklendi...</b></font></center>"
' -------------------------------------------------------------
Else
Response.Write "Hata Oluştu..."
End If
%>
</BODY>
</HTML>
-
Neden böyle birşeye gerek duydun? AspJpeg componentini kullanarak resimlerin önizlemesini deformasyon olmadan yaptırabilirsin. Üzerine yazı yazdırabilirsin. Boyutlarını değiştirebilirsin. Bu sayede hem serverde yer işgal etmez, hem daha hızlı açılır hemde kod karışıklığı olmaz.
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
