Galeria de fotos en Asp

[deccweb]

abelar, he adaptado tu codigo a el mio, pero la paginacion no me la hace bien. me podrias ayudar?

<%

Dim oConn, rs, SQL
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' la cuenta que os he mencionado

'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=2

'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

' Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("galeria.mdb")&";"
SQL="SELECT * FROM galeria ORDER BY id DESC"

' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina

' Abro el recordset
rs.Open SQL, oConn, 1, 2


'Cuento las páginas
PaginasTotales=rs.PageCount

'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

'Por si la consulta no devuelve registros!
if PaginasTotales=0 then

Response.Write("No se encontraron resultados.")

else

'Vamos a paginar
rs.AbsolutePage=PaginaActual
Response.Write("<font size=2 face=verdana>Página " & PaginaActual & " de " & PaginasTotales)
Response.Write("<br><br>")

CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
Response.Write ("<tr>")

For i = 1 To 3
Response.Write ("<td>")
If Not rs.EOF Then
Response.Write ("<img src="&rs.Fields("foto")&" width=150>")
rs.MoveNext
End If
Response.Write("</td>")
Next

Response.Write("</tr>")
Loop
Response.Write(" ")

end if


rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

'Muestro los enlaces
Response.Write("<br><br>")
if PaginaActual > 1 then
Response.Write("<A HREF=?pagina="& PaginaActual-1& _
">siguientes</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=?pagina=" & PaginaActual+1 & _
">anteriores</A>")
end if


%>

[raks]

el codigo este q habeis colgado.. dande viene?? hay algun ejemplo???

madreeeee q dja una d leer dos dias y se pierdeeeeeeeee!!!

[deccweb]

El codigo este viene del segundo post de este post, escrito por avelar. si quieres ver el ejmplo.. http://www.calle17.com/public/noticias/galeriak.asp

[bibey]

hola locko
Me haría falta que postearas el popupfoto.asp.El codigo funciona perfectamente.
Gracias

[LeCLUB]

Iniciado por sanfermin

Yo empece como hobby en mis ratos libres a diseñar un sistema de galeria de fotos y poco a poco ha ido tomando forma hasta llegar a este punto -> www.portalurbano.com/fotos/

No desesperen!

La verdad, está muy bien la galeria de sanfermin, felicidades

[locko]

Iniciado por bibey

hola locko
Me haría falta que postearas el popupfoto.asp.El codigo funciona perfectamente.
Gracias

Lo tienes por hay arriba en este post

[affv]

Creo que llegue tarde pero aun asi dejo algo de codigo para quien le sirva.

Código PHP:

  <%
MyDirectory = Server.MapPath("images/")
Set MyFso = CreateObject("Scripting.FileSystemObject")
Set MyFolder = MyFso.GetFolder(MyDirectory)
Set MyFiles = MyFolder.Files
 
Response.Write("<table>")
Response.Write("<tr>")
 
For Each MyFile in MyFiles
Response.Write("<td><img src='images/"&MyFile.Name&"'></td>")
MyCounter = MyCounter + 1
If MyCounter Mod 3 = 0 Then Response.Write "</tr><tr>" End If
Next
 
Response.Write("</tr>")
Response.Write("</table>")
 
Set MyFile = Nothing
Set MyFso = Nothing
%> 
   

[affv]

Bueno despues de 2 horas aqui tengo el codigo para una galeria de fotos con FSO sin base de datos tan solo Drag and Drop y listo.

Código PHP:

  <%
Set MyFso = CreateObject("Scripting.FileSystemObject")
Set MyFolder = MyFso.GetFolder(Server.MapPath("images/"))
Pagina = Request.QueryString("Pagina")
MyConter1 = 0
MyConter2 = 0
 
Response.Write("<table>")
Response.Write("<tr>")
For Each MyFile in MyFolder.Files
    If Cint(MyConter2) >= Cint(Pagina) Then
        If MyConter1 < 16 Then
            If MyConter1 Mod 4 = 0 Then    Response.Write("</tr><tr>")    End if
            Response.Write("<td><img src='images/"&MyFile.Name&"'></td>")
            MyConter1 = MyConter1 + 1
        End If
    End If
    MyConter2 = MyConter2 + 1
Next
Response.Write("</tr>")
Response.Write("</table>")
 
Response.Write("<table width='100%'>")
Response.Write("<tr>")
If Cint(Pagina) >= 16 Then
    Response.Write("<td width='50%'><p align='left'><a href='?pagina="&Cint(Pagina) - 16&"'>&lt;&lt; Back</a></p></td>")
End If
If Pagina + 16 < MyFolder.Files.Count Then
    Response.Write("<td width='50%'><p align='right'><a href='?pagina="&Cint(Pagina) + 16&"'>Next &gt;&gt;</a></p></td>")
End If
Response.Write("</tr>")
Response.Write("</table>")
 
Set MyFile = Nothing
Set MyFso = Nothing
%> 
   

Ahora sigo con el resto de la galeria luego les paso mas codigo.

[locko]

Las galerias de fotos y cine sond e dominio publico??

pq me mola un monton como te han kedado