AspJeg

[hargon 64]

Eu criei um código para fazer upload da imagem e logo depois redimensioná-la em dois tamanhos diferentes.

 

As imagens redimensionadas estão ficando embaçadas. Pq será?

 

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("../usuarios/"&nmarquivonovo)
Jpeg.PreserveAspectRatio = True
Jpeg.Quality = 97

if cint(jpeg.OriginalWidth) >= cint(jpeg.OriginalHeight) then
	   Jpeg.Width = 60
	   Jpeg.Save Server.MapPath("../usuarios/p/"&nmarquivonovo)
	   Jpeg.Width = 80
	   Jpeg.Save Server.MapPath("../usuarios/g/"&nmarquivonovo)			   
	
else
	   Jpeg.Height = 60
	   Jpeg.Save Server.MapPath("../usuarios/p/"&nmarquivonovo)
	   Jpeg.Height = 100
	   Jpeg.Save Server.MapPath("../usuarios/g/"&nmarquivonovo)	
end if

[mx loco 1]

use

Jpeg.Sharpen 1, 120

 

ja ta uma boa melhorada

 

mais informações

http://www.aspjpeg.com/manual_04.html