| CODE |
| <% url = request.querystring("url") if url = "" then url = "http://www.meusite.com.br" 'Coloque aqui a url do seu site... end if 'Conectando com o banco de dados... set conn = createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("contador_clicks.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 'Neste caso a url já está cadastrada, apenas somamos +1 nela conn.execute("UPDATE clicks SET hits = hits +1 WHERE url = '" & url & "'") response.redirect url end if 'Fecha as conexões rs.close conn.close set rs = nothing set conn = nothing %> |
| CODE |
| <html> <head> <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>Página</b></td> <td width="5%" align="center"><b>Clicks</b></td> </tr> <% set conn = createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("contador_clicks.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> |