(consulta) Galeria De Fotos

[El_Metallick]

Esto es lo que uso para paginar... me da flojera editar mucho el codigo aswique ahi tu le cambias los valores a tu medida

Código:

    <%
     'Declaración de variables
     Dim rs
     Dim Conn
     Dim sqltxt
     Dim registros
     Dim tamanoimg
     Dim paginaactual
     Dim inicio
     Dim fin
     Dim contador
     Dim n_paginas
     Dim i
     Dim anterior
     Dim siguiente

     Server.ScriptTimeOut = 180

     'Rescate de la información del formulario
     tamanoimg = Request.Querystring("tamanoimg")
     registros = Request.Querystring("registros")
     paginaactual = Request.Querystring("paginaactual")

     'Fijación del número de registros por defecto
     If registros = "" Then
     registros = 24
     End If

     'Fijación del número de registros por defecto
     If tamanoimg = "" Then
     tamanoimg = 150
     End If

     'Fijación de la posición por defecto
     If paginaactual = "" Then
     paginaactual = 1
     End If

     'Conección a la Base de Datos
     set rs = CreateObject("ADODB.Recordset")
     Set Conn = Server.CreateObject("ADODB.Connection")
     Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & DB & ""))

     rs.CursorType = adOpenKeyset
     rs.LockType = adLockOptimistic

     'Selección de la tabla
     sqltxt="SELECT * FROM banda"

     'Apertura de la tabla
     rs.Open sqltxt, conn

     rs.pagesize = cint(registros)
     rs.absolutepage = cint(paginaactual)
     contador = 1
    %>
    <p align="center" class="text">Hay <% = rs.recordcount %> imágenes de la Banda
	<br>Estas viendo
    <% 
     If registros = "18" Then
	    Response.Write ("18")
     ElseIf registros = "24" Then
	    Response.Write ("24")
     ElseIf registros = "30" Then
	    Response.Write ("30")
     ElseIf registros = "36" Then 
	    Response.Write ("36")
     ElseIf registros = "42" Then 
	    Response.Write ("42")
     ElseIf registros = "48" Then 
	    Response.Write ("48")
     Else
	    Response.Write ("24")
	 End If

	 Response.Write ("fotos por página con un tamaño de")

     If tamanoimg="100" Then 
	    Response.Write ("100x70")
     ElseIf tamanoimg="125" Then 
	    Response.Write ("125x87")
     ElseIf tamanoimg="150" Then 
	    Response.Write ("150x105")
     ElseIf tamanoimg="175" Then 
	    Response.Write ("175x122")
     ElseIf tamanoimg="200" Then 
	    Response.Write ("200x140")
     Else
	    Response.Write ("150x105")
     End If 
 
	 Response.Write ("px")
	%></p>
    <p align="center"><form method="GET" action="galeria_banda.asp">
    <select size="1" name="registros" style="background-color: #000000; color: #CCCCCC; font-weight: bold; font-size: 10 px; border-style: solid; border-color: #CCCCCC">
     <option value="24" selected>Número de Imagenes</option>
     <option value="18">18 por página</option>
     <option value="24">24 por página</option>
     <option value="30">30 por página</option>
     <option value="36">36 por página</option>
     <option value="42">42 por página</option>
     <option value="48">48 por página</option>
    </select>&nbsp;&nbsp;
    <select size="1" name="tamanoimg" style="background-color: #000000; color: #CCCCCC; font-weight: bold; font-size: 10 px; border-style: solid; border-color: #CCCCCC">
     <option value="150" selected>Tamaño de la Imagen</option>
     <option value="100">100x70 px</option>
     <option value="125">125x87 px</option>
     <option value="150">150x105 px</option>
     <option value="175">175x122 px</option>
     <option value="200">200x140 px</option>
    </select>&nbsp;&nbsp;
    <input type="submit" value="Ver" name="B1" style="background-color: #333333; color: #CCCCCC; font-weight: bold; font-size: 10 px; border-style: solid; border-color: #CCCCCC">
    </form>
    <% 
     Do While Not rs.eof And contador <= cint(registros) 
 
     If tamanoimg="100" Then
	%>
    <a href="#" onClick="afoto('<% = rs("imagen") %>','<% = Titulo %>');return false"><img src="<% = Img %>/<% = RS("miniatura") %>" height="100" width="70" border="0" alt="Pulsa para ampliar"></a>
    <% 
     ElseIf tamanoimg="125" Then 
	%>
    <a href="#" onClick="afoto('<% = rs("imagen") %>','<% = Titulo %>');return false"><img src="<% = Img %>/<% = RS("miniatura") %>" height="125" width="87" border="0" alt="Pulsa para ampliar"></a>
    <%
     ElseIf tamanoimg="150" Then
	%>
    <a href="#" onClick="afoto('<% = rs("imagen") %>','<% = Titulo %>');return false"><img src="<% = Img %>/<% = RS("miniatura") %>" height="150" width="105" border="0" alt="Pulsa para ampliar"></a>
    <%
     ElseIf tamanoimg="175" Then
	%>
    <a href="#" onClick="afoto('<% = rs("imagen") %>','<% = Titulo %>');return false"><img src="<% = Img %>/<% = RS("miniatura") %>" height="175" width="122" border="0" alt="Pulsa para ampliar"></a>
    <% 
     ElseIf tamanoimg="200" Then 
	%>
    <a href="#" onClick="afoto('<% = rs("imagen") %>','<% = Titulo %>');return false"><img src="<% = Img %>/<% = RS("miniatura") %>" height="200" width="140" border="0" alt="Pulsa para ampliar"></a>
    <% Else %>
    <a href="#" onClick="afoto('<% = rs("imagen") %>','<% = Titulo %>');return false"><img src="<% = Img %>/<% = rs("miniatura") %>" height="150" width="105" border="0" alt="Pulsa para ampliar"></a>
	<% 
     End If 
      
     rs.movenext
     contador=contador+1

     Loop
    %></p>
    <div align="center" class="text">Galería: </div>
	<table align="center">
     <tr>
      <%
       n_paginas = 0

       'Condición para que aparezca "<<" para indicar un vínculo a la página anterior
       If cint(paginaactual) <> 1 Then

       'Fijación del valor de la variable anterior
       anterior = cint(paginaactual) - 1
       Response.Write "<td align=""center""><a href=""galeria_banda.asp?registros=" & registros & "&tamanoimg=" & tamanoimg & "&paginaactual=" & anterior & """>"&"&lt;&lt;"&"</a></td>"
       n_paginas = n_paginas + 1
       End If

       'Escritura del número total de páginas
       For i = 1 To rs.pagecount
       n_paginas = n_paginas + 1

       'Condición para que el número de paginas para a otra linea
       If n_paginas > 30 Then
       Response.Write ("</tr><tr>")
       n_paginas = 1
       End If 
 
       'Condición para que el número de la página actual no salga como vínculo
       If cint(i) = cint(paginaactual) Then
       Response.Write ("<td align=""center"" class=""text"">" & i & "</td>")
       Else
       Response.Write ("<td align=""center""><a href=""galeria_banda.asp?registros=" & registros & "&tamanoimg=" & tamanoimg & "&paginaactual=" & i & """>"&i&"</a></td>")
       End If

       Next

       'Condición para que aparezca ">>" para indicar un vínculo a la página siguiente
       If cint(paginaactual) <> rs.pagecount Then

       'Fijación del valor de la variable siguiente
       siguiente = cint(paginaactual) + 1
       Response.Write ("<td align=""center""><a href=""galeria_banda.asp?registros=" & registros & "&tamanoimg=" & tamanoimg & "&paginaactual=" & siguiente & """>"&"&gt;&gt;"&"</a></td>")
       End If
      %>
     </tr>
    </table>
    <p align="center"><form method="GET" action="galeria_banda.asp">
    <select size="1" name="registros" style="background-color: #000000; color: #CCCCCC; font-weight: bold; font-size: 10 px; border-style: solid; border-color: #CCCCCC">
     <option value="24" selected>Número de Imagenes</option>
     <option value="18">18 por página</option>
     <option value="24">24 por página</option>
     <option value="30">30 por página</option>
     <option value="36">36 por página</option>
     <option value="42">42 por página</option>
     <option value="48">48 por página</option>
    </select>&nbsp;&nbsp;
    <select size="1" name="tamanoimg" style="background-color: #000000; color: #CCCCCC; font-weight: bold; font-size: 10 px; border-style: solid; border-color: #CCCCCC">
     <option value="150" selected>Tamaño de la Imagen</option>
     <option value="100">100x70 px</option>
     <option value="125">125x87 px</option>
     <option value="150">150x105 px</option>
     <option value="175">175x122 px</option>
     <option value="200">200x140 px</option>
    </select>&nbsp;&nbsp;
    <input type="submit" value="Ver" name="B1" style="background-color: #333333; color: #CCCCCC; font-weight: bold; font-size: 10 px; border-style: solid; border-color: #CCCCCC">
    </form>

Con esto recorro toda una carpeta y meto todos sus archivos a la base de datos (demas esta decir que cambies la estructura de la base de datos a tu medida)

Código:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bd/metallica.mdb"))
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set mi_folder = FSO.GetFolder("C:\Felipe\Mi Pagina\Attackmetal\metallica\imagenes\grupo")
for each item in mi_folder.Files
  response.write(item.name & "<br>")
  sql = "INSERT INTO banda (imagen,miniatura) values ('grupo/" & item.name & "','miniaturas/grupo/" & item.name & "')"
  Conn.Execute(sql)
next
%>