Ver Mensaje Individual
  #1 (permalink)  
Antiguo 30/08/2007, 23:58
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
paginar imagenes

Hola tengo una aplicacion que lo que hago es recoger las imagenes de una carpeta

Código PHP:
dim objFSOobjFobjFC  
   dim f1
whcstrTypemostranomnom_imatge
   dim quina_carpeta
   quina_carpeta 
request.QueryString("carpeta")
   
Set objFSO CreateObject("Scripting.FileSystemObject")
   
Set objF objFSO.GetFolder(Server.MapPath("imatges/seccions/"&quina_carpeta&"/"))
   
Set objFC objF.Files%>
  <
table width="300" class="fons_fade_50">
  <
tr><td width="50%" align="center" valign="top">
   <%For 
Each f1 in objFC
     
if instr(ucase(f1.Name), ".JPG") or instr(ucase(f1.Name), ".GIF") or instr(ucase(f1.Name), ".PNG")then
   mostranom 
len(f1.Name)-4
  nom_imatge 
left(f1.Namemostranom)%>
            <% if 
gfxSpex(f1.PathwhcstrType) = true then%>
    <% 
dim alcadaamplada
    alcada 
30
    amplada 
30%>
    
    <
table  cellpadding="0" cellspacing="0" >
   <
tr>
    <
td align="center">
     <
div class="marco3">
     <
a href="imatges/seccions/<%=quina_carpeta%>/<%=f1.Name%>" onclick="window.open('mostra_imatge.asp?carpeta=<%=quina_carpeta%>&imatge_mostra=<%=f1.Name%>', this.target, 'left=200,top=130,width=<%=amplada%>,height=<%=alcada%>, scrollbars=none'); return false;">
      <
img src="imatges/seccions/<%=quina_carpeta%>/<%=f1.Name%>" <%=ImageResize(f1.Path7575)%> alt="<%=f1.Name%>" class="borde_1x_negre_1px">
       </
a>
     </
div>
    </
td>
   </
tr>
   </
table>
  <
table cellpadding="0" cellspacing="0"><tr>
    <
td height="5"></td>
  </
tr></table>
  <%else
           
response.write "imatge incorrecte</td>"
        
end if
 
        
response.write "</tr>"
   
    
    
 
  
        
       
     
end if
  
counter=counter+1
if counter Mod 4 =0 Then%>
</
td><td width="50%" align="center" valign="top">
  <%
end if
next
%>
</
table>
  <%
   
set objFC nothing
   set objF 
nothing
   set objFSO 
nothing
%> 
lo que hago es que cada 4 fotos me cree una nueva columna
ahora bien lo que no se como hacer es que me pinte 2 columnas pero que me pagine.

que me muester:

-------------------------------------
| foto1 | foto 5 |
-------------------------------------
| foto2 | foto 6 |
-------------------------------------
| foto3 | foto 7 |
-------------------------------------
| foto4 | foto 8 |
-------------------------------------
<anterior 1 - 2 - 3 ... siguiente >

como en una paginacion de una base de datos pero con la carpeta


alguien sabe?