% ' 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.FileSystemObject") 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) %>
|
|
Jorge
Washington Peña Hen (1928-1973)
Director, connotado compositor y ex docente de la Universidad de Chile, |
|