<%
page=request.QueryString("page")
if page="resize" then

	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.OriginalHeight
		End if
		Jpeg.Height = ebat 'Enini istedigimiz boyuta çekiyoruz
		Jpeg.Width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight 'Yüksekligini orantili sekilde ayarliyoruz
		Jpeg.SendBinary ' sunucuya gönder...
	End if
	
elseif page="filemanager" then

	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.OriginalHeight
		End if
		if Jpeg.OriginalHeight > ebat then
		Jpeg.Height = ebat 'Enini istedigimiz boyuta çekiyoruz
		Jpeg.Width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight 'Yüksekligini orantili sekilde ayarliyoruz
		end if
		Jpeg.SendBinary ' sunucuya gönder...
	End if
	
else
	
	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
	
end if
%>