Ver Mensaje Individual
  #6 (permalink)  
Antiguo 15/04/2006, 06:12
Avatar de engonga
engonga
Usuario no validado
 
Fecha de Ingreso: marzo-2002
Ubicación: Buenos Aires
Mensajes: 1.300
Antigüedad: 23 años, 1 mes
Puntos: 8
yo he hecho alguna modificaciones

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 testwe'll just try to show all files with a .GIF extension in
   ' 
the root of Cby fitting them to a common area (75 pixels x 45 pixels)
 
   
dim objFSOobjFobjFC  
   dim fl
whcstrType
   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.PathwhcstrType) = true then %>
    
           <
a target="_black" href="imatges/<% = fl.name %>">
     <
img src="imatges/<%=fl.Name%>" <%=ImageResize(fl.Path200100)%> 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