<%
link = Request.QueryString(\"id\")
dim strDSN, Conn
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open strDSN
Dim ClientIP, CanVote
\'Først skal vi have fat i klientens ip adresse
ClientIP = Request.ServerVariables(\"REMOTE_ADDR\")
\'Så skal vi se om vi kan få fat i ip adressen med et tidspunkt inden for de seneste 12 timer
Set RS = conn.Execute(\"SELECT LogTime FROM ClientIPAdresses WHERE ClientIP=\'\" & ClientIP & \"\' AND LogTime>DATEADD(Hour, -12, GETDATE())\")
If RS.EOF Then
\'Hvis vi ikke fandt en ip er der to muligheder
RS.Close()
Set RS = conn.Execute(\"SELECT LogTime FROM ClientIPAdresses WHERE ClientIP=\'\" & ClientIP & \"\'\")
If RS.EOF Then
\'IP adressen er aldrig blevet logget så den skal logges
conn.Execute(\"INSERT INTO ClientIPAdresses (ClientIP, LogTime) VALUES (\'\" & ClientIP & \"\', GETDATE())\")
Else
\'IP adressen er blevet logget, men for over 12 timer siden så den skal opdateres
conn.Execute(\"UPDATE ClientIPAdresses SET LogTime=GETDATE() WHERE ClientIP=\'\" & ClientIP & \"\'\")
End If
\'Og så må der jo stemmes
CanVote = True
Else
\'Hvis vi fandt den så må der ikke stemmes
CanVote = False
End If
Set RS = conn.Execute(\"select * from downloads where ID =\" & link)
\'Så skal vi lige have CanVote med som betingelse for at afgive stemme
if cdate(request.cookies(\"views\")(cstr(link))) < DateAdd(\"d\",-6,now()) AND CanVote then
views=cInt(rs(\"views\"))+1
Set RS2 = conn.Execute(\"UPDATE downloads SET views = \" & views & \" Where ID =\" & link)
response.cookies(\"views\").expires=DateAdd(\"m\",1,now())
response.cookies(\"views\").domain = \"
www.test.dk\" response.cookies(\"views\")(cstr(link))= now()
End If
jwredir = RS(\"link\")
RS.Close
set rs= nothing
conn.Close
set conn = nothing
Response.Redirect (jwredir)
%>
Så skal du naturligvis have lavet en tabel til disse informationer, men den er simpel nok, to felter
CREATE TABLE ClientIPAdresses (ClientIP Char(15), LogTime DateTime)
Håber at det virker, det er jo lidt svært for mig at teste, men ellers så skriver du bare :-)
