7 svar · 224 visningar · startad av voigtann1
Har aldrig skapat en cookie i hela mitt liv.. men nu känner jag att jag behöver göra det... jag behöver en cookie som fungera så att man kan bara få "besöks räknaren" att upptadera en gång per dag... per dator.
Kan det inte vara intressant att veta hur många gånger en viss dator besöker sidan?
Om man automatiskt rensar alla cookies i webbläsaren vid avstängning, så funkar det ju inte alls..
/T
If Not Request.Cokies("counter").Haskeys Then
Response.Cokies("counter") = True
Resonse.Cokies("counter").expires =DateAdd("d", 1)
'och sen lägger du på ett i din "besöksräknare"
End If
OBS Cookies stavas med 2 o 
mvh icaaq
Obs2 jag har inte provat denna men den borde funka 
dateadd e fel =(
If Not Request.Cokies("counter").Haskeys Then
Response.Cokies("counter") = True
Resonse.Cokies("counter").expires =DateAdd("[b]D[/b]", 1)
'och sen lägger du på ett i din "besöksräknare"
End If
.... 
nu fungera den.. men även om jag trycker på F5 så räkna den på ändå... men om jag typ länka mej själv till den så får jag inget mer... strange tycker jag
<%
path = Server.MapPath("\voigtan")
fil = path & "\COUNTER.TXT"
Set MittTxtObj = Server.CreateObject("Scripting.FileSystemObject")
Set MinFil = MittTxtObj.OpenTextFile(fil)
If Not Request.Cokies("p_counter").Haskeys Then
Response.Cokies("p_counter") = True
Response.Cokies("p_counter").expires = date()+1
path = Server.MapPath("\p")
antal = MinFil.ReadLine
MinFil.Close
antal = antal + 1
Set MinFil = MittTxTObj.CreateTextFile(fil,true)
MinFil.WriteLine antal
MinFil.Close
End If
%>