öncelikle sunucuna aspupload ve aspjpeg bileşenlerini yuklemen gerekir,daha sonra kullanıcılarının resim yukleyebilmesi için resim yukleme sayfasında bir form oluşturmalısın ve aşagıdaki gibi onu yollamalısın

<form id="resim_yukle" name="resim_yukle" method="post" action="resim_yukle.asp" ENCTYPE="multipart/form-data" >

formun resim_yukle.asp gitti
şimdi resim_yukle.asp yi oluşturuyoruz

<%
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("upload\")'Resmin kayıt oldugu klasor
Set Jpeg = Server.CreateObject("Persits.Jpeg")
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("upload\th"&guvenlik&".jpg")
th = server.MapPath("upload\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"provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("db.mdb" ) 
set kd = server.CreateObject("ADODB.Recordset")
kd.open "Select * From resimler",baglanti,1,3'buraya resmin
'kayıtolacağı tabloyu yazmalısın
kd.addnew
kd("resim") = mes
kd("thumb") = uzun
kd.update
' bu kadar resmim thumbu oluşturuldu orjinal resim ve thumb yolu kayıt edildi
%>

resimleri kaydeceğin veri tabanında resimler olarak belirlediğimiz tabloda orjinal resim ve thumbun yollarının olduğu sutunlar oluşturmalısın scriptin çalışması için ana dizinde upload klasörü oluşturmalı ve buna full yazım izni vermen gerekir kodlar arasına ufak notlar düştüm onlar anlamana yardımcı olacaktır
kolay gelsin