<% '###################Beyaz##################################### function resim_kirp_crop (dosya_nerede,nereye_kaydedilecek,genislik_width,yukseklik_Height) Set Jpeg = Server.CreateObject("Persits.Jpeg") 'Bileşen çağırılıyor Path = dosya_nerede Jpeg.Open Path ebat = clng(genislik_width) Jpeg.PRESERVEASPECTRATIO = TRUE If Jpeg.ORIGINALWIDTH > ebat OR Jpeg.ORIGINALHEIGHT > ebat Then If Jpeg.ORIGINALWIDTH > Jpeg.ORIGINALHEIGHT Then Jpeg.WIDTH = ebat Else Jpeg.HEIGHT = ebat End If End If if Jpeg.WIDTHgenislik_width then Jpeg.Width = genislik_width else Jpeg.Width = Jpeg.OriginalWidth end if Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth W = genislik_width if Jpeg.OriginalWidth yukseklik_Height Then Jpeg.Height= yukseklik_Height Jpeg.Width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight end if If Jpeg.Height > Jpeg.Width Then Jpeg.Height= Jpeg.Width+10 Jpeg.Width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight end if 'If Jpeg.Height > yukseklik_Height Then 'Jpeg.Crop 10, 10, W, yukseklik_Height 'End If if Jpeg.OriginalWidth>genislik_width then Jpeg.Width = genislik_width else Jpeg.Width = Jpeg.OriginalWidth end if Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth Jpeg.Quality = 100 jpeg.Sharpen 1, 110 Jpeg.Save nereye_kaydedilecek set jpeg=nothing resim_kirp=True end function %>