Mostrando Codigo - Asp
EXPLICACION
Modificar el path hacia la carpeta donde tenemos las imagenes
<%@ LANGUAGE="VBSCRIPT" %>
<%
' Codigo ofrecido por tutores.org
Dim objFSO
Dim ObjCarpeta
Dim ObjArchivo
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjCarpeta = objFSO.GetFolder("e:inetpub u_webmis_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
%>
<HTML><HEAD><TITLE>MMi imagen aleatoria</TITLE></HEAD>
<BODY>
<%
Randomize Timer
al_azar=Int(Rnd()*(UBound(ArrayImagenes))+1)
%>
<img src="mis_imagenes<%=ArrayImagenes(al_azar)%>">
</BODY>
<HTML>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
COMENTARIOS
Comentario usuario
2
5
Hola, ese codigo vale para una sola imagen, si quiero extraer dos o mas imagenes como hago? Gracias de antemano y saludos.