SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
Mostrando Codigo - Asp
Code

Asp - Mostrar imagen aleatoria

Códigos Asp

El código consigue que se muestre una imagen aleatoria desde una carpeta predeterminada.
Visitas: 20,870 - 02/07/2005 12:20:32
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
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 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. Dim objFSO
  4. Dim ObjCarpeta
  5. Dim ObjArchivo
  6. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  7. Set ObjCarpeta = objFSO.GetFolder("c:carpeta_imagenes")
  8. Redim ArrayImagenes(0)
  9. Indice=0
  10. For Each ObjArchivo in ObjCarpeta.Files
  11.    Indice=Indice+1
  12.    ReDim Preserve ArrayImagenes(Indice)
  13. Next
  14. Set objCarpeta = Nothing
  15. Set objArchivo = Nothing
  16. Set objFSO = Nothing
  17. %>
  18. <BODY>
  19. <%
  20. Randomize Timer
  21. Azar=Int(Rnd()*(UBound(ArrayImagenes))+1)
  22. %>
  23. <img src="imagenes<%=ArrayImagenes(Azar)%>">
  24. </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 -->
COMENTARIOS
Aun no existe ningun comentario para este Codigo.
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.