19/11/2004, 16:19
|
| | | Fecha de Ingreso: octubre-2003
Mensajes: 49
Antigüedad: 21 años, 6 meses Puntos: 0 | |
| no lo he probado pero....
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)
.... espero que te sea de utilidad. |