<% Response.Expires = 0 Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open( Server.MapPath(Request("path")) ) ebat = Request("bx") Jpeg.PreserveAspectRatio = True Jpeg.Canvas.Brush.Color = &H000000 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.SendBinary %>