| 1 | <!– http://www.kodmerkezi.com –> |
| 2 | |
| 3 | ‘Form Sayfanız: |
| 4 | |
| 5 | <form id=”form1″ name=”form1″ method=”post” action=”resim_yukle.asp” ENCTYPE=”multipart/form-data” > |
| 6 | <input type=”file” name=”file” /> |
| 7 | <input name=”Submit” type=”submit” /> |
| 8 | </form> |
| 9 | |
| 10 | ‘resim_yukle.asp |
| 11 | |
| 12 | <% |
| 13 | |
| 14 | enalt_sayi = 100000 |
| 15 | enust_sayi = 999999 |
| 16 | |
| 17 | Randomize() |
| 18 | |
| 19 | isle = enust_sayi – enalt_sayi + 1 |
| 20 | random = isle * rnd() |
| 21 | random = random + enalt_sayi |
| 22 | guvenlik = int(random) |
| 23 | |
| 24 | Set Upload = Server.CreateObject(“Persits.Upload”) |
| 25 | Upload.Save server.MapPath(“..imagesurun”)’Resminizin kaydolduğu klasör |
| 26 | |
| 27 | |
| 28 | ‘ Create instance of AspJpeg |
| 29 | Set Jpeg = Server.CreateObject(“Persits.Jpeg”) |
| 30 | ‘ Open source image |
| 31 | For Each File in Upload.Files |
| 32 | dosya = file.path |
| 33 | Jpeg.Open dosya |
| 34 | |
| 35 | |
| 36 | set fso = CreateObject(“Scripting.FileSystemObject”) |
| 37 | set file = fso.GetFile(File.Path) |
| 38 | file.name = “rs”&guvenlik&”.jpg” |
| 39 | set file = nothing |
| 40 | set fso = nothing |
| 41 | next |
| 42 | |
| 43 | |
| 44 | L = 100 |
| 45 | Jpeg.Width = L |
| 46 | Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth |
| 47 | |
| 48 | If jpeg.OriginalWidth > jpeg.OriginalHeight Then |
| 49 | jpeg.Width = L |
| 50 | jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth |
| 51 | Else |
| 52 | jpeg.Height = L |
| 53 | jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight |
| 54 | End If |
| 55 | |
| 56 | |
| 57 | jpeg.PreserveAspectRatio = True |
| 58 | If jpeg.OriginalWidth > jpeg.OriginalHeight Then |
| 59 | jpeg.Width = L |
| 60 | Else |
| 61 | jpeg.Height = L |
| 62 | End If |
| 63 | |
| 64 | |
| 65 | |
| 66 | For Each File in Upload.Files |
| 67 | Jpeg.Save server.MapPath(“..imagesurun h”&guvenlik&”.jpg”) |
| 68 | th = server.MapPath(“..imagesurun h”&guvenlik&”.jpg”) |
| 69 | rs = file.Path |
| 70 | next |
| 71 | uzun = right(th,24) |
| 72 | res = right(rs,24) |
| 73 | response.Write uzun |
| 74 | mes = replace(uzun,”th”,”rs”) |
| 75 | |
| 76 | set baglanti = server.CreateObject (“ADODB.Connection”) |
| 77 | baglanti.Open “DRIVER={Microsoft Access Driver (*.mdb)};” & _ |
| 78 | “DBQ=” & Server.MapPath(“db.mdb”) ‘buraya kendi database’inizi yazın |
| 79 | set kd = server.CreateObject(“ADODB.Recordset”) |
| 80 | kd.open “Select * From urun”,baglanti,1,3’buraya resmi |
| 81 | ‘kaydedeceğiniz tabloyu yazın |
| 82 | kd.addnew |
| 83 | kd(“resim”) = mes ‘urun tablosundaki resim alan’ına normal |
| 84 | ‘ resmi kaydeder |
| 85 | kd(“thumb”) = uzun ‘urun tablosundaki thumb alanına resmin |
| 86 | ‘ thumb halini kaydeder |
| 87 | kd.update |
| 88 | %> |
| 89 | ‘Sizde bu sayede database’den resimleri çağırabilirsiniz. Database’e resimlerin yollarını kaydeder. |
| 90 | |
| 91 | uğur toprakdeviren |
| 92 | www.utopyazilim.com |
| 93 | |
| 94 | <!– http://www.kodmerkezi.com –> |
