Resim Thumb Yapmak

**djdem** · 05-23-2008

'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("

imagesurunth"&guvenlik&"

jpg")

th = server

MapPath("

imagesurunth"&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

**musash!** · 06-29-2008

siz webcimisiniz bana web tasarım öğretirmisiniz?

Konu Araçları	Bu Konuda Ara
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla	Bu Konuda Ara: Gelişmiş Arama
Görünüm Modları

Resim Thumb Yapmak

Resim Thumb Yapmak

Cevap : Resim Thumb Yapmak

Cevap : Resim Thumb Yapmak

05-23-2008	#1
djdem	Resim Thumb Yapmak '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_yukleasp" ENCTYPE="multipart/form-data" > <input type="file" name="file" /> <input name="Submit" type="submit" /> </form> 'resim_yukleasp <% 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 = ServerCreateObject("PersitsUpload") UploadSave serverMapPath("\images\urun\")'Resminizin kaydolduğu klasör ' Create instance of AspJpeg Set Jpeg = ServerCreateObject("PersitsJpeg") ' Open source image For Each File in UploadFiles dosya = filepath JpegOpen dosya set fso = CreateObject("ScriptingFileSystemObject") set file = fsoGetFile(FilePath) filename = "rs"&guvenlik&"jpg" set file = nothing set fso = nothing next L = 100 JpegWidth = L JpegHeight = JpegOriginalHeight * L / JpegOriginalWidth If jpegOriginalWidth > jpegOriginalHeight Then jpegWidth = L jpegHeight = jpegOriginalHeight * L / jpegOriginalWidth Else jpegHeight = L jpegWidth = jpegOriginalWidth * L / jpegOriginalHeight End If jpegPreserveAspectRatio = True If jpegOriginalWidth > jpegOriginalHeight Then jpegWidth = L Else jpegHeight = L End If For Each File in UploadFiles JpegSave serverMapPath("imagesurunth"&guvenlik&"jpg") th = serverMapPath("imagesurunth"&guvenlik&"jpg") rs = filePath next uzun = right(th,24) res = right(rs,24) responseWrite uzun mes = replace(uzun,"th","rs") set baglanti = serverCreateObject ("ADODBConnection") baglantiOpen "DRIVER={Microsoft Access Driver (mdb)};" & _ "DBQ=" & ServerMapPath("dbmdb") 'buraya kendi database'inizi yazın set kd = serverCreateObject("ADODBRecordset") kdopen "Select From urun",baglanti,1,3'buraya resmi 'kaydedeceğiniz tabloyu yazın kdaddnew kd("resim") = mes 'urun tablosundaki resim alan'ına normal ' resmi kaydeder kd("thumb") = uzun 'urun tablosundaki thumb alanına resmin ' thumb halini kaydeder kdupdate %> 'Sizde bu sayede database'den resimleri çağırabilirsiniz Database'e resimlerin yollarını kaydeder __________________ nO sEvGiLi No dıRdıR onLine şamaTa onLine gıRgıR ORTAMIN BİTTİĞİ YERDE BİZ BAŞLARIZ TARZIMIZ İÇİN ÖLÜR ŞEKLİMİZ İÇİN YAŞARIZ!!!…

06-29-2008	#2
musash!	Cevap : Resim Thumb Yapmak siz webcimisiniz bana web tasarım öğretirmisiniz? __________________ by musash!yattara61