<%
' Creamos la instancia para el componente AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Seleccionamos la ruta del archivo origen
Path = Server.MapPath("logo.jpg")
Response.Write path
' Abre la imagen de origenOpen
Jpeg.Open Path
' Achicamos la imagen original en un 50%
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
' Crear el nuevo formato y grabarlo en el servidor
Jpeg.Save Server.MapPath(".\") & "\logonuevo.jpg"
%> |
