buscar y mostrar imagenes

marcomty · #1 (**permalink**) 09/08/2004, 12:23

exise alguna instruccion en asp que localice todas las imagenes existentes en un directorio y las muestre automaticamente sin que yo las tenga que meter a una BD o le tenga que poner "img src=miimagen.jpg"???'

JosephFley · #2 (**permalink**) 09/08/2004, 13:28

Saludos,

Yo había hecho uno que hacía esto, solo que funcionaba con frames entonces tenía uno superior donde se mostraban las miniaturas y otro inferior donde se mostraban las grandes, eso sí yo a está página le pasaba un campo "Buscar", para que solo me mostrará las imágenes que tuvieran una determinada cadena, este es el código de la página que hacía la busqueda puedes modificarla a tu placer para lo que necesitas.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Virtual Gallery</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilos.css" rel="stylesheet" type="text/css">
</head>

<%
'Declaramos algunas constantes
Buscar = Request.QueryString("buscar")
CONST Separador = "\" 'Windows
'CONST Separador = "/" 'Linux
CONST PathIMG = "big" 'Ruta de Imágenes grandes
CONST PathTMB = "thumbs" 'Ruta de Thumbnails

Dim ObjFSO, ObjFolder
SET ObjFSO = Server.CreateObject("Scripting.FileSystemObject")

'Obtenemos la ruta actual

Ruta = StrReverse(Request.ServerVariables("PATH_TRANSLATE D"))
Punto = InStr(Ruta, Separador)
Ruta = StrReverse(Ruta)
Ruta = Left(Ruta, (Len(Ruta) - Punto))

SET ObjFolder = ObjFSO.GetFolder(Ruta & Separador & PathTMB & Separador)

%>

<body>
<table border="0" cellspacing="0" cellpadding="5" align="center">
<tr>

<%
Cont = 0
For Each Archivo In ObjFolder.Files

IF InStr(Archivo, Buscar) <> 0 THEN

Cont = Cont + 1

Ruta = StrReverse(Request.ServerVariables("PATH_INFO"))
Punto = InStr(Ruta, Separador)
Ruta = StrReverse(Ruta)
Ruta = Left(Ruta, (Len(Ruta) - Punto))
Ruta1 = (Ruta & Separador & PathTMB & Separador & Archivo.Name)
%>

<td><a href="../main.asp?img=<%= Ruta & Separador & PathIMG & Separador & Archivo.Name %>" target="main"><img src="<%= Ruta1 %>" width="80" height="80" border="0"></a></td>

<%
END IF
NEXT

IF Cont = 0 THEN Response.Write("<td><h3>This section is empty.</h3></td>")
%>

</tr>
</table>

</body>
</html>

Si necesitas ayuda con el mismo solo avisame.

masterboy6666 · #3 (**permalink**) 09/08/2004, 13:28

Hola no existe ninguna funcion que haga directamente eso, pero creo que utilizando la propiedad de la asp FSO

Te dejo un ejemplo, para que te des una idea, pero no se si este bien, ya no me acuerdo...:(

dim strcarpeta="c:\imagenes"
set carpeta = FSO.getFolder(strCarpeta)
set files = carpeta.Files 'extraigo la coleccion de archivos
for each carpeta in files
response.write "<img src= " & carpeta.name>"
next

Espero que te ayude....