Miguel
23/04/2004, 19:36
| ||||
| ||||
| Facil. utiliza esta funcion
__________________ Manual de ASP Avanzado ;-) |
|
23/04/2004, 19:47
| ||||
| ||||
 Me perdí de algo??? qué código, qué función??? Ah, supongo que se están telepateando  Salu2,
__________________ "El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera." -- Ernest Hemingway |
|
26/04/2004, 05:53
| ||||
| ||||
| Disculapen amigos, ese dia tuve que salir de emergencia y no pude completar la pregunta, el codigo a que me rferia es este: <%@ language="VBSCRIPT" %> <% ' Codigo ofrecido por tutores.org Dim objFSO Dim ObjCarpeta Dim ObjArchivo Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set ObjCarpeta = objFSO.GetFolder("C:\Inetpub\wwwroot\asp\Portal_Co ntrol_Estudio\Fotos") 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> Por favor revisenlo y me diga que esta mal??? Miguel |
|
26/04/2004, 05:57
| ||||
| ||||
| pero que error te tira , que linea
__________________ Manual de ASP Avanzado ;-) |
|
26/04/2004, 06:18
| ||||
| ||||
| No me arroja nada solo un cuadrito con una x, creo que es donde debe mostrar las imagenes??????? la carpeta de imagenes esta en el mismo directorio que la pagina donde se encuentra el codigo, el deberia pasar una a una segun el codigo, dichas imagenes son en jpg en una carpeta llamada Fotos Miguel
__________________ Miguel Padrón :cool: |
|
17/06/2004, 08:18
| ||||
| ||||
| Un poco tarde pero allá va. Todo está bien excepto una cosa: se te olvida recoger el nombre del archivo para meterlo en el vector. Por eso siempre sale el cuadrito con la x. El vector está bien dimensionado, pero vacío de contenido.
Código:
Así está bien. De todas formas comprueba que las rutas son correctas, ya que si te fijasFor Each ObjArchivo In ObjCarpeta.Files Indice=Indice+1 ReDim Preserve ArrayImagenes(Indice) ArrayImagenes(Indice)=ObjArchivo.Name Next
Código:
Parece que no coinciden.....
("C:\Inetpub\wwwroot\asp\Portal_Control_Estudio\Foto s")
....
<img src="mis_imagenes\<%=ArrayImagenes(al_azar)%>">
...
Un saludo.
__________________ ¡¡NO A LA GUERRA!! Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares! |
|
17/06/2004, 08:53
| ||||
| ||||
| Tenias razón ya esta y quedo bien, pero una pregunta como puedo combrtirlo en un codigo que pasa las imagenes automaticamente??????
__________________ Miguel Padrón :cool: |
|
17/06/2004, 10:20
| ||||
| ||||
| ¿Te refieres a que las imágenes vayan cambiando cada x segundos? Lo más fácil sería recargar la página cada x segundos. Si lo que quieres es que la página esté quieta pero que las imágenes cambien tendrías que recurrir a Javascript, cargando al principio todas las imágenes, por ejemplo en un vector, y que ellas solas vayan rotando. Pero eso ya se sale de este foro y tendrías que irte al de javascript donde, por cierto, ya se han puesto varios ejemplos sobre rotación de imágenes. Define bien qué es lo que quieres. Un saludo.
__________________ ¡¡NO A LA GUERRA!! Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares! |
|
16/07/2004, 11:10
| ||||
| ||||
| Cita: y si kisieramos tener varios directorios??
Iniciado por 8461277 ... Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set ObjCarpeta = objFSO.GetFolder("C:\Inetpub\wwwroot\asp\Portal_Co ntrol_Estudio\Fotos") ... seria posible?? |
|
19/07/2004, 03:24
| ||||
| ||||
| ¿Varios directorios? Pues creo que no habría ningún problema. Se me ocurre guardar las rutas de los directorios en un vector y que luego vaya cambiando con un bucle la conexión. A ver:
Código:
<%
dim rutas
rutas = Array("\Fotos","\Imagenes","\Miscelanea")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
For i = 0 to ubound(rutas)
Set ObjCarpeta = objFSO.GetFolder(Server.MapPath & rutas(i))
'En cada vuelta tienes una carpeta diferente para hacer lo que sea coveniente
Next
%>
__________________ ¡¡NO A LA GUERRA!! Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares! |
|
02/08/2004, 14:54
| ||||
| ||||
| Lo he probado y me sale este error
Código:
Es la línea de la ruta de las imágenes, que es estaObjeto Server error 'ASP 0177 : 800a004c' Error en Server.CreateObject /rotar.asp, line 9 00000000
Código:
Pq este error?, les posteo todo mi códigoSet ObjCarpeta = objFSO.GetFolder("imagenesrotar")
Código:
<%@ language="VBSCRIPT" %>
<%
' Codigo ofrecido por tutores.org
Dim objFSO
Dim ObjCarpeta
Dim ObjArchivo
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjCarpeta = objFSO.GetFolder("imagenesrotar")
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>
|
|
02/08/2004, 15:14
| ||||
| ||||
| Prueba con esto: Set ObjCarpeta = objFSO.GetFolder(Server.MapPath(".") & "\imagenesrotar")
__________________ ¡¡NO A LA GUERRA!! Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares! |
|
02/08/2004, 15:18
| ||||
| ||||
| ahora ya me sale la x de la imagen, ahora como cambio eso? He probado a cambiar.
Código:
por<img src="mis_imagenes\<%=ArrayImagenes(al_azar)%>">
Código:
<img src="imagenesrotar\<%=ArrayImagenes(al_azar)%>"> y nada |
|
02/08/2004, 15:23
| ||||
| ||||
| Mira el código fuente de la página desde el navegador y comprueba si la ruta de la imagen se ha escrito correctamente y, claro está, que la imagen exista.
__________________ ¡¡NO A LA GUERRA!! Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares! |
|
02/08/2004, 15:42
| ||||
| ||||
| La ruta está bien
Código:
que nombre debo darles a las imagenes? <HTML><HEAD><TITLE>MMi imagen aleatoria</TITLE></HEAD> <BODY> <img src="\imagenesrotar\"> </BODY> <HTML> |
|
02/08/2004, 16:17
| ||||
| ||||
| ¿Nombre a las imágenes? Pues en principio el que te de la gana. Eso sí, evita lo de siempre: caracteres extraños, espacios, nombres muy largos, ... Dices que la ruta está bien, pero la etiqueta no contiene ninguna imagen
Código:
aunque es raro que salga eso si has puesto<img src="\imagenesrotar\">
Código:
¿Has probado los siguiente?<img src="imagenesrotar\<%=ArrayImagenes(al_azar)%>"> http://www.santamariadelaisla.tk/ima...tar/imagen.jpg sabiendo que existe imagen.jpg Por cierto, tu página está caida ¿no?
__________________ ¡¡NO A LA GUERRA!! Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares! |
