08 February 2008, 14:48 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
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. |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
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 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |