ASPJPEG é um shareware produzido pela Persits. O período de teste é de 30 dias. Você pode baixá-lo aqui: http://www.persits.com/aspjpeg.exe . O número da versão mais recente é 1.3
ASPJPEG é um componente de processamento de imagens muito poderoso. Você pode usá-lo para criar facilmente miniaturas de imagens e adicionar marcas d’água às imagens. Aqui está uma breve introdução sobre como usá-lo:
Primeiro você precisa executar o arquivo exe baixado para instalar o componente
1. Crie uma miniatura para a imagem
<% 'Crie uma instância
Dim Jpeg, Caminho
Definir Jpeg = Server.CreateObject("Persits.Jpeg")
'Localização da imagem
Caminho = Server.MapPath("imagens") & "clock.jpg"
' Abrir
Jpeg.Open Path
'Defina o tamanho da miniatura (aqui a proporção é definida como 50%)
Jpeg.Largura = Jpeg.OriginalLargura / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
'Salva a miniatura na pasta especificada
Jpeg.Save Server.MapPath("images") & "clock_small.jpg"
' Sai da instância
Definir JPEG = Nada
%>
<IMG SRC="images/clock.jpg"><P>
<IMG SRC="images/clock_small.jpg">
2. Adicione função de marca d'água às fotos
<%
Escurecer JPEG
'Cria uma instância
Definir Jpeg = Server.CreateObject("Persits.Jpeg")
'Abre a imagem alvo
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
'Adicionar marca d'água de texto
Jpeg.Canvas.Font.Color = &HFF0000' Vermelho
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = Verdadeiro
Jpeg.Canvas.Print 10, 10, "Copyright (c) Cnmaya.org"
' Salvar arquivo
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg")
'Cancelar registro do objeto
Definir JPEG = Nada
%>