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.Save Server.MapPath("/imagens_reduzidas/foto.jpg")

Response.Write jpeg.SendBinary

Set Jpeg = Nothing
%>