Còmo puedo hacer un contador de visitas que se ponga en cero cuando el dìa cambie???
gracias...
10/05/2002, 17:13
| |||
| |||
| Re: Contador de visitas por dìa... mmm pues yo ando de ocioso y so peachepero (php) y ahi si se puede no se si en asp se pueda disculpa  <html> <center> <iframe marginwidth="0" marginheight="0" scrolling="no" frameborder="0" src="http://www.ansiwebs.com/Poexia/index.html" width=468 height=60></iframe> </center> </html> |
|
10/05/2002, 17:20
| |||
| |||
| Re: Contador de visitas por dìa... Que tal Aqui tienes el codigo para el contador por dia:
Código:
Saludos
<%
dim diact, diasis
fp = Server.MapPath("\tusitio\db\day.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fp)
diasis = a.ReadLine
a.close
diact=day(now)
If int(diact)=int(diasis) then
fp = Server.MapPath("\tusitio\db\contador.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fp)
ct = a.ReadLine
ct = ct + 1
a.close
Set a = fs.CreateTextFile(fp, true)
a.WriteLine(ct)
a.Close
Response.Write "<h2>Visita del día No.: " & ct & "</h2>"
else
fp = Server.MapPath("\tusitio\db\day.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(fp)
diact=day(now)
a.WriteLine(diact)
a.Close
fp = Server.MapPath("\tusitio\db\contador.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(fp, true)
num=1
a.WriteLine(num)
a.Close
Response.Write "<h2>Visita del día No.: " & num & "</h2>"
end if
%>
El Reportero de los Foros |
|
10/05/2002, 17:29
| ||||
| ||||
| Re: Contador de visitas por dìa... If Application("Fecha")<>Date OR Application("Fecha")="" Then Application("Fecha")=Date Application("Counter")=0 Else Application("Counter")=Application(" ;Counter")+1 End if Creo que eso funcionará con las respectivas restricciones de las variables de aplicación. Saludos <center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br> Urjose</center> |
