• 0
Sign in to follow this  
vicoluis

Contador de visitas usando FSO

Question

não sei se já tem ai... mas fica ai minha contribuição:

Contador de visitas usando FSO

ai vai... so vou comentar as linhas... creio que já fica de facil entendimento...

<%

' Vemos, se o IP que está gravado no CooKie não é igual ao IP atual.

if Request.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR")

' Se for

then

' Não contamos uma visita para este usuario, apenas mostramos o total de visitas

' até o presente momento.

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

Set gravar = fso.OpenTextFile(server.MapPath("contador.txt"), 1, False)

' Lemos o valor atual do numero de visitas, e colocamos em uma variável.

total = gravar.readline

' Fechamos o objeto

gravar.close

' Limpamos ele

set gravar = nothing

' Printamos na tela o total de visitas atual.

response.write"Total de visitas: "&total

' Porém, se for a primeira visita do ser humano.

else

' Abrimos nosso arquivo que conta as visitas.

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

caminho = Server.MapPath("contador.txt")

Set gravar = fso.OpenTextFile(caminho, 1, False)

' Guardamos o valor atual de visitas em uma variavel.

Linha = gravar.readline

' Adicionamos uma visita na quantidade de visitas atual.

total = linha + 1

' Fechamos o objeto

gravar.close

' Limpamos ele

set gravar = nothing

' Então, gravamos o novo valor de visitas.

Set GRAVAR = FSO.CreateTextFile(caminho,true)

gravar.write ""&total

' Fechamos o objeto

gravar.close

' Limpamos ele

set gravar = nothing

' Printamos na tela o número atual de visitas.

response.write"Total de visitas: "&total

' Fechamos o IF

end if

' Gravamos em um cookie o IP do visitante, para em que sua próxima visita

' não seja adicionada uma visita em nosso arquivo.

Response.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR")

%>

Pronto.

Agora crie um arquivo chamado contador.txt e salve na mesma pasta que você irá rodar este arquivo com o codigo asp.

Coloque o valor inicial de visitas que você quer começar contanto. neste contador.txt

Por padrão, se colocaria 0 ( zero ) mas se você quiser começar contando de 100 ( cem ) você pode, basta colocar 100 ( cem ) na primeira linha do TXT.

wink.gif

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this