<% Response.Expires = 0 Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open( Server.MapPath(Request("path")) ) ebat = 600 If Jpeg.OriginalWidth<600 then ebat=Jpeg.OriginalWidth end if Jpeg.Width = ebat 'Enini istediğimiz boyuta çekiyoruz Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth 'Yüksekliğini orantılı şekilde ayarlıyoruz kenarpayi = Round(Int((Jpeg.Height-ebat)/2)) 'Üst ve alttan kesilecek kısmı ayarlıyoruz Jpeg.Crop 0, 0, ebat, Jpeg.Height 'Üstten kırparak ölçüyü ortalıyoruz Jpeg.Quality = 100 Jpeg.Interpolation=1 Jpeg.SendBinary %>