Asp - Mostrar imagen aleatoria - no bd
Códigos Asp
Con este codigo conseguimos mostrar una imagen aleatroia desde una carpeta de nuestro servidor, sin utilizar bases de datos
Tutores.org
Mostrando Codigo - Asp
EXPLICACION
Modificar el path hacia la carpeta donde tenemos las imagenes
CODIGO
<% 'Codigo ofrecido por Tutores.org %>
- <%@ 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<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Mostrar imagen aleatoria - no bd" href="http://www.tutores.org/codigo/578/" target="_blank">Mostrar imagen aleatoria - no bd</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Mostrar imagen aleatoria - no bd" href="http://www.tutores.org/codigo/578/" target="_blank">Mostrar imagen aleatoria - no bd</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
albs
11-10-2009 15:48:56
3
5
Hola, ese codigo vale para una sola imagen, si quiero extraer dos o mas imagenes como hago? Gracias de antemano y saludos.
INSERTAR COMENTARIO