[ASP] Resim Upload ve Thumbnail yapma

Merhaba Arkadaşlar.

İhtiyacım vardı CW de istediğimi bulamayınca googledan yardım aldım.Buradaki kardeşlerimizde faydalansın diye alıntıyı aynen koyuyorum;
öncelikle sunucuna aspupload ve aspjpeg bileşenlerini yuklemen gerekir, daha sonra kullanıcılarının resim yukleyebilmesi için resim yukleme sayfasında bir form oluşturmalısın ve aşagıdaki gibi onu yollamalısın

<form id="resim_yukle" action="resim_yukle.asp" method="post" name="resim_yukle" enctype="multipart/form-data">

</form>

formun resim_yukle.asp gitti
şimdi resim_yukle.asp yi oluşturuyoruz
[asp]<%jpeg.OriginalHeight Then
jpeg.Width = L
jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
jpeg.Height = L
jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If
jpeg.PreserveAspectRatio = True
If jpeg.OriginalWidth > jpeg.OriginalHeight Then
jpeg.Width = L
Else
jpeg.Height = L
End If
For Each File in Upload.Files
Jpeg.Save server.MapPath(“upload\\th”&guvenlik&”.jpg”)
th = server.MapPath(“upload\\th”&guvenlik&”.jpg”)
rs = file.Path
next
uzun = right(th,24)
res = right(rs,24)
response.Write uzun
mes = replace(uzun,”th”,”rs”)
set baglanti=server.CreateObject(“adodb.connection” )
baglanti.open”provider=microsoft.jet.oledb.4.0;data source=”& server.MapPath(“db.mdb” )
set kd = server.CreateObject(“ADODB.Recordset”)
kd.open “Select * From resimler”,baglanti,1,3’buraya resmin
’kayıtolacağı tabloyu yazmalısın
kd.addnew
kd(“resim”) = mes
kd(“thumb”) = uzun
kd.update
’ bu kadar resmim thumbu oluşturuldu orjinal resim ve thumb yolu kayıt edildi
%>[/asp]


Google ile gelen arama sonuçları:

  • asp resim upload
  • asp net thumbnail oluşturma
  • resimupload
  • resim upload sitesi
  • resim upload siteleri
  • asp thumbnail resim
  • thumbnail yapma
  • asp net thumbnails oluşturma
  • asp net thumbnail yapmak
  • asp ile resim thum yapmak

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

This site uses Akismet to reduce spam. Learn how your comment data is processed.