Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Um esclarecimento para usar este contador

arldin

Perguntado por arldin,

 Share

Pergunta

arldin

arldin

Postado
Postado

Bom dia amigos eu gostaria de saber o sequinte:

Coloquei este contador com arquivo de texto e arquivo mdb, funciona bem.

O que eu gostaria de saber e o sequinte:como fazer para usa-lo em outras paginas,e que ele so registre a contagem da pagina que esta sendo vista(POIS SE EU COLOCAR O CODICO EM TODAS ELA CONTA DIRETO, MESMO QUE ESTEJE EN OUTRA PAGINA) E bem assim ele esta na pagina que amostra a festa do Homem Aranha e na pagina de Futebol, porem se eu acessar a pagina do Homem Aranha ele conta tambem na de Futebol

Tem este code

<%@LANGUAGE="VBSCRIPT"%>

<!--#INCLUDE FILE="funcoes.asp"-->

<%

Acessos()

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

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dados/acessos.mdb")

sql3 = "SELECT * FROM acessos"

Set conta = conexao.Execute(sql3)

Contar = conta("contador")

Function PegarImg(Contar)

For numero = 1 to Len(Contar)

Response.Write "<img src=imagens/" & Mid(Contar,numero,1) & ".gif>"

Next

End Function

%>

<html>

<body bgcolor="black">

Acessos ao site: <%=PegarImg(Contar)%>

</body>

</html>

Que eu coloco a onde eu quero que apareça o contador, tudo beleza
<%

Session.LCID = 1046

Public Function Acessos()

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

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dados/acessos.mdb")

sql2 = "SELECT * FROM acessos"

Set rs = conexao.Execute(sql2)

contador = rs("contador")

if contador = "" then

contador = 0

end if

contador = contador + 1

SQL = "UPDATE acessos SET contador = '"&contador&"' WHERE cod = 1"

conexao.Execute(SQL)

conexao.close

set conexao = nothing

End Function

%>

E esta que e a de funçoes, ta beleza tambem

<%@LANGUAGE="VBSCRIPT"%>

<%

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

obj = Server.MapPath("contar.txt")

Set arquivo = objeto.OpenTextFile(obj)

velho = CLng(arquivo.ReadLine)

arquivo.Close

novo = velho + 1

Set arquivo = objeto.OpenTextFile(obj,2,true)

arquivo.WriteLine(novo)

arquivo.Close

Contar = novo

Function PegarImg(Contar)

For numero = 1 to Len(Contar)

Response.Write "<img src=imagens/" & Mid(Contar,numero,1) & ".gif>"

Next

End Function

%>

<html>

<body bgcolor="black">

Acessos ao site: <%=PegarImg(Contar)%>

</body>

</html>

E este que fica dentro da pagina de texto que tambem esta beleza

O que eu gostaria de saber se tem como fazer para que eu coloque eles em outra pagina e elas contem separadamente, no aquivo mdb so tem uma tabela com o codico 1

Desde já agradeço a todos

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Arldin, esse contador tem o objetivo de contabilizar a qtde de acessos, não ao site como um todo, mas sim as páginas... portanto se você repetir o codigo em todas as páginas ele irá contabilizar várias vezes mesmo!

Para evitar isso, uma ideia seria colocar o codigo dentro de um iframe! este iframe ser o mesmo em todas as páginas... dessa forma daria certo...

Ainda acho que o melhor caminho nesse caso seria trabalhar com sessions e com o IP do cara que ta vsitando...dá uma pesquisada em sessions e requisição de IP

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

não não se colocar num iframe, toda vez que este for chamado vai repetir o código.

existe duas formas que no fim podem virar uma só...

usando cookies..

if request.cookies("cont")<>0 then

.... aqui add +1 no contador

response.cookies("cont")=0
end if

basicamente ao gravar a visita grava um cookie (poderia ser session) que é vericado sempre antes de aumentar o contador

a outra é você gerar um campo página para gravar a pagina atual..

ai o contador terá de cadastrar varias linhas no banco e para exibir o total apenas fazer a soma de todos os campos....

um exemplo pronto:

http://www.portalmaracaju.com.br/cg_geradores (ta off porque esqueci de paga,, jaja ta de volta)

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Bareta beleza? Essas questões de sessions e cookies já foram debatidas e expostas aqui pro Alrdin em outros dois tópicos sobre assuntos bem parecidos.

Certamente é o melhor caminho... mas não foi o escolhido por ele!

Arldin, fico contente que você tenha conseguido. Espero que saibas que esse não é o melhor caminho pra você ou pra sua página, e espero que entendas quando sugiro que pegues aqui uns TUTOS sobre HTML, JavaScript e ASP mesmo, porque seus códigos estavam realmente muito bagunçados daquela vez que eu vi...

Códigos prontos na web são legais... contratar pessoas pra fazer tb é bom porque é fácil... mas o mais legal mesmo é quando você faz inteiramente sozinho... mas pra isso é preciso muito esforço e estudo... Conte conosco para tirar dúvidas...

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Guest SuperConectado.com.br

Guest SuperConectado.com.br

Postado
Postado

Na verdade ele escolhou a pior forma.... veja o que ele disse:

Valeu pelas dicas mais já resolvi criando mais tabelas mo mbd

Obrigado

Isso é horrível.... suponho que ele encheu as páginas com UPDATE ( um tabela para cada página ) ... cara se tu fez assim mesmo.. tu vai ferrar com teu site.... ou você acha que todo mundo acessa site de internet banda larga de 1 MB? e o interiorzão que só tem acesso discado, e quando presta.....

muda logo esse teu sistema - se foi isso mesmo que eu entendi q você fez.....

vlw!

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado
Na verdade ele escolhou a pior forma.... veja o que ele disse:

Valeu pelas dicas mais já resolvi criando mais tabelas mo mbd

Obrigado

Isso é horrível.... suponho que ele encheu as páginas com UPDATE ( um tabela para cada página ) ... cara se tu fez assim mesmo.. tu vai ferrar com teu site.... ou você acha que todo mundo acessa site de internet banda larga de 1 MB? e o interiorzão que só tem acesso discado, e quando presta.....

muda logo esse teu sistema - se foi isso mesmo que eu entendi q você fez.....

vlw!

bom não para tanto... a situação não e tão triste assim...

quer ver coisa triste que não carrega nem em net de 2 mb te mando o 1 site q fiz... hasihdiusauid

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...