<%
'Örnegin : ?path=resimler/snap.jpg&bx=100

Response.Expires = 0

If Not Request("path")="" Then

	Set Jpeg = Server.CreateObject("Persits.Jpeg") 'Bilesen çagiriliyor

	Jpeg.Open( Server.MapPath(Request("path")) ) 'Sayfa adres yerinde resmin adresi

	ebat = Request("bx") 'Örn : 80

	If ebat="" Then
		ebat = Jpeg.OriginalWidth
	End if


	If Jpeg.OriginalHeight > Jpeg.OriginalWidth Then 'Eger boyu eninden uzunsa

		Jpeg.Width = ebat 'Enini istedigimiz boyuta çekiyoruz
		Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth 'Yüksekligini orantili sekilde ayarliyoruz
		kenarpayi = Round(Int((Jpeg.Height-ebat)/2)) 'Üst ve alttan kesilecek kismi ayarliyoruz
		Jpeg.Crop 0, kenarpayi, ebat, ebat+kenarpayi 'Üstten kirparak ölçüyü ortaliyoruz

	Else ' Boy-en esit yahut en daha uzunsa...

		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 ' sunucuya gönder...

End if
%>