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

__________________

ORTAMIN BİTTİĞİ YERDE BİZ BAŞLARIZ TARZIMIZ İÇİN ÖLÜR ŞEKLİMİZ İÇİN YAŞARIZ!!!…