Mostrando Codigo - Asp
EXPLICACION
Cargamos los nombres de los archivos en un array para después coger al azar uno y mostrar la imágen.
Debemos modificar objFSO.GetFolder("c:carpeta_imagenes") con el nombre de la carpeta que contiene las imagenes.
<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim objFSO
Dim ObjCarpeta
Dim ObjArchivo
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjCarpeta = objFSO.GetFolder("c:carpeta_imagenes")
Redim ArrayImagenes(0)
Indice=0
For Each ObjArchivo in ObjCarpeta.Files
Indice=Indice+1
ReDim Preserve ArrayImagenes(Indice)
Next
Set objCarpeta = Nothing
Set objArchivo = Nothing
Set objFSO = Nothing
%>
<BODY>
<%
Randomize Timer
Azar=Int(Rnd()*(UBound(ArrayImagenes))+1)
%>
<img src="imagenes<%=ArrayImagenes(Azar)%>">
</BODY>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
COMENTARIOS
Aun no existe ningun comentario para este Codigo.