ASP Kod Örnekleri Resim thumb yapmak

Hoşgeldiniz giriş yapmak için tıklayın veya ücretsiz üye olun.

BANA ÖZEL

KOD EKLE

ASP> Kod Örnekleri>

Resim thumb yapmak

Id No : 216

Detaylar

Ekleyen : efkan

Üyelik : 30.09.2006

Son Giriş : 25.08.2010

Kullanıcı Profili | Üyenin Diğer Kayıtları | Üyeye Mesaj Gönder

Tavsiye Et

Hata Bildir

Spurl'e kaydet! http://reddit.com/submit?url=%url%&title=%title%

İçerik Hakkında

Siz sadece resmi seçin. hem resmi upload hem resmi thumb yapar hemde databasee kaydeder. databasee hem resmin normal halini hemde thumb halini kaydeder

İçerik Kodu

'Form Sayfanız:

'resim_yukle.asp

enalt_sayi = 100000
enust_sayi = 999999

Randomize()

isle     = enust_sayi - enalt_sayi + 1
random   = isle * rnd()
random   = random + enalt_sayi
guvenlik = int(random)

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save server.MapPath("..imagesurun")'Resminizin kaydolduğu klasör

' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
For Each File in Upload.Files
dosya = file.path
Jpeg.Open  dosya

set fso = CreateObject("Scripting.FileSystemObject") 
set file = fso.GetFile(File.Path) 
file.name = "rs"&guvenlik&".jpg" 
set file = nothing 
set fso = nothing 
next

L = 100
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

If jpeg.OriginalWidth > 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("..imagesurun	h"&guvenlik&".jpg")
th = server.MapPath("..imagesurun	h"&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 "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("db.mdb") 'buraya kendi database'inizi yazın
set kd = server.CreateObject("ADODB.Recordset")
kd.open "Select * From urun",baglanti,1,3'buraya resmi 
'kaydedeceğiniz tabloyu yazın
kd.addnew
kd("resim") = mes 'urun tablosundaki resim alan'ına normal 
' resmi kaydeder
kd("thumb") = uzun 'urun tablosundaki thumb alanına resmin 
' thumb halini kaydeder
kd.update
%> 
'Sizde bu sayede database'den resimleri çağırabilirsiniz. Database'e resimlerin yollarını kaydeder.

uğur toprakdeviren
www.utopyazilim.com

İncelenme sayısı : 2518 Eklenme Tarihi : 18.08.2007 18:01:43

Ana Sayfam yap

Sık Kullanılanlara Ekle

Üyelik

İletişim

Web sayfamızda yayımlanan içerik ve linklerden oluşabilecek sorunlardan Kod Merkezi sorumlu tutulamaz. 0,36