ASPJpeg
Redimensionando imagens com o ASPJpeg
- Fabricante: Persits Software, Inc (www.persits.com/)
- Documentação: http://www.aspjpeg.com/
Exemplo de implementação:
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
'Abre a imagem que está gravada na pastado site
Jpeg.Open Server.MapPath("/imagens/foto.jpg")
'Reduz o tamanho em 50%
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
'Cria o thumbnail e grava em outra pasta
Jpeg.Open Server.MapPath("/imagens_reduzidas/foto.jpg")
Response.Write jpeg.SendBinary
Set Jpeg = Nothing
%>