<%
Response.Expires = 0 'Seta objeto Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
'Abre o arquivo pelo caminho físico
Jpeg.Open("D:\http\cliente\web\imagem.jpg")
'Inverte a imagem Horizontalmente
Jpeg.FlipH
'Inverte a imagem Verticalmente
Jpeg.FlipV
'Muda a qualidade do JPEG para 1
Jpeg.Quality = 1
'Aplica o filtro Sharpen na imagem
Jpeg.Sharpen 1, 250
'Recorta a image nos pixes 10,10 até 70,70
Jpeg.Crop 10, 10, 70, 70
'Envia a imagem com o novo tamanho para o browser
Jpeg.SendBinary
'Libera objeto Jpeg
Set Jpeg = Nothing
%> |