Poll baseret pr. IP!

Du vil i praksis udelukke masser af mennesker fra at stemme. Tænk på alle de steder hvor de benytter proxies eller firewalls.

Det er en rigtig dårlig idé.

Ja, det er det jeg vil!

Jamen så held og lykke.

Og brugere med ringe-op-modem, kan ikke stemme, hvis ham der havde
IP-en lige før har stemt. Eller også kan de stemme 2 gange, hvis
de bare ringer op igen.

Enkelte steder har man også IP-puljer, hvor hver ny forespørgsel
typisk giver et ny IP-nummer. De kan bare stemme løs. Jeg har set
det i udlandet - endnu ikke herhjemme.

Men der er faktisk nogen der benytter sig af præcis dette, og det er
jo så i orden, hvis man kender begrænsningerne.

hvordan er dit poll-system bygget op?? det er højest sandsynligt bygget op om en DB... Er det så ikke bare at lave en ny tabel med de Ip'er der har stemt og checke med den før at brugeren ser selve poll'en?

jo, er det "sådan set bare"...

Den jeg kører nu bruger cookies, men den er virkelig en pain in the butt..

<%
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("poll.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Set ConRS = Server.CreateObject("ADODB.RecordSet")
while NOT ConRS.EOF
if Servervariables("REMOTE_ADDR") = ConRS("IP") then
vote = false
end if
wend

if vote then
'INDSÆT DIN VOTE-FÆTTER HER
else
Response.write "DU HAR STEMT"

%>

argghhh... glemte lige "end if"

glemt hvad jeg lige skrev... det skulle have været:
<%
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("poll.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Set Record =  Con.Execute(SELECT * FROM tblIP)
while NOT Record.EOF
if Servervariables("REMOTE_ADDR") = Record("IP") then
vote = false
end if
wend

if vote then
'INDSÆT DIN VOTE-FÆTTER HER
else
Response.write "DU HAR STEMT"

%>

og igen glemt jeg "end if"

Bare du kan finde ud af det, hehe.

og efter brugeren har stemt:
<%
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("poll.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Con.Execute(INSERT INTO tblIP (IP) values (" & Servervariables("REMOTE_ADDR") & ")"
%>

damn... jeg må være træt...

Istedet for "Servervariables("REMOTE_ADDR")" skulle der selvfølgelig stå "Request.ServerVariables ("REMOTE_ADDR")"