ASP Jpeg ile yapman gerekiyor...

intLowerBound = 9999 'seçilecek sayının alt sınırı
intUpperBound = 9999999999 'seçilecek sayının üst sınırı

Randomize()

intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)

Set Upload = Server.CreateObject("Persits.Upload" )
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Yol = Server.MapPath("XXXXX" )&"\" 'XXXXXX Dosyanın yükleneceği yer
Upload.IgnoreNoPost = True
Upload.OverwriteFiles = False
YeniDosya = intRandomInteger
Upload.Save(yol)


For Each File in Upload.Files

If File.ImageType = "UNKNOWN" Then
Response.Write "Sadece Jpg, Gif ve Png Formatlı Dosyalar Yükleyebilirsiniz !!!"
File.Delete
Response.End
End If


File.Move Yol & YeniDosya & File.Ext
Jpeg.Open Yol & YeniDosya & File.Ext
Oran = Jpeg.OriginalWidth / 500
Jpeg.Width = 500
Jpeg.Height = Jpeg.OriginalHeight / oran
Jpeg.Save Yol & YeniDosya & File.Ext