Publicentral.com - promocion de paginas webpromocion de paginas web
Mostrando Codigo - Asp
Code

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
Visitas: 18,505 - 21/09/2003 22.48.30
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
EXPLICACION
Modificar el path hacia la carpeta donde tenemos las imagenes
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <%
  3. ' Codigo ofrecido por tutores.org
  4. Dim objFSO
  5. Dim ObjCarpeta
  6. Dim ObjArchivo
  7.  
  8. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  9. Set ObjCarpeta = objFSO.GetFolder("e:inetpub u_webmis_imagenes")
  10.  
  11. Redim ArrayImagenes(0)
  12. Indice=0
  13.  
  14. For Each ObjArchivo in ObjCarpeta.Files
  15.    Indice=Indice+1
  16.    ReDim Preserve ArrayImagenes(Indice)
  17. Next
  18.  
  19. Set objCarpeta = Nothing
  20. Set objArchivo = Nothing
  21. Set objFSO = Nothing
  22. %>
  23.  
  24. <HTML><HEAD><TITLE>MMi imagen aleatoria</TITLE></HEAD>
  25. <BODY>
  26. <%
  27. Randomize Timer
  28. al_azar=Int(Rnd()*(UBound(ArrayImagenes))+1)
  29. %>
  30. <img src="mis_imagenes<%=ArrayImagenes(al_azar)%>">
  31. </BODY>
  32. <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 -->
COMENTARIOS
Comentario usuario
11-10-2009 15:48:56
5 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

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.