Mostrando una imagen al azar de nuestro disco (Ejemplo de FSO)


http://www.asptutor.com

Mostrando una imagen al azar de nuestro disco

Un curioso ejemplo que usando el objeto FSO, barre un directorio de nuestro servidor y muestra aleatoriamente una de las imagenes contenidas en el.

imagenaleatoria.asp

<%
'creamos un array para contener los nombres de las imagenes
'tan grande (al menos) como el numero de imagenes que contenga el directorio
dim x(200)

'Carpeta que contiene nuestras imagenes

Const mypath="\images"

'creacion del objeto FSO
Set filesystem = CreateObject("Scripting.FileSystemObject")
Set folder = filesystem.GetFolder(server.mappath(mypath))
Set filecollection = folder.Files

'carga del array 
idx=0

For Each file in filecollection
idx=idx+1
x(idx)=file.name
Next

'Elegimos una imagen al azar
randomize timer
whichNo=int(rnd()*idx)+1

'Destruimos ls objetos
set filesystem=nothing
set folder=nothing
set filecollection=nothing

'Mostramos la imagen seleccionada
response.write "<img src=" & mypath & "/"
response.write x(whichNO)& " alt=" & x(whichNo) & " border=5>"
%>