leer documentos txt

[haven]

Hola a todos, mi problema es el suiguiente estoy utilizando este código sacado de:
http://www.aspfacil.com/articulos/fso.asp

Código PHP:

   
<% 
Dim FSO, oCarpeta, colFicheros, fichero, oFichero 
Dim sContenido 
 
set FSO = Server.CreateObject("Scripting.FileSystemObject") 
set oCarpeta = FSO.GetFolder("C:\Documentos") 
set colFicheros = oCarpeta.Files 
 
'Recorremos la colección de ficheros (objetos File) 
for each fichero in colFicheros 
 
    if fichero.Name="pruebas.txt" then 
        'Abro el fichero para lectura (ForReading) 
        set oFichero = fichero.OpenAsTextStream(1) 
        'Leo todo el fichero a una variable 
        sContenido = oFichero.ReadAll 
        'Cierro el fichero 
        oFichero.Close 
        set oFichero = nothing 
    end if 
 
next fichero 
 
set colFicheros = nothing 
set oCarpeta = nothing 
set FSO = nothing 
 
%>  
   

Bien el código funciona muy bien, ya que me lee el documento, pero lo que quiero es que cuando esta página esté en internet, yo pueda leer un documento txt que está alojado en mi ordenador, es más que nada por que cada semana cambiamos de contraseñas y había pensado que una buena forma de que no nos tengamos que aprender las nuevas contraseñas cada x días, es poner un txt con esa contraseña en cada uno de los ordenadores de mis compañeros, pero no consigo leer ese txt de la página de internet y mi ordenador, alguien sabe su se puede hacer esto??????

Un saludo

[aleksey]

Deberas cambiar los delimitadores de ASP (<% %>) por
<script languaje="VBscript"> y </script> respectivamente, con lo que pasare a ser un script de cliente en vez de de servidor con, esto la página podra leer archivos de tu disco duro, es muy probable que te salga una advertencia de seguridad de que se va a ejecutar un ActiveX o algo asi.

Espero que te sirva de ayuda, un saludo.

[haven]

Vale, aleksey, pero si lo pongo como tu dices quitando los <% %>, entonces no me reconoce el código, me imagino que tendré que ponerle algo más, sabes lo qué???

Código PHP:

   
<script languaje="VBscript"> 
                     
Dim FSO, oCarpeta, colFicheros, fichero, oFichero 
Dim sContenido 
 
set FSO = Server.CreateObject("Scripting.FileSystemObject") 
set oCarpeta = FSO.GetFolder("C:\Archivos de programa") 
set colFicheros = oCarpeta.Files 
 
'Recorremos la colección de ficheros (objetos File) 
for each fichero in colFicheros 
 
    if fichero.Name="codigo.txt" then 
        'Abro el fichero para lectura (ForReading) 
        set oFichero = fichero.OpenAsTextStream(1) 
        'Leo todo el fichero a una variable 
        sContenido = oFichero.ReadAll 
        'Cierro el fichero 
        oFichero.Close 
        set oFichero = nothing 
    end if 
 
next fichero 
 
set colFicheros = nothing 
set oCarpeta = nothing 
set FSO = nothing 
 
</script>  
  

Un saludo

[aleksey]

Seria como un script normal de cliente como lo de javascript podrias ponerlo en el Body y se ejecutaria directamente o bien en el head dentro de una funcion y llamarlo cuando lo necesites.

[haven]

Nada aleksey he estado probando y no consigo que funcione, la verdad es que no tengo ni idea de como ponerlo para que funcione, si alguien me puediese ayudar????

Voy a pensar otra forma de hacerlo

Un saludo

[damargon]

Utiliza cookies, al fin y al cabo una cookie es una archivo de texto que se guarda en la parte cliente. Desde la página asp puedes leer el contenido de las cookies.

Ya que estás mirando aspfácil.com, ahí viene algún artículo muy interesante sobre las galletitas.

Saludos