Asp - Simple contador Grafico sin BD
Códigos Asp
Este script utiliza un archivo de texto como almacenamiento y numeros en formato grafico.
Tutores.org
Mostrando Codigo - Asp
EXPLICACION
Debemos crear 10 graficos, 1 para cada numero.
El script obtiene los datos del archivo contador.txt.
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.Close
- Set 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
- numero = Mid(contador,i,1)
- cantidad = cantidad & "<img src='" & numero & ".gif'>"
- Next
- %>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Simple contador Grafico sin BD" href="http://www.tutores.org/codigo/583/" target="_blank">Simple contador Grafico sin BD</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Simple contador Grafico sin BD" href="http://www.tutores.org/codigo/583/" target="_blank">Simple contador Grafico sin BD</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS