..:: MX Studio Fóruns ::..: Dica no sistema de votação - ..:: MX Studio Fóruns ::..

Jump to content

Publicidade




ATENÇÃO

Para evitar posts desnecessários e que não influam para o andamento e desenvolvimento do fórum, clique aqui e leia todas as regras.
Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Dica no sistema de votação

#1 User is offline   skate1972 

  • Group: Membros
  • Posts: 73
  • Joined: 18-December 04

Posted 24 May 2010 - 04:32 PM

Olá pessoal
Vi um script de um sistema de votação e achei muito bom mas é feito com base em cookies onde o internauta vota 1 vez por dia, mas fácil de burlar pois a pessoa apaga os cookies e consegue votar de novo

Como sou leigo em ASP vou deixar o codigo aqui para vcs darem uma olhada e se possivel me ajudarem a dar uma travada neste problema

Este codigo abaixo é o arquivo votar.asp que gera o cookie e a conexão com o bd

CÓDIGO
<%
Option Explicit


if request.cookies("voto")<>"" then
    response.redirect "resultado.asp?status=Invalido"
end if

'Criando variáveis
Dim localbd, meubd, votos, opcaoEscolhida, quant

'Gravando a opção escolhida em uma variável
opcaoEscolhida = session("voto")

'Indicando local do Banco de dados
localbd="Driver={Microsoft Access Driver (*.mdb)}; DBQ=bd\bd.mdb"


'Setando conexao
set meubd=server.createobject("adodb.connection")
set votos=server.createobject("adodb.RecordSet")

'Abrindo conexao
meubd.Open localbd
'Selecionando o registro da Opção escolhida
votos.Open "SELECT * from Votos where cod_voto="&opcaoEscolhida&"", meubd

'Guardar quantidade de votos em uma variável antes deste voto
quant = votos.fields("votos")

'Iremos executar agora o SQL que abrirá que atualizará os votos
meubd.EXECUTE "UPDATE votos SET votos = " & quant & "+1 where cod_voto="&opcaoEscolhida&""

'Para evitar que o usuário vote novamente, iremos criar um cookie
response.Cookies("Voto") = date
'Setando valor à session
session("voto")=""

'O voto já foi computado, agora irá para a página que exibirá o resultado
response.redirect "resultado.asp?questao= "& votos.fields("cod_questao") &""

%>



Valeu galera!

This post has been edited by xanburzum: 26 May 2010 - 04:30 PM
Reason for edit: Adicionado BBcode

0

#2 User is offline   xanburzum 

  • Group: Administrador
  • Posts: 2076
  • Joined: 04-November 08

Posted 26 May 2010 - 05:28 PM

ele gera algum número de erro ????
0

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic



Publicidade




1 User(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)