Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

AYUDA... me estan saliendo canas verdes

07/12/2005 - 20:44 por Manuel Vera | Informe spam
Ayuda Hacer una pregunta
Hola, por favor alguien que me ayude con esto...

Entorno:
Win XP Prof y ASP 3.0

Tengo una rutina que funciona perfectamente en el servidor web y en mi
anteior PC con Win98. Sin embargo, necesito hacer unos cambios y sus
correspondientes pruebas y no puedo porque está fallando en mi actual PC. La
rutina es:

function leerArchivo(ruta)
' La variable ruta tiene el valor correcto y tras ver el contenido de
' Server.MapPath() vi que tambien esta OK.
' Para hacerlo le coloqué instrucciones Response.Write para ver sus valores.
Const ForReading = 1
dim fso, ts, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile( server.MapPath( ruta ) , ForReading)
' en la linea anterior se queda en un loop infinito. nunca termina de cargar
la pagina.
s = ts.ReadAll
ts.Close
set ts = nothing
set fso = nothing
leerArchivo = s
end function

¿Alguien tiene alguna idea de que esta funcionando mal?

Salu2
MV
email Siga el debateRespuesta 15 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Jose A. Fernandez
08/12/2005 - 15:47 | Informe spam
Manuel...
Como te comenta Manuel ...los permisos suele ser en la mayoria e los
casos el problema..
la idea es que la cuenta IUSR de IIS necesita tener permisos de
lectura, escritura, etc... debe}observar los permisos mas restrictivos
ya que son estos lo que te estan ocasionando tal inconveniente
Mi pregunta? ese arcchivo lo puedes acceder mediante URL?
http://tupc/ruta/archivo.txt??



otro paso para detectar tu problema es con otra rutina de acceso al
archivo
por ejemplo para ver si existe...
EJEMPLO:

'-
Function ExisteArchivo(Archivo)
Dim fso, bolRespuesta

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(Archivo)) Then
bolRespuesta = True
Else
bolRespuesta = False
End If
Set fso = Nothing
ExisteArchivo = bolRespuesta

End Function
'-



o tambien leyendo el archivo de otra manera,...
EJEMPLO:
(..acciones anteriores)
archivo = fso.GetFile(server.MapPath(ruta))
Set archivoStream = archivo.OpenAsTextStream(1)
'ForReading = 1
strContenido = archivoStream .ReadAll
(cerrando objetos)


enlaces que te pueden ayudar:

OpenAsTextStream
http://msdn.microsoft.com/library/d...stream.asp

Seguriad en IIS
http://www.microsoft.com/mexico/pym...s_6_0.mspx
http://www.microsoft.com/spain/empr...0_5_1.mspx

CÓMO: Configurar, ver, cambiar o quitar permisos de archivos y
carpetas
http://support.microsoft.com/kb/308418/es


Espero que te sirva
Respuesta Responder a este mensaje
#2 Manuel Vera
08/12/2005 - 16:21 | Informe spam
Las últimas acciones tomadas...

Creé una carpeta en la unidad C: directamente.
c:\sac

Alli coloqué un archivo nuevo llamado:unaprueba.htm, cuyo contenido es
simplemente:
<HTML>
<BODY>
Esta es una prueba
</BODY>
</HTML>

Fui a Panel de Control, Herramientas Administrativas, IIS, creé un
directorio virtual llamado SAC1 que apunta a esa nueva carpeta. Entré a una
sección de Asistente de Perfil de Seguridad y le indiqué lectura/escritura.

Apunté directamente desde el navegador web a ese archivo unaprueba.htm y se
mostró sin problermas. Igualmente con los archivos originales. La ruta fue:
http://localhost/sac1/unaprueba.htm

Reinicié el equipo.

Resultado Final:
Sigo presentendo el mismo inconveniente de que la página se queda en un
proceso de carga infinito.


"Jose A. Fernandez" escribió en el mensaje
news:
Manuel...
Como te comenta Manuel ...los permisos suele ser en la mayoria e los
casos el problema..
la idea es que la cuenta IUSR de IIS necesita tener permisos de
lectura, escritura, etc... debe}observar los permisos mas restrictivos
ya que son estos lo que te estan ocasionando tal inconveniente
Mi pregunta? ese arcchivo lo puedes acceder mediante URL?
http://tupc/ruta/archivo.txt??



otro paso para detectar tu problema es con otra rutina de acceso al
archivo
por ejemplo para ver si existe...
EJEMPLO:

'-
Function ExisteArchivo(Archivo)
Dim fso, bolRespuesta

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(Archivo)) Then
bolRespuesta = True
Else
bolRespuesta = False
End If
Set fso = Nothing
ExisteArchivo = bolRespuesta

End Function
'-



