Leyendo datos de un TXT

[aavg]

Hola que tal, pues buscando como hacer un contador de visitas me encontre este código que lee y escribe datos en un archivo *.txt

No lo he revisado aun pero parece que esta muy bien, ojala y te sea de utilidad.



<%
' Creación del objeto de acceso a ficheros y del nombre del fichero
' a acceder -contador.txt- del directorio contador
Set FileObj = Server.CreateObject("Scripting.FileSystemObje ct")
nombFichero = Server.MapPath ("/contador") & "\contador.txt"

' Lectura del fichero contador.txt e incremento del número de visitas
Set Entrada= FileObj.OpenTextFile (nombFichero, 1, false )
Actual = Trim(Entrada.ReadLine)
Nuevo = Actual + 1

' Creación del fichero contador.txt y escritura del número de visitas
Set Salida= FileObj.CreateTextFile (nombFichero, True)
Salida.WriteLine(Nuevo)
%>




Usuario #516 en los foros <br>
El hombre no vale por lo que sabe, sino por lo que transmite
C'est parce qu'il y a un Dieu que nous sommes libres