Como requerir la direccion desde asp
Publicado por yazo (2 intervenciones) el 16/01/2006 11:24:01
Hola:
Tengo un archivo que he llamado aletoria.asp, el cual genera la dirección de una imagen aleatoriamente, su codigo es el siguiente:
Código:
<%
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
'nos selecciona la carpeta en la que esta el archivo
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath("imagenes"))
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
%>
<%= archivo(numero)%>
Devuelve la dirección de la imagen aleatoria.
Me gustaría modificarle para que desde index.htm llamaramos a aleatoria.asp y nos devuelva la dirección de la imagen.
Es decir me gustaría poner en index.htm lo siguiente para ver una imagen aleatoriamente:
<img src="aleatoria.asp">
aleatoria.asp devuelve la ruta de la imagen, y como cada ves aleatoria.asp genera una ruta diferente asi tengo la imagen aleatoria en index.htm.
¿Como lo puedo hacer?
Muchas Gracias
Tengo un archivo que he llamado aletoria.asp, el cual genera la dirección de una imagen aleatoriamente, su codigo es el siguiente:
Código:
<%
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
'nos selecciona la carpeta en la que esta el archivo
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath("imagenes"))
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
%>
<%= archivo(numero)%>
Devuelve la dirección de la imagen aleatoria.
Me gustaría modificarle para que desde index.htm llamaramos a aleatoria.asp y nos devuelva la dirección de la imagen.
Es decir me gustaría poner en index.htm lo siguiente para ver una imagen aleatoriamente:
<img src="aleatoria.asp">
aleatoria.asp devuelve la ruta de la imagen, y como cada ves aleatoria.asp genera una ruta diferente asi tengo la imagen aleatoria en index.htm.
¿Como lo puedo hacer?
Muchas Gracias
Valora esta pregunta


0