Crear una galería de fotos en ASP

Muchos de los lectores de este medio, tendrán en su poder muchas fotografías, de cámaras digitales, escaneadas, etc.

Si tenemos una Web, muchas veces queremos a ellas agregar una Galería Fotográfica, por ejemplo, en una Web personal, en la cual queremos agregar una sección de Fotos de Nuestra familia.

Tenemos varias opciones de hacerlo, agregando una por una las fotografías, que es la forma tradicional, o también podemos hacer la forma, en la cual queremos demostrarla con este artículo, hacerlo con ASP y Base de datos.

¿Como funcionara nuestra Galería Fotográfica?

Simple, haremos una base de datos con los nombres de los archivos de fotos, una vez logrado esto, en una Web que armaremos en ASP, nos listara automáticamente de a 10 fotografías, es algo mas simple que estar agregando de a 1 las fotos no les parece?

Tendremos un sola Web en ASP que paginara cada XX cantidad fotos, con la opción de permitirnos ver todas las fotos que tengamos en nuestra Base de Datos.

¿Como ingresar las fotos a una Base de Datos?

Veremos varios puntos en este artículo, uno de ellos es por ejemplo, como utilizar el sistema FSO (File System Object).

Vamos a centrarnos en este por ahora.
File System Object, u Objeto de Archivos de sistema, nos permite, acceder a información de archivos los cuales se encuentran en nuestro servidor, o PC (Siempre y cuando tengamos IIS o PWS.).

Con este sistema (FSO) podemos manipular archivos, acceder a información de los mismos, añadir escritura etc.
Nosotros nos mantendremos en ver la información de los archivos, nos centraremos en sabes el nombre, ya veremos cual es el objetivo de el mismo.

Listado.asp

<HTML>
<HEAD>
<TITLE>L/TITLE>
</HEAD>
<BODY>
<%
´nos crea el Objeto FSO
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
´nos selecciona la carpeta en la que esta el archivo
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath(""))

´nos comienza a listar los archivos
Response.Write ""
´Nos muestra el nombre de nuestra carpeta en la web devuelta
Response.Write "" & ObjetoCarpeta.Name & ": "

´busca en todos los archivos que encuentra en dicha carpeta y nos devuelve el nombre
For Each Fichero in ObjetoCarpeta.Files
Response.Write Fichero.Name & " "
Next

Response.Write ""

Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing
%>
</BODY>
</HTML>

Usuarios que han visto este tema también han visto...

- Actualizar un registro existente con ASP
- El Objeto FileSystemObject en ASP
- Bloquear IPs a través de un array con ASP
- Buscador en ASP
- Optimizar páginas con ASP

- Versión imprimible de este documento

- Enviar por e-mail este documento