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

Enquete + Gravar Cookies !


thicoliveira

Pergunta

Caros amigos,

Tenho uma enquete está funcionando coretamente, ela busca as informações de arquivos .txt, mas queria também que votassem apenas uma vez por dia, através do reconhecimento de Cookies, segue abaixo meu código ASP, para que possa me ajudar, sou iniciante ...

enquete.asp

<%

' Esse arquivo não precisa ser alterado, salvo o SERVER.MAPPTH no caso da enquete aparecer

' em várias pastas (vide arquivo PRINCIPAL.ASP)

id = request.querystring ("id")

cont = request.querystring ("cont")

'Cria o objeto de texto

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

Set Leenq = Textobj.OpenTextFile(Server.MapPath("" & id & ".txt"),1)

linha = split(Leenq.readline , "|")

'Fecha e limpa da memoria

Leenq.close

Set Leenq = nothing

'Calcula a quantidade de opções que a enquete possui

opcoes = int(ubound(linha)/2)

'Cont é o valor passado do código do PRINCIPAL.ASP

'Quando ele é igual a 1 então o sistema grava o voto

'Caso contrário, ele pula a gravação e apenas exibe os resultados parciais

if cont = "1" then

sel = int(request.querystring("op"))

linha(opcoes+sel+1)=(int(linha(opcoes+sel+1)))+1

Set Gravaenq = Textobj.CreateTextFile(Server.MapPath("" & id & ".txt"),8)

for g = 0 to ubound(linha)

Gravaenq.write linha(g)

if g <> ubound(linha) then Gravaenq.write "|"

next

msg = "Obrigado" 'mensagem de agradecimento

' fecha e limpa da memoria os objetos e instancias

Gravaenq.close

Set Gravaenq = nothing

end if

' exibe os resultados

%>

index.asp (onde encontra-se a enquete)

<%

'id é o nome do aquivo txt'

id = "seguranca"

'Cria os objetos e instancias

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

Set Leenq = Textobj.OpenTextFile(Server.MapPath("" & id & ".txt"),1)

' Captura a linha com os dados da enquete

linha = split(Leenq.readline , "|")

' Fecha e limpa da mem&oacute;ria os objetos e instancias criadas

Leenq.close

Set Leenq = Nothing

Set Textobj = Nothing

' mostra a enquete

%>

Está Enquete ao clicar em votar abre em Pop-up, como restringir votos apenas uma vez po dia?

Grato e Abraços,

Thiago Oliveira

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
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.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,9k
×
×
  • Criar Novo...