ASP 11
Test_aspjpeg.asp Guest on 7th February 2021 06:06:04 PM
  1. <%
  2. ' Se crea el objeto
  3. Set Jpeg = Server.CreateObject("Persits.Jpeg")
  4. ' Se carga la imagen a transformar
  5. Jpeg.Open Server.MapPath("/ejemplos/asp/test.gif")
  6.  
  7. ' Nuevo largo
  8. L = 100
  9.  
  10. ' Se indican los nuevos valores
  11. Jpeg.Width = L
  12. Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
  13.  
  14. 'Se guarda la nueva imagen
  15. Jpeg.Save Server.MapPath("/ejemplos/asp/test_small.gif")
  16. %>
  17.  
  18. Imagen original: (/ejemplos/asp/test.gif)<br/>
  19. <img src="/ejemplos/asp/test.gif" border="0" /><br/><br/>
  20. Imagen modificada: (guardada en /ejemplos/asp/test_small.gif)<br/>
  21. <img src="/ejemplos/asp/test_small.gif" border="0" />

Paste is for source code and general debugging text.

Login or Register to edit, delete and keep track of your pastes and more.

Raw Paste

Login or Register to edit or fork this paste. It's free.