4 replies to this topic

[Operador]

Olá peguei esse contador de acesso na net e já tentei colocar para quando clicar em atualizar não contar mais um ou apertar F5.
Coloquei ele na minha página no lado direito e quando acesso a cada página ele vai contando. Se acessar a página notícias conta um, se voltar a página inicial conta 2 e assim por diante.

Teria como alguém me ajudar?

Este é o código:
Página Counter.asp

<!-- #include file="config.asp" -->
<% 
Dim conn,query

path = Request.ServerVariables("Path_Translated")
since = Date()

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & database & ""

Set query = conn.Execute("SELECT * FROM counter WHERE path='" & path & "'")

If query.EOF Then
	conn.Execute("INSERT INTO counter (path,visits,since) VALUES ('" & path & "',1,'" & since & "')")
End If

If Not query.EOF Then
	visits = cInt(query("visits"))+1
	since = query("since")
Else 
	visits = 1
	since = date()
End If

If showcounter = "since" Then
	Response.Write "<b>" & visits & "</b> visitors since " & since
ElseIf showcounter = "no" Then
	Response.Write " "
Else
	Response.Write visits
End If

conn.Execute("UPDATE counter SET visits='" & visits & "' WHERE path = '" & path & "'")

conn.close
Set conn = Nothing
Set query = Nothing
%>

Espero uma resposta.

Obrigado

Edição feita por: Operador, 10/08/2004, 18:12.

[Well]

Talvez ninguem tinha respondido seu post, por não ter uma resposta,

Então, adaptar esse código na sua pág. do jeito que você quer, acredito que seje bem dificil, vou dar umas prokurada na net.

Faz o seguinte, entre em contato aonde você hospeda seu site, pois alguns disponibilizam contadores, da forma que você está kerendo ou seja. que só é alterado qdo. indentifica que não é o mesmo IP ou seja

Vc entra em uma página independente qual for,vai aumentar seu contador, e o mesmo só vai ser aumentado depois de um certo tempo, ou qdo. outro IP for indetificado por ele.

Entre em contato aonde vc hospeda, eles podem te ajudar

Espero ter ajudado

[Tx.NET]

heloows.....

aki, no próprio wmonline tem uma área de download com contadores de acesso muito bom......
dá uma olhada e ve se ajuda:
http://www.wmonline....egoria=contador

flws...

[croys]

<!-- #include file="config.asp" -->

<% 

Dim conn,query



path = Request.ServerVariables("Path_Translated")

since = Date()



Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & database & ""



Set query = conn.Execute("SELECT * FROM counter WHERE path='" & path & "'")



If query.EOF Then

conn.Execute("INSERT INTO counter (path,visits,since) VALUES ('" & path & "',1,'" & since & "')")

End If



If Not query.EOF Then

visits = cInt(query("visits"))+1

since = query("since")

Else 

visits = 1

since = date()

End If



If showcounter = "since" Then

Response.Write "<b>" & visits & "</b> visitors since " & since

ElseIf showcounter = "no" Then

Response.Write " "

Else

Response.Write visits

End If



'******** Session pra nao contar d novo *************

If not Session("Contador") = 1 Then

conn.Execute("UPDATE counter SET visits='" & visits & "' WHERE path = '" & path & "'")

Session("Contador") = 1

End if

'************************************************



conn.close

Set conn = Nothing

Set query = Nothing

%>

[Agente Linhares]

ou insere um lance que barra por ip ou cookies..depdende de como vc que..

mas vê na wmo que tem