Cookies
Jeg har lavet sådan at den gemmer en cookies i computeren, så brugeren ik kan trykke 100 gange på hans link....så han kommer på 1 pladsen i toplisten...Problemmet er at han kan blive ved med at få hits ved at trykke på hans link...
Scripten skulle gøre at han kunne trykke 100 gange på hans link..men kun få 1 hits pr. dag... :o)
håber at du er med :o)
<%
session(\"sidstedato\") = Request.Cookies(\"sidstedato\")
session(\"sidsteid\") = Request.Cookies(\"ID\")
url = Request.QueryString(\"id\")
Response.Cookies(\"ID\") = url
Conn_String = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"jw_script_db.mdb\")
set conn = Server.CreateObject(\"ADODB.Connection\")
conn.open Conn_String
Set RS = conn.Execute(\"select * from script where ID =\" & url)
jwredir = RS(\"URL\").value
if session(\"sidstedato\") = \"\" then
session(\"sidstedato\") = dateadd(\"d\",-10,now())
End if
jwdate = datediff(\"h\",session(\"sidstedato\"), now())
if session(\"sidsteid\") = url and jwdate < 6 then
else
hits=cInt(rs(\"Hits\"))+1
Set RS2 = conn.Execute(\"UPDATE script SET Hits = \" & hits & \" Where ID =\" & url)
End If
RS.Close
conn.Close
set conn = nothing
Response.Redirect (jwredir)
%>
