O AspImage é um componente ASP que permite criar e modificar imagens no formato JPG, GIF, BMP e PNG automaticamente.
Este componente da Server Objects tem sua licença shareware e normalmente está disponíveis nos servidores de hospedagem.
Pode ser utilizado para redimencionar automaticamente a imagem, rotacionar, recortar além de disponibilizar vários efeitos como sharpen, distorção entre outros.
O código abaixo apresenta duas funcionalidades do componente, como criar um thumbnail e como acrescentar um texto na imagem.
Criar Thumbnail de uma imagem <% ' Cria uma instância do controle Set AspImage = Server.CreateObject("AspImage.Image") ' Carrega a imagem AspImage.LoadImage( Server.MapPath("imagem.jpg") ) ' Propriedades da imagem AspImage.ImageFormat = 1 AspImage.JPEGQuality = 100 ' Redimensiona a imagem AspImage.ResizeR 200, 80 ' Salva a imagem AspImage.FileName = Server.MapPath("imagem_thumbnail.jpg") AspImage.SaveImage ' Tira o objeto da memória Set AspImage = Nothing Response.Write "" %> Criar uma imagem de texto <% ' Cria uma instância do controle Set AspImage = Server.CreateObject("AspImage.Image") ' Texto a ser excrito strMessage = "AspImage - ServerObjects" ' Seta as propriedades do Texto AspImage.Bold = True AspImage.Italic = False AspImage.Underline = False AspImage.FontColor = vbBlue AspImage.FontName = "Tahoma" AspImage.FontSize = 30 AspImage.MaxX = AspImage.TextWidth(strMessage) AspImage.MaxY = AspImage.TextHeight(strMessage) ' Cria a imagem com o texto AspImage.TextOut strMessage, AspImage.X, AspImage.Y, False ' Salva a imagem AspImage.FileName = Server.MapPath("imagem_texto.jpg") AspImage.SaveImage ' Tira o objeto da memória Set AspImage = Nothing ' Exibe a imagem na tela Response.Write "" %>