Asp Clássico

AspJpeg - Tratamento de Imagens, Redução de Imagens, Criação de Thumbs

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(CaminhoPadrao)
Jpeg.Quality = Qualidade
Jpeg.Interpolation = Interpolacao
Jpeg.Width = Comprimento
alturaDesejada=(Jpeg.OriginalHeight*Comprimento)/Jpeg.OriginalWidth
alturaDesejada=Altura
Jpeg.Height = alturaDesejada
Jpeg.Save Server.MapPath(Caminho)

aspjpeg
Curtir