<% Response.Expires = 0 Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open( Server.MapPath(Request("path")) ) ebat = Request("bx") If Jpeg.OriginalWidth < Jpeg.OriginalHeight 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 = 140 Jpeg.width = 140 kenarpayi = Round(Int((Jpeg.Width-ebat)/2)) Jpeg.Crop kenarpayi, 0, ebat+kenarpayi, ebat End if Jpeg.Quality = 100 Jpeg.Interpolation=1 Jpeg.SendBinary %>