Mostrando Codigo - Asp
EXPLICACION
Debemos crear 10 graficos, 1 para cada numero.
El script obtiene los datos del archivo contador.txt.
<%
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
COMENTARIOS
Aun no existe ningun comentario para este Codigo.