2 replies to this topic

[Allan]

como crio um contador de acesso

soh adicionando o conando ?

[Coutrahh]

<%
Dim fsoObject                  
Dim tsObject                   
Dim filObject                   
Dim Visitantes                  
Dim Contador                   
Dim Zeros                     
Dim Quantidade                
Quantidade=8
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile(Server.MapPath("contador\visitas_pg_inicial.txt"))
Set tsObject = filObject.OpenAsTextStream 
Visitantes = CLng(tsObject.ReadAll)
If isEmpty(Session("Visitado")) = True Then
    Visitantes = Visitantes + 1
    Session("Visitado") = True
End if
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("contador\visitas_pg_inicial.txt"))
tsObject.Write CStr(Visitantes)
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing 
'Response.Write(Visitantes) 
Do While Len(Visitantes)<>Quantidade
   Visitantes="0" & Visitantes
Loop
For Contador = 1 to Len(Visitantes)
Next
%>

Cria a pasta contador e cria o arquivo txt conforme eu coloquei aí no código.
PS - isso é em código ASP....

Abs,

[Crab]

Local errado.

Como não tenho para onde mover vou trancar.

Abra o tópico no local correto

Crab (y)Até Mais