cookie fråga

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.

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

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

------------------
Jensen Ambassadör, mitt bästa köp! www.jensen.no

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 ;)

------------------
-::| a tribute to LarsG |::-

dateadd e fel =(

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

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

.... :r

------------------
-::| a tribute to LarsG |::-

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

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

Du får nog visa lite mer kod :)

nvh icaaq

------------------
-::| a tribute to LarsG |::-

<%
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

%>

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck