Publicentral.com - publicentra, promocion, promocionar, buscadores, paginas webs, registroPublicentral.com - promocion de paginas web y negocios online
Mostrando Codigo - Asp net
Code

Asp net - Simple contador de visitas sin base de datos

Códigos Asp net

Con este codigo conseguimos un contador de visitas en asp.net utilizando un archivo de texto
Visitas: 37,402 - 09/09/2003 21.16.26
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
EXPLICACION
Modificar la url del archivo contador.txt.( este archivo ha de ser creado ) Guardar con extension .aspx
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. <%'codigo ofrecido por tutores.org
  2.  Function BinaryToString(Binary)
  3.     Dim I, S
  4.     For I = 1 To LenB(Binary)
  5.       S = S & Chr(AscB(MidB(Binary, I, 1)))
  6.     Next
  7.     BinaryToString = S
  8.   End Function
  9.  
  10.   If ucase(Request.ServerVariables("HTTP_User_Agent")) = "POSTFAVORITES" Then
  11.     dim ByteArray
  12.     'Leemos los favoritos
  13.    ByteArray = request.binaryread(request.servervariables("HTTP_Content_Length"))
  14.     'Metemos favoritos en una sesion
  15.    session("Favorites") = BinaryToString(ByteArray)
  16.     session("http") = request.servervariables("ALL_RAW")
  17.   end if
  18.  
  19.   dim URL
  20.   const Message = "Haz click para mostrar tus favoritos en pantalla"
  21.   URL = Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
  22.   'Escribimos el enlace
  23.  
  24.   Response.Write " <a href=""javascript:{external.ImportExportFavorites(0,document.location.href);window.location.reload();}"">"&Message&"</a>"
  25.   If session("Favorites")<>"" Then Response.Write " Estos son tus favoritos <br>"
  26.  
  27.   'Escribimos los favoritos
  28.  If session("Favorites")<>"" Then
  29.     Response.Write "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 Cols=1 bgcolor=#ccccccc><tr bgcolor=#999999><th>"
  30.     Response.Write "Mostrando tus favoritos : "
  31.     Response.Write "</th></tr><tr><td>"
  32.     Response.Write session("Favorites")
  33.     Response.Write "</td></tr></TABLE>"
  34.     Response.Write "</th></tr><tr><td>"
  35.     Response.Write "<pre>http header : " & vbCrLf & session("http") & "</pre>"
  36.     Response.Write "</td></tr></TABLE>"
  37.    
  38.   end if
  39.  
  40.     %>
  41.  



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Simple contador de visitas sin base de datos" href="http://www.tutores.org/codigo/540/" target="_blank">Simple contador de visitas sin base de datos</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
15/09/2004 22.54.59
1 5
hola muchas gracias por ek código, me será de mucha utilidad... si le encuentro pies y cabeza claro
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.