paginar imagenes

[engonga]

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

Código PHP:

  dim objFSO, objF, objFC  
   dim f1, w, h, c, strType, mostranom, nom_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.Name, mostranom)%>
            <% if gfxSpex(f1.Path, w, h, c, strType) = true then%>
    <% dim alcada, amplada
    alcada = h + 30
    amplada = w + 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.Path, 75, 75)%> 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?

[Myakire]

Vamos por partes, ¿ocupas un código para paginar?, en las FAQ's hay uno que funciona muy bien

[engonga]

que significa que ¿ocupo un codigo para paginar?

[Myakire]

Iniciado por ^engonga^

que significa que ¿ocupo un codigo para paginar?

pues eso .... que si ocupas o necesitas, un código o programa que te permita realizar una paginación o visualización en forma paginada de registros en base a un rango.

Si es así, pues de comentaba que en las FAQ's hay uno (por lo menos) que funciona muy bien

[El_Metallick]

Estimados después de algún tiempo he vuelto :P, la verdad de las cosas es que si mal no recuerdo (de la ultima vez que leí las faqs hace unos meses) no recuerdo haber visto una paginación no dependiente de la base de datos (reitero no recuerdo :P) pero se me ocurre una forma de hacerlo, la verdad es que hace algun tiempo que no trabajo con ASP así que no me reclamen si hay algo mal escrito, la idea se entiende (supongo y espero):

Guardar los nombres de las imágenes en un arreglo y según una variable pasada por url como pag vas viendo cuantos registros mostrar, por ejemplo, si quieres mostrar de 10 en 10 pones algo así:

<%
inf = request.querystring(pag)*10
sup = inf +10

for i=inf to sup%>
<img src="<%= arreglo(i) %>" />

no se si se entendió mi idea ve si te sirve saludos

[engonga]

no entiendo la idea...

[El_Metallick]

aver por ejemplo que los nombres sean

imagen1.jpg
imagen2.gif
imagen3.jpg
...
...
...
imagen50.jpg

guardas esto en un arreglo quedando algo asi

imagenes(1) = imagen1.jpg
imagenes(2) = imagen2.gif
imagenes(3) = imagen3.jpg
...
...
...
imagenes(50) = imagen50.jpg

luego suponiendo que tu pagina sea pagina1.asp le pasas por url una variable pag quedando por ejemplo pagina1.asp?pag=1

luego lo que te dije (con una pequeña modificación porque tenia un problemilla :P)

Código:

<%
'para el ejemplo
pag = request.querystring(pag)

if((pag = "") or (pag = 1))
         'en la pagina 1 ves de la imagen 1 a la 10 
         inf = 1
         sup = 10
else
         'en otra pagina por ejemplo 2 ves de la imagen 10 (inf) a la 20 (sup)
         'en la pagina 3 ves de la imagen 20 (inf) a la 30 (sup) y así
         inf = ((pag*10) - 10)
         sup = inf + 10
end if

'muestras los elementos del arreglo imagenes que esten entre inf y sup
for i=inf to sup step 1
%>
<img src="<%= imagenes(i) %>" />
 <% 
next 
%>

no se si quedo mas claro... que de verdad no se como mas explicarlo, en cuanto a lo de numero de paginas abajo no creo que te complique mucho o si?


saludos

[engonga]

ok lo intentaré

areglo = a vector?

[El_Metallick]

Iniciado por ^engonga^

ok lo intentaré

areglo = a vector?

Si arreglo = vector

Saludos

[engonga]

he estado probando y casi me funciona a la perfeccion

el codigo es el siguiente

Código PHP:

  <%
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::   pinto totes les imatges per que es precerreguin   :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
dim objFSO, objF,objF2,objF3, objFC, objFC2,objFC3
   dim f1, w, h, c, strType, mostranom
   dim quina_carpeta
   quina_carpeta = request.QueryString("carpeta")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set objF = objFSO.GetFolder(Server.MapPath("imatges/seccions/poble/"))
   Set objF2 = objFSO.GetFolder(Server.MapPath("imatges/seccions/allotjament/"))
   Set objF3 = objFSO.GetFolder(Server.MapPath("imatges/seccions/masia/"))
   Set objFC = objF.Files
   Set objFC2 = objF2.Files
   Set objFC3 = objF3.Files
 
dim num_imatges 
num_imatges = 0
sub poble()
   For Each f1 in objFC
   if instr(ucase(f1.Name), ".JPG") or instr(ucase(f1.Name), ".GIF") or instr(ucase(f1.Name), ".PNG")then
   num_imatges = num_imatges + 1
 
     end if
   Next
end sub
' crido la funcion poble()
poble
' ara monto el vector
redim foto_imatge(num_imatges)
dim i
i = 0
sub imatges()
   For Each f1 in objFC
   if instr(ucase(f1.Name), ".JPG") or instr(ucase(f1.Name), ".GIF") or instr(ucase(f1.Name), ".PNG")then
   foto_imatge(i) = "imatges/seccions/poble/"&f1.Name
   response.Write "numero array" & i &" imatge: " & foto_imatge(i) &"<br />"
  i = i +1
  
     end if
   Next
end sub

pag = request.querystring("pag")
sub pagina()

if((pag = "") or (pag = 1)) then
         'en la pagina 1 ves de la imagen 1 a la 10 
         inf = 0
         sup =7
else
         'en otra pagina por ejemplo 2 ves de la imagen 10 (inf) a la 20 (sup)
         'en la pagina 3 ves de la imagen 20 (inf) a la 30 (sup) y así
         inf = ((pag*8) - 8)
         sup = inf + 7
      end if
'muestras los elementos del arreglo imagenes que esten entre inf y sup
for i=inf to sup step 1
%>
esta es la imagen <%=foto_imatge(i)%><br/>
 <% 
next 
end sub
 
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::   fi  pintar imatges                                :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
%>
<body>
numero de imagenes total:<br />
<%=num_imatges%><br /><br />
listado de imagenes <br />
<%imatges%><br /><br /><br /><br />
<%pagina%>  
   

Lo que me pasa que en la carpeta poble tengo 20 imagenes y cuando voy a ?pag=3 me da el error

0x800A0009)
El subíndice está fuera del intervalo: '21'
/vectors.asp, línea 78


y no se como solucionarlo

[El_Metallick]

mmm la verdad es que no me acuerdo en particular el nombre que te da el tamaño de un vector en ASP pero con ella podrias hacerla, por ejemplo, tu muestras de 7 en 7 cierto??? pues bueno saca el tamaño del arreglo y en el for pones un if que compare el valor de i con el tamaño del arreglo y los imprimes solo si i <= tam_arreglo de esta el ciclo va a hacer 7 veces lo que tiene que hacer pero con la condicion que le pones solo va a imprimir hasta donde tenga imagenes... espero se entienda

saludos

[birkin72]

las funciones para saber el tamaño son LBound y UBound aki encuentras algo de vectores http://www.aspfacil.com/articulos/090201.asp