Bu kodu kullanmanız için asp upload ve asp jpeg bileşenlerine ihtiyacınız vardır - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Web Master Kaynakları > XML

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 08 February 2008, 14:48   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Bu kodu kullanmanız için asp upload ve asp jpeg bileşenlerine ihtiyacınız vardır

Bu kodu kullanmanız için asp upload ve asp jpeg bileşenlerine ihtiyacınız vardır

Kod:
'Açıklama : Bu kodu kullanmanız için Asp Upload ve Asp Jpeg 
'bileşenlerine ihtiyacınız vardır.
'Form Sayfanız:

<form id="form1" name="form1" method="post" action="resim_yukle.asp" ENCTYPE="multipart/form-data" >
<input type="file" name="file" />
<input name="Submit" type="submit" />
</form>

'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("..\images\urun\")'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("..\images\urun\th"&guvenlik&".jpg")
th = server.MapPath("..\images\urun\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 "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.
Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
Asal sayı bulan c++ kodu tamerr89 C++ 0 29 March 2008 18:35
Asp kodlari veritabanina baglanip wml kodu üretir tamerr89 WML 0 08 February 2008 14:59
wap Online ziyaretci kodu tamerr89 WML 0 08 February 2008 14:58
Her İşte Bir Hayır Vardır ! gebzelim Öyküler & Hikayeler 1 25 April 2006 17:20
Her Yalnızlıkta Bir Keşke Vardır... Papatyam Deneme & Düz Yazılar 0 09 March 2006 12:53

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.