Asp - Mostrar imagen aleatoria
Códigos Asp
El código consigue que se muestre una imagen aleatoria desde una carpeta predeterminada.
Tutores.org
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.
CODIGO
<% 'Codigo ofrecido por Tutores.org %>
- <%@ 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<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Mostrar imagen aleatoria" href="http://www.tutores.org/codigo/1513/" target="_blank">Mostrar imagen aleatoria</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Mostrar imagen aleatoria" href="http://www.tutores.org/codigo/1513/" target="_blank">Mostrar imagen aleatoria</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS