Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
rafael ramos

Contador de Cliques em ASP

Recommended Posts

Contador de cliques em asp

Bom galerinha, como estou cursando ASP agora e já sei um pouquinho, vou postar pra vocês o contador de cliques que eu fiz no curso na prova intermediária. Blz??

Vamos lá!

Primeiramente vamos criar o banco de dados (conta_cliques.mdb), no banco de dados crie uma tabela com o nome de “clicks”, com os campos “url – tipo = texto” e “hits – tipo = numérico”.

Agora vamos criar o arquivo “click.asp”:

<%
url = request.querystring("url")
if url = "" then
url = "http://www.seusite.com.br" 'Coloque aqui a url do seu site...
end if

'Conecta ao banco...
set conn = createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("conta_cliques.mdb")

set rs = conn.execute("select * from clicks where url = '" & url & "'")

if rs.eof then 'Se não existe a url cadastrada no banco de dados, salva ela e adiciona 1 no hits

v = 1

conn.execute("INSERT INTO clicks (url, hits) VALUES ('" & url & "'," & v & ")")
response.redirect url

else

'Atualiza os clicks já existents emu ma determinada url

conn.execute("UPDATE clicks SET hits = hits +1 WHERE url = '" & url & "'")
response.redirect url

end if

rs.close
conn.close
set rs = nothing
set conn = nothing
%>
Agora para utilizar este arquivo, simples faça assim: HTTP://www.seusite.com.br/click.asp?url=ht...oce-quer.com.br Depois de url, você adiciona o link que você quer contar! Simples não! Agora para saber quantos cliques cada link recebe, vamos criar o arquivo stats.asp:
<title>Estatística - Contador de links</title>
</head>

<body>

<h1>Estatísticas</h1>

<table border="1" width="60%">
<tr>
<td width="95%" align="center"><b>URL</b></td>
<td width="5%" align="center"><b>Cliques</b></td>
</tr>
<%
set conn = createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("conta_cliques.mdb")
set rs = conn.execute("SELECT * FROM clicks ORDER By hits DESC")
do while not rs.eof
%>
<tr>
<td width="95%"><a href="<%=rs("url")%>" target="_blank"><%=rs("url")%></a></td>
<td width="5%" align="right"><%=rs("hits")%></td>
</tr>
<%
rs.movenext
loop
rs.close
conn.close
set rs = nothing
set conn = nothing
%>
</table>

</body>
</html>

Simples e functional.

Espero que alguém comente neh! Uahuas!

Abraço!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...