Contador de visitas sin BD
Publicado por haf (138 intervenciones) el 14/12/2007 10:40:55
he heco este contador de visitas sin Bd y me pareció interesante compartirlo con ustedes:
Contador de Visitas utilizando un archivo texto (contador.txt)
En la página incial (por ejemplo index.aspx) crear :
Dim Numero As String = ""
Numero = CStr(CInt(My.Computer.FileSystem.ReadAllText(HttpContext.Current.Server.MapPath(".") & "contador.txt")))
Dim Ip As String = System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip = Nothing Then
Ip = System.Web.HttpContext.Current.Request.ServerVariables("REMOTE_ADDR")
If Ip <> "80.xx.xx.xxx" Then 'Ip Publica para que no cuente tus propias visitas
Numero = CStr(CInt(My.Computer.FileSystem.ReadAllText(HttpContext.Current.Server.MapPath(".") & "contador.txt")) + 1)
My.Computer.FileSystem.WriteAllText(HttpContext.Current.Server.MapPath(".") & "contador.txt", Numero, False)
End If
End If
Session("Contador_Visitas") = Numero
Response.Redirect("tu_pagina.aspx")
En tu_página.ASPX colocar un Label Lbl_visitas:
Lbl_visitas.Text = "Visitante Nº " & Session("Contador_Visitas")
Contador de Visitas utilizando un archivo texto (contador.txt)
En la página incial (por ejemplo index.aspx) crear :
Dim Numero As String = ""
Numero = CStr(CInt(My.Computer.FileSystem.ReadAllText(HttpContext.Current.Server.MapPath(".") & "contador.txt")))
Dim Ip As String = System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip = Nothing Then
Ip = System.Web.HttpContext.Current.Request.ServerVariables("REMOTE_ADDR")
If Ip <> "80.xx.xx.xxx" Then 'Ip Publica para que no cuente tus propias visitas
Numero = CStr(CInt(My.Computer.FileSystem.ReadAllText(HttpContext.Current.Server.MapPath(".") & "contador.txt")) + 1)
My.Computer.FileSystem.WriteAllText(HttpContext.Current.Server.MapPath(".") & "contador.txt", Numero, False)
End If
End If
Session("Contador_Visitas") = Numero
Response.Redirect("tu_pagina.aspx")
En tu_página.ASPX colocar un Label Lbl_visitas:
Lbl_visitas.Text = "Visitante Nº " & Session("Contador_Visitas")
Valora esta pregunta


0