(consulta) Galeria De Fotos

[aldo1982]

Hola Keria Saver Como Se Hace Mas O Menos Una Buena Galeria De Fotos (algo Ke Sea Automatico, Es Decir Poner Las Fotos En Una Carpeta Y Mediante El Código Ke Se Genére La Galeria) Bue Se Ke Pido Mucho Solo Pregunto.

Ahh Sino No Saven Algun Programa Ke Haga Esto Ke Eestoy Pidiendo (lo Hago Con Dreanweaver Y Me Tira Un Error, Pongo Todo Como Lo Indica: Carpeta Origen, Carpeta Destino..todo Pongo Y Me Tira Un Error De Porkeria, Dice "se Ha Producido Uin Error" Muy Explicativo El Error De Dw, Ke Hdp Este Programa Ejjejeje).

Bue Salu2 Y Gracias

[meru-kun]

Lo que buscas exactamente lo tienes gratis para bajar en webguizguides (pon eso en google, varia algunas letras y encontrarás la página que digo >_<).

Saludos!

[asm_mripZ]

Saludos, no aparece nada con lo que has puesto meru, podrías poner el link si no es mucha molestia te lo agradecería muchísimo .

[El_Metallick]

es www.webwizguide.com la que comentas meru??? no me suena una galeria de foros de ellos... :S pero bueno... lo que yo hago es que meto las imagenes a una abse de datos (las URL no mas) luego las listo en una pagina y las compagino de a 10 en 10... no las tengo con descripciones... pero si queires le pones descripciones agregandole una tabla a la base de datos... la cosa es que paralelo tengo un script que me mete todas las iamgenes de una carpeta a la base de datos (los nombres) yun formulario para despues ir agregando de a una... eso si te interesa comentame para ponerte algo de codigo... saludos

[sjam7]

Que yo sepa www.webwizguide.com no tiene eso que buscas pero bueno, una opcion es esto:

Código:

<%
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")

'OJO nos selecciona la carpeta en la que esta el archivo
folder="/fotos/thumbnails/"

Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath(folder))
 %>
<table border="0" cellpadding="10" cellspacing="0" bgcolor=#ffffff>
<TR> <TD colspan="4"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>GALERIA 
			DE FOTOS</strong></font></TD>
		</TR><%
'busca en todos los archivos que encuentra en dicha carpeta y nos devuelve el nombre
cuenta=0
contador=0
For Each Fichero in ObjetoCarpeta.Files
'if instr(Fichero.Type,"JPG") then
contador=contador+1
if cuenta=4 or cuenta=0 then response.write "<tr bgcolor=#ffffff>"
Response.Write "<td bgcolor=#ffffff valign=bottom><a href=""javascript:afoto('fotos/images/"&Fichero.Name&"')""><img src="&folder&Fichero.Name & " width=72px border=0></a><br><font style=""font-size:10px"" FACE=""verdana, arial"">"
if session("paq")<>"" then	  
	response.write "<a href=verfoto.asp?p=2&a="&replace(Fichero.Name,".jpg","")&">Seleccione</a><br>"
end if
response.write "<img src=""images/ver.gif"" align=""absmiddle"" border=0> <a href=""javascript:verfoto('verfoto.asp?a="&Fichero.Name&"')"">Ver</a></font></td>"
if cuenta=4 then response.write "</tr>"
cuenta=cuenta+1
if cuenta=4 then cuenta=0
'end if
Next
 
Response.Write "</FONT>"
 
Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing
%>

Algunas cosas que hay que cambiar estan en negritas, tiene algo de Javascript que puedes quitarle para que funcione, esto solo es para que despliegues las paginas de preferencia miniaturas y que estas al darle click abran las imagenes en tamaño original

Antes de que preguntes como haces las miniaturas al vuelo ...con ASP sin componentes NO SE PUEDE, o usas un componente o ASP.Net o Photoshop

[asm_mripZ]

Saludos, podrías postear el código El_metallick si no es mucha molestia, ya que ando un poco perdida en esto y necesito un poco de ayuda .

[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
%>

[asm_mripZ]

Saludos, gracias miles . Ha sido de mucha ayuda tu código . Aunque tuve problemillas de principiante jejeje, pero ya resolvi. Gracias nuevamente.

[El_Metallick]

pues para esos estamos pues... me alegro cualquier duda me la haces aqui mismo pues... saludos