<% Response.Expires = 0 Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open( Server.MapPath(Request("path")) ) ebat = Request("bx") If Jpeg.OriginalHeight > Jpeg.OriginalWidth Then Jpeg.Width = ebat Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth kenarpayi = Round(Int((Jpeg.Height-ebat)/2)) Jpeg.Crop 0, kenarpayi, ebat, ebat+kenarpayi Else Jpeg.height = ebat Jpeg.width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight kenarpayi = Round(Int((Jpeg.Width-ebat)/2)) Jpeg.Crop kenarpayi, 0, ebat+kenarpayi, ebat End if Jpeg.Quality = 100 Jpeg.Interpolation=1 Jpeg.SendBinary %>