Ver Mensaje Individual
  #1 (permalink)  
Antiguo 01/08/2008, 09:35
joan_gibert
 
Fecha de Ingreso: agosto-2008
Mensajes: 2
Antigüedad: 15 años, 9 meses
Puntos: 0
Imagen rotatoria

Hola soy novato en javascript. He buscado por muchos sitios y no he encontrado lo que queria.
Encontre este codigo, el cual muestra una imagen cualquiera en una carpeta del servidor.
Lo que quiero que haga es que cambie la imagen sin refrescar, que vaya cambiando automaticamente. Tampoco poner que imagen es, ya que se trata de mostrar las imagenes que se introduzcan desde el menu de administrador, cosa que no me pertenece a mi...

El codigo muestra la imagen y cambia al hacer click en algun link del menu, me faltaria un Setinterval o setTimeout, nose, algu que las hago rotar, no entiendo...

GRACIAS!!!!

<%'--------GENERAR IMAGEN ALEATORIA---------------------
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")

'nos selecciona la carpeta en la que esta el archivo
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath("imagenes\artic ulos"))

i=0
cuenta=0
For each Fichero in ObjetoCarpeta.Files
cuenta=cuenta+1
Next

if cuenta>0 then cuenta=cuenta-1
redim archivo(cuenta)

For Each Fichero in ObjetoCarpeta.Files
archivo(i)=Fichero.Name
i=i+1
Next

Randomize
minimo = 0
maximo = cuenta
numero = Int(((maximo-minimo+1) * Rnd) + minimo)

'response.write archivo(numero)

Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing

%>
<%
Randomize Timer
Azar=Int(Rnd()*(UBound(archivo))+1)
%>
<IMG src="imagenes/articulos/<%=archivo(numero)%>" alt="Articulo" height="110" border="0">




<%'--------TERMINA GENERAR IMAGEN ALEATORIA-------------%>