ASP 8
Test_aspjpeg.asp Guest on 7th February 2021 06:06:41 PM
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
  2. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  3. <html xmlns="http://www.w3.org/1999/xhtml">
  4. <head>
  5. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
  6. <title>Untitled Document</title>
  7. </head>
  8.  
  9. <body>
  10. <%
  11. ' Se crea el objeto
  12. Set Jpeg = Server.CreateObject("Persits.Jpeg")
  13. ' Se carga la imagen a transformar
  14. Jpeg.Open Server.MapPath("/ejemplos/asp/test.gif")
  15.  
  16. ' Nuevo largo
  17. L = 100
  18.  
  19. ' Se indican los nuevos valores
  20. Jpeg.Width = L
  21. Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
  22.  
  23. 'Se guarda la nueva imagen
  24. Jpeg.Save Server.MapPath("/ejemplos/asp/test_small.gif")
  25. %>
  26. Imagen original: (/ejemplos/asp/test.gif)<br/>
  27. <img src="/ejemplos/asp/test.gif" border="0" /><br/><br/>
  28. Imagen modificada: (guardada en /ejemplos/asp/test_small.gif)<br/>
  29. <img src="/ejemplos/asp/test_small.gif" border="0" />
  30.  
  31. </body>
  32. </html>

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.