09/08/2004, 08:50
|
 | | | Fecha de Ingreso: noviembre-2003 Ubicación: Lima - Perú
Mensajes: 443
Antigüedad: 21 años, 5 meses Puntos: 1 | |
| Ayuda con código de contador de visitas
Hola a todos, encontré este código para contador de visitas que lo inicializo desde un archivo de texto, pero lo malo es que el contador se incrementa cada vez que se hace un refresh o se regresa a cualquiera de las páginas del site, y lo que busco es que el contador se incremente por cada usuario diferente... alguien podría ayudarme con esto por favor? muchas gracias de antemano.
Código:
Visitante Nº
<%
SET MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
'Edit this loction accordingly
SET MyCouNtFile = MyFileObject.OpenTextFile(Server.MapPath("count.tx t"))
IF NOT MyCountFile.AtEndOfStream THEN
'Read the Visitor no.
Visitor = MyCountFile.Readline
Response.Write(Visitor)
End IF
'close object
MyCountFile.close
SET MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
SET MyCouNtFile = MyFileObject.CreateTextFile(Server.MapPath("count. txt"))
MyCountFile.WriteLine Visitor+1
MyCountFile.Close
%> |