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
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :