Asp - Contador de visitas Grafico
Códigos Asp
Para contabilizar las visitas a nuestras páginas de forma mas profesional, este script muestra el numero de visitas de una forma grafica, ayudado con un archivo de texto.
Tutores.org
Mostrando Codigo - Asp
EXPLICACION
Debemos de crear 10 imagenes .gif nombradas desde 0-9, aunque tambien pueden ser de otro formato de imagen, e introducir el script en la misma carpeta.
Debemos tener en cuenta que para que se contabilizen las visitas en el archivo .txt nuestra carpeta necesita tener permisos de escritura.
Ejemplo de digitos:
CODIGO
<% 'Codigo ofrecido por Tutores.org %>
- <%
- Response.Expires = -100
- Archivo = Server.MapPath("contador.txt")
- Set Fso = CreateObject("Scripting.FileSystemObject")
- Set FileRead = Fso.OpenTextFile(Archivo,1,False)
- contador = FileRead.ReadLine
- contador = contador + 1
- Set FileWrite = Fso.OpenTextFile(Archivo,2,false)
- FileWrite.WriteLine (contador)
- FileWrite.Close
- FileRead.CloseSet
- FileWrite = Nothing
- Set FileRead = Nothing
- Set Fso = Nothing
- Len1 = 6
- Len2 = Len(contador)
- For i = 1 to Len1 - Len2
- contador = "0" & contador
- Next For i = 1 to Len1
- imagen_numero = Mid(contador,i,1)
- cantidad = cantidad & "<img src='" & imagen_numero & ".gif'>" Next%>
- %>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Contador de visitas Grafico" href="http://www.tutores.org/codigo/1516/" target="_blank">Contador de visitas Grafico</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Contador de visitas Grafico" href="http://www.tutores.org/codigo/1516/" target="_blank">Contador de visitas Grafico</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS