Criando miniaturas de imagem com o aspJpeg

O AspJpeg é um componente que permite a manipulação de imagens GIF, JPEG e PNG. Edição do tamanho das imagens, criar thumbnails de alta qualidade e adicionar texto a uma imagem.

Criar Thumbnail de uma imagem

<%
' Cria uma instância do controle
Set AspJpeg = Server.CreateObject("Persits.Jpeg")
' Localização da imagem original
img_Original = Server.MapPath("imagem.jpg")
' Abre a imagem original
AspJpeg.Open img_Original
' Reduz a imagem em 50%
AspJpeg.Width  = AspJpeg.OriginalWidth / 2
AspJpeg.Height = AspJpeg.OriginalHeight / 2
' Salva a imagem reduzida
AspJpeg.Save Server.MapPath("imagem_thumbnail.jpg")
' Tira o objeto da memória
Set AspJpeg = Nothing
' Exibe a imagem na tela
Response.Write "<img src=""imagem_thumbnail.jpg"" />"
%>

Adicionar texto a uma imagem

<%
' Cria uma instância do controle
Set AspJpeg = Server.CreateObject("Persits.Jpeg")
' Abre a imagem original
AspJpeg.Open Server.MapPath("imagem.jpg")
' Escreve o texto
AspJpeg.Canvas.Font.Color = &HFF0000
AspJpeg.Canvas.Font.Family = "Courier New"
AspJpeg.Canvas.Font.Bold = True
AspJpeg.Canvas.Font.Quality = 4
AspJpeg.Canvas.Font.BkMode = "Opaque"
AspJpeg.Canvas.Print 10, 572, "Copyright (c) XYZ, Inc."
' Salva a imagem com o texto
AspJpeg.Save Server.MapPath("imagem_texto.jpg")
' Tira o objeto da memória
Set AspJpeg = Nothing
' Exibe a imagem na tela
Response.Write "<img src=""imagem_texto.jpg"" />"
%>