Resize automatico de imagen en ASP

luisvasquez · #1 (**permalink**) 10/04/2006, 12:22

Amigos,

A ver si esto se puede hacer.

Quiero mostrar unas imagenes JPG al 50% de su tamaño original. Estás imagenes tienen tamaños ligeramente diferentes, por lo cual no puedo definir exactamente su ancho y alto. No quiero duplicar las imagenes pues las uso también en el tamaño que actualmente tienen.

Saludos y de antemanos gracias por su ayuda,
Luis Vásquez

mc_quake · #2 (**permalink**) 10/04/2006, 12:40

ESTA PAGINA TALVEZ TE AYUDE aqui

luisvasquez · #3 (**permalink**) 10/04/2006, 16:28

Gracias...

estuve dando un vistazo pero no es exactamente lo que busco..

Me hubiese gustado algo como esto:

<img border='0' width='50%' height='50%' src='images/foto01.jpg'

Pero veo que no es tan facil...por el momento revisé las fotos y tomé el ancho más pequeño para ajustarlas todas a esta, entonces usé algo como esto:

<img border='0' width='100' src='images/foto01.jpg'

De esta manera ajusta el ancho de todas a 100 y el alto lo ajusta automaticamente y sin deformar la imagen. Si encuentro algo mejor se los haré saber.

He visto algo con ASPUpload que te permite ver el ancho y alto de una imagen, con lo cual podrás hacer realizar simplemente la operación de división y asignarles este alto y ancho cuando la estés usando. El problema es que mi hosting no tiene instalado el componente.

Saludos y gracias,
Luis

sjam7 · #4 (**permalink**) 10/04/2006, 19:48

bueno, este tipo de ajuste siempre deformara la imagen, asi que no busques perfeccion en la vista de la imagen, una opcion seria usar un componente que permita cambiar el tamaño de la imagen al vuelo o bien, usar solamente un tamaño en el ajuste como por ejemplo, solo poner width="50%" y no poner el height

ElAprendiz · #5 (**permalink**) 10/04/2006, 20:08

haber si esto te ayuda
http://www.4guysfromrolla.com/webtech/011201-1.shtml

engonga · #6 (**permalink**) 15/04/2006, 06:12

al ejemplo de ElApendriz he hecho algunas modificaciones para que muestre las imagenes de una forma distinta.

Código PHP:

  <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin t&iacute;tulo</title>
</head>
<body>
<%
   ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   ':::                                                   :::
   ':::  SCRIPT:   testpropresize.asp                     :::
   ':::  AUTHOR:   shaffer                                :::
   ':::  DATE:     11-Jan-01                              :::
   ':::  PURPOSE:  Test/show the operation of the resize  :::
   ':::            (proportional) function                :::
   ':::                                                   :::
   ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   %>
     <!--#include file="llibreries/imgsz.asp" -->
     <!--#include file="llibreries/propresize.asp" -->
   <%
   ' To test, we'll just try to show all files with a .GIF extension in
   ' the root of C: by fitting them to a common area (75 pixels x 45 pixels)
 
   dim objFSO, objF, objFC  
   dim fl, w, h, c, strType
   dim counter
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set objF = objFSO.GetFolder(Server.MapPath("imatges/"))
   Set objFC = objF.Files %>
  <table border="0" cellpadding="5"><tr>
  <%
   counter=0
   For Each fl in objFC
   
   
     if instr(ucase(fl.Name), ".JPG") then%>
  
        <td>
       <% if gfxSpex(fl.Path, w, h, c, strType) = true then %>
    
           <a target="_black" href="imatges/<% = fl.name %>">
     <img src="imatges/<%=fl.Name%>" <%=ImageResize(fl.Path, 200, 100)%> border="0"></a></td>
        
  <%else%>
  
           </td><td align="center">bad image</td>
     
     <%end if%>
     
   <td><a target="_black" href="imatges/<%= fl.name%>"> 
  <%= fl.name %></a></td><td><% =fl.Size %></td>
       
 
<%
counter=counter+1
   if counter Mod 2 =0 Then %>
   </tr><tr>
   
   <%end if
     end if
  
   Next
   response.write "</table>"
   set objFC = nothing
   set objF = nothing
   set objFSO = nothing
%>
   <br />
   <br />
   <br />
</body>
</html>

pero ahora tengo un pequeño problema i es que no se como hacer para que me pagines de 10 en 10 imagenes, como si lo sacara de una base de datos

alguien sabe

gracias