Simples Hit Count - Continuação...

[FoX Borland 0]

Bom... os cara zuaram no meu outro topic, tipow, eu consigo fazer akele script rodar, valeu ae cowboy, agora eu preciso do seguintea página que contém o código para adicionar o hit, tem que ter um código de redirect para a url, que está no mesmo db desse banco de dados onde tem o campo hits!valeu!! sem zuá agora!!

[Marhault 1]

Pow... no código você usou o update para adicionar o hit assim né:

sql = "UPDATE Tabela SET hits = '" & hits & "' WHERE codigo = " & codigo

Daí agora você usa o select pra pegar a url e redirecionar pra ela... tipo:

sql = "SELECT * FROM Tabela WHERE codigo = " & codigoSet rs = conexao.Execute sqlResponse.Redirect rs("url")

Entendeu???

[FoX Borland 0]

Tipow faiz uma adaptação para este código assim

 

<%Dim IDDim ConexaoDim MostragemID = Request.Querystring("ID")Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db\geral.mdb")Set Mostragem = Conexao.EXECUTE("SELECT * FROM links WHERE id_arquivo='"& ID &"'")If Mostragem.EOF Then Conexao.EXECUTE("INSERT INTO links(id_arquivo,hit) VALUES('"& ID &"','1')")Else Conexao.EXECUTE("UPDATE links SET hit='"& FormatNumber(Mostragem("hit")+1,0) &"' WHERE id_arquivo='"& ID &"'")End IfMostragem.CloseSet mostragem = Nothing%>

[cowboy 0]

EDITADO

ta ai o q você pediu:

 

<%

Dim ID

Dim Conexao

Dim Mostragem

 

ID = Request.Querystring("ID")

 

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

Conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db\geral.mdb")

 

Set Mostragem = Conexao.EXECUTE("SELECT * FROM links WHERE id_arquivo='"& ID &"'")

If Mostragem.EOF Then

Conexao.EXECUTE("INSERT INTO links(id_arquivo,hit) VALUES('"& ID &"','1')")

 

 

'Se não achou e vai adicionar um HIT zerado, ele precisa requisitar também o link - dai você usa o Request (tanto faz se é o Querystring ou o Form) para ele adicionar na tabela e redirecionar o usuário

'Aqui é o REDIRECIONAMENTO - tem dois tipos, pelo server ou por Script'Pelo server - Requisitando a URL    Response.Redirect Request("URL")'Pelo script - Requisitando a URL    response.write "<script>location.href='"& Request("URL") &"'</script>"'Escolhe um dos dois e apaga o outro, ou apenas poe apóstrofe antes da linha - Os dois são bons.

Else

Conexao.EXECUTE("UPDATE links SET hit='"& FormatNumber(Mostragem("hit")+1,0) &"' WHERE id_arquivo='"& ID &"'")

 

 

'Neste caso ele achou e vai acrescentar +1 nos HITS deste link e redirecionar o usuário de acordo com o link que está no banco de dados.

'Aqui é o REDIRECIONAMENTO - tem dois tipos, pelo server ou por Script'Pelo server    Response.Redirect Mostragem("URL")'Pelo Script    response.write "<script>location.href='"& Mostragem("URL") &"'</script>"'Escolhe um dos dois e apaga o outro, ou apenas poe apóstrofe antes da linha - Os dois são bons.

End If

Mostragem.Close

Set mostragem = Nothing

 

%>

 

mais alguma dúvida estamos por ai

Agreções a membros do fórum não serão toleradas, por favor não repita!!!

[Salgado 4]

Atenção, Cowboy, por favor seja civilizado e respeite seu colegas de fórum, aqui é um lugar de aprendizado, TODOS os que estão aqui estão para aprender, uns sabem mais e outros menos.

 

Aos que sabem mais, Parabéns e nos ajudem CIVILIZADAMENTE a manter o fórum limpo e livre de ofensas!

 

Aos que sabem menos, continuem postando e aprendendo conosco!

 

Respeito a todos, sem exceção, e gostaria que todos se respeitassem da mesma forma.