ASP manuales tutoriales codigo fuente

Enviado por Gabriel guttierrez maso.nuestro agradecimiento

crear un archivo de texto que se llamará "contador.txt" en el directorio "contador" y debe escribir una línea con el número "1", para inicializar el contador.

Código para crear un contador

<%
' 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)
%>
<!-- En la siguiente línea se muestra el número de visitas actuales -->
Número de visitas <%=Nuevo%>.