Kullanılanlar :

 VBScript

  Verileri thumb.asp ya da istediginiz bir isimle kaydedin.. Örnek çalisma düzeni : ?path=resimler/snap.jpg&bx=100

 <%
'© 2007 / Murat Tahtaci
'ASP.JPEG ile resim küçültme ve crop ederek kareye dönüstürmek
'Iyi günlerde kullanin...
'Örnegin : ?path=resimler/snap.jpg&bx=100

Response.Expires = 0

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  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...
%>