o tambien leyendo el archivo de otra manera,...
EJEMPLO:
(..acciones anteriores)
archivo = fso.GetFile(server.MapPath(ruta))
Set archivoStream = archivo.OpenAsTextStream(1)
'ForReading = 1
strContenido = archivoStream .ReadAll
(cerrando objetos)


enlaces que te pueden ayudar:

OpenAsTextStream
http://msdn.microsoft.com/library/d...stream.asp

Seguriad en IIS
http://www.microsoft.com/mexico/pym...s_6_0.mspx
http://www.microsoft.com/spain/empr...0_5_1.mspx

CÓMO: Configurar, ver, cambiar o quitar permisos de archivos y
carpetas
http://support.microsoft.com/kb/308418/es


Espero que te sirva
Respuesta Responder a este mensaje
#3 guarracuco
08/12/2005 - 18:19 | Informe spam
Manuel. Utiliza la instruccion que verifica si llega al final del archivo;
creo que el problema está allí
guarracuco/venezuela


"Manuel Vera" escribió:

Las últimas acciones tomadas...

Creé una carpeta en la unidad C: directamente.
c:\sac

Alli coloqué un archivo nuevo llamado:unaprueba.htm, cuyo contenido es
simplemente:
<HTML>
<BODY>
Esta es una prueba
</BODY>
</HTML>

Fui a Panel de Control, Herramientas Administrativas, IIS, creé un
directorio virtual llamado SAC1 que apunta a esa nueva carpeta. Entré a una
sección de Asistente de Perfil de Seguridad y le indiqué lectura/escritura.

Apunté directamente desde el navegador web a ese archivo unaprueba.htm y se
mostró sin problermas. Igualmente con los archivos originales. La ruta fue:
http://localhost/sac1/unaprueba.htm

Reinicié el equipo.

Resultado Final:
> Sigo presentendo el mismo inconveniente de que la página se queda en un
proceso de carga infinito.


"Jose A. Fernandez" escribió en el mensaje
news:
Manuel...
Como te comenta Manuel ...los permisos suele ser en la mayoria e los
casos el problema..
la idea es que la cuenta IUSR de IIS necesita tener permisos de
lectura, escritura, etc... debe}observar los permisos mas restrictivos
ya que son estos lo que te estan ocasionando tal inconveniente
Mi pregunta? ese arcchivo lo puedes acceder mediante URL?
http://tupc/ruta/archivo.txt??



otro paso para detectar tu problema es con otra rutina de acceso al
archivo
por ejemplo para ver si existe...
EJEMPLO:

'-
Function ExisteArchivo(Archivo)
Dim fso, bolRespuesta

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(Archivo)) Then
bolRespuesta = True
Else
bolRespuesta = False
End If
Set fso = Nothing
ExisteArchivo = bolRespuesta

End Function
'-



o tambien leyendo el archivo de otra manera,...
EJEMPLO:
(..acciones anteriores)
archivo = fso.GetFile(server.MapPath(ruta))
Set archivoStream = archivo.OpenAsTextStream(1)
'ForReading = 1
strContenido = archivoStream .ReadAll
(cerrando objetos)


enlaces que te pueden ayudar:

OpenAsTextStream
http://msdn.microsoft.com/library/d...stream.asp

Seguriad en IIS
http://www.microsoft.com/mexico/pym...s_6_0.mspx
http://www.microsoft.com/spain/empr...0_5_1.mspx

CÓMO: Configurar, ver, cambiar o quitar permisos de archivos y
carpetas
http://support.microsoft.com/kb/308418/es


Espero que te sirva



Respuesta Responder a este mensaje
#4 Manuel Vera
08/12/2005 - 19:34 | Informe spam
Ya le hice una depuración o debug a la página utilizando:

response.write "AQUI"
response.end

y lo fui corriendo a lo largo del código hasta llegar a la llamada de la
rutina que coloqué en el mensaje original.
Justamente se cuelga cuando hace el open del archivo con el
FileSystemObject()

Salu2
MV


"guarracuco" escribió en el mensaje
news:
Manuel. Utiliza la instruccion que verifica si llega al final del archivo;
creo que el problema está allí
guarracuco/venezuela


Respuesta Responder a este mensaje
#5 guarracuco
08/12/2005 - 19:53 | Informe spam
prueba con colocar false en el parámetro de 'crear si no existe'

Set ts = fso.OpenTextFile( server.MapPath( ruta ) , ForReading,false)

guarracuco/venezuela


"Manuel Vera" escribió:

Ya le hice una depuración o debug a la página utilizando:

response.write "AQUI"
response.end

y lo fui corriendo a lo largo del código hasta llegar a la llamada de la
rutina que coloqué en el mensaje original.
Justamente se cuelga cuando hace el open del archivo con el
FileSystemObject()

Salu2
MV


"guarracuco" escribió en el mensaje
news:
> Manuel. Utiliza la instruccion que verifica si llega al final del archivo;
> creo que el problema está allí
> guarracuco/venezuela
>
>


Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida