[ASP]Resim Tumblr Yapma | Ogreniyoruz.Org

[ASP]Resim Tumblr Yapma

74

 

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 –>

 

 

Share This:

Bu Konularda İlginizi Çekebilir

Bir Cevap Yazın

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

Şu HTML etiketlerini ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Önceki yazıyı okuyun:
[ASP]Rastgele Sayı Üretme

  1 <!--  http://www.kodmerkezi.com --> 2 <% 3 intLowerBound = 1 'alt sınır 4 intUpperBound = 9 'üst sınır 5 6 Randomize() 7 8 intRangeSize = intUpperBound - intLowerBound + 1 9 sngRandomValue = intRangeSize * Rnd() 10 sngRandomValue = sngRandomValue + intLowerBound 11...

Kapat