Publicentral.com - promocion,paginas,web,tutores,publicentralPromocion de paginas webs
Mostrando Codigo - Asp net
Code

Asp net - Simple contador de visitas con archivo de texto

Códigos Asp net

Contador de visitas que almacena los datos o visitas en un archivo de texto de una forma muy simple.
Visitas: 46,823 - 26/02/2006 12:36:41
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%@ Import Namespace="System.IO" %>
  2. <%@ Page Language="VB"%>
  3. <html><head>
  4. <script language=VB runat="server">
  5.  
  6. Sub Page_Load(Src as object, E as EventArgs)
  7. dim objReader as StreamReader
  8. dim objWriter as StreamWriter
  9. dim archivo as string
  10. dim sCount as string
  11. dim iCount as integer
  12.  
  13.  
  14. Try
  15. archivo = Server.MapPath(".")
  16. If Right(archivo, 1) <> "" then archivo = archivo & ""
  17. archivo = archivo & "contador.txt"
  18.  
  19. If not File.Exists(archivo) then
  20.     objWriter = File.CreateText(archivo)
  21.     objWriter.Write("0")
  22.     objWriter.Close
  23. End if
  24.  
  25. objReader = File.OpenText(archivo)
  26. sCount = objReader.ReadToEnd()
  27. objReader.Close
  28. iCount = Cint(sCount)
  29. iCount = iCount + 1
  30. sCount = iCount.ToString
  31.  
  32. objWriter = File.CreateText(archivo)
  33. objWriter.Write(sCount)
  34. objWriter.Close
  35.  
  36. Catch Ex as Exception
  37. Label1.width = New Unit(640)
  38. sCount = "[Se ha producido un error]: " &  Ex.Message
  39.  
  40. Finally
  41.  
  42. Label1.Text = sCount
  43. End Try
  44. End Sub
  45. </script>
  46. </head>
  47. <BODY>
  48. <p>Bienvenido, eres el visitante numero: </p>
  49. <p><asp:label id=Label1 runat="server" Height="21" Width="57" Font-Bold="True"></asp:label></p></BODY></html>
  50.  



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Simple contador de visitas con archivo de texto" href="http://www.tutores.org/codigo/1625/" target="_blank">Simple contador de visitas con archivo de texto</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
12-10-2007 19:58:01
4 5
El ejemplo no me funcionó, me marca con error "label1.text=scount" y me pone
Warning 1 Variable 'sCount' is used before it has been assigned a value. A null reference exception could result at runtime. C:Documents and SettingsAdministradorMis documentosVisual Studio 2005WebSitesWebSite2Default.aspx 43 15 C:...WebSite2

Como soluciono esto???

Gracias
Comentario usuario
02-12-2007 19:16:15
5 5
hola.
a mi tambien me dio un poco por culo al principio, pero tuve que meterme en el codigo html y borrar todo lo que habia escrito ahi.

luego copie y pegue a lo bestia todo, al ejecutar me dio buen resultado.

asi que, pasa del diseño al cidigo y borralo todo, luego pegas el codigo este, es mejor usar un fichero de texto siempre y cuando quieras que tu base de datos sea insegura y cualquiera ya tenga privilegios de meter datos dentro sin tu saber quien es....

prefiero un simple fichero de texto, que total, para lo que va a hacer, ta gueno
Comentario usuario
11/01/2006 3.56.23
3 5
Hola, tengo un problema, lo inserte en el codigo, y en firefox funciona de maravilla, pero en explorer no, se me deforma todo el diseño de la hoja de estilo. en firefox el diseño esta intacto, pero en explorer se deforma por completo, alguna idea??
gracias
Comentario usuario
24-01-2008 20:35:12
1 5
Buenas,

El código no está correcto del todo ya que es posible que dos usuarios recurrentes accedan al contenido del contador y ambas visitas cuenten solo como 1.
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.