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ó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?
Pergunta
thicoliveira
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ó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
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.