5 svar · 197 visningar · startad av voigtann1
Jag skulle göra en Enkel räknare till en sida... typ jag har sett 2 st olika men jag gillar inga av dom den första är den på wF scripts... visst den e nog skit bra men jag fattar inte vad *.asa e för fil.. kan det typ vara ASP? hur skriver man den då..
Den andra är en från en bok.
Men den gillar jag inte heller för då ska login namnet vara med i koden och en annan skit i det.
Jag skulle därför vilja ha en Enkel Men en fungerande räknare till en sida..
Tack!
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
hur menar du då? ska du bara visa hur många gånger någon har så att säga "knappat" in adressen till din sida... eller ska du skapa coookies så att om jag te x besöker sidan så plussas antal besökare med 1, men uppdaterar jag så plussar den 1 igen osv... inte så bra?
------------------
"Kille är inget man föds till, det är något man blir"
<%
' [b]Kommer från [url="http://www.PowerASP.com"]www.PowerASP.com[/url] [/b]
' Declare variables
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
CounterFile = Server.MapPath ("counter.txt")
Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
ReadCounterFile.Close
Set ReadCounterFile = Nothing
CounterHits = CounterHits + 1
Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing
%>
Du är besökare: <% =CounterHits %><br>
------------------
Peter D
[Redigerat av Pace den 08 jul 2001]
Fast denna räknare visar ju inte antal besökare ... den visar antal sidvisningar.
Testa ngt liknande, kod från ovan + lite tillägg:
<%
' Kommer från [url="http://www.PowerASP.com"]www.PowerASP.com[/url]
' Declare variables
If Request.Cookies("MinRaknare")("Active") <> "1" Then
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
CounterFile = Server.MapPath ("counter.txt")
Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
ReadCounterFile.Close
Set ReadCounterFile = Nothing
CounterHits = CounterHits + 1
Application.Lock
Application("CounterHits") = CounterHits
Application.UnLock
Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing
Response.Cookies("MinRaknare")("Active") = 1
Response.Cookies.Expires = DateAdd("d",1,Now())
End If
%>
Du är besökare: <% =Application("CounterHits") %><br>
cya,
PatrikB
------------------
*Det tar sig sa han som hade eld i håret*
[Redigerat av PatrikB den 08 jul 2001]
Du har rätt PatrikB!
Tänkte på att använda den tillsammans med en frame (vilket jag gjorde tidigare).
------------------
Peter D
Tack så mycket... använder den översta... du ska ha mycket tack!
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck