ASP Jpeg – Script para teste

<% ‘ Create instance of AspJpeg Set Jpeg = Server.CreateObject(“Persits.Jpeg”) ‘ Compute path to source image Path = Server.MapPath(“./Upload/windowsmedia05.jpg”) ‘Caminho da Imagem que será redimensionada no diretório do cliente ‘ Open source image Jpeg.Open Path ‘ Decrease image size by 50% Jpeg.Width = Jpeg.OriginalWidth / 2 ‘Largura da imagem divida por 2 Jpeg.Height = Jpeg.OriginalHeight / 2 ‘Altura da imagem divida por 2 ‘ create thumbnail and save it to disk Jpeg.Save Server.MapPath(“./upload/windowssmall2.jpg”) ‘Caminho no diretório do cliente onde a imagem redimensionada será salva (Permissão de Escrita Internet Guest) %> Imagem Original:

Imagem Redimensionada (50%):

Salve-o com a extensão .asp, verfique neste código as alterações a serem realizadas para o diretório do cliente.

#ficaadica