7 svar · 195 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.
------------------
//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
<%
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