Räknare

3 svar · 223 visningar · startad av Bj 12 juli 2001

BjMedlem sedan sep. 2000314 inlägg

Trådstart12 juli 2001 18:48#1

Nogon som vet hur man kan få nedanstående räknare att inte räkna några träffar om man trycker på reload?

<%set FileObject = createobject("scripting.filesystemobject")
totfile = server.mappath("counter.txt")

If FileObject.FileExists(totfile) Then
set ActiveFile = FileObject.opentextfile(totfile)
counter = clng(ActiveFile.readline)
counter = counter + 1
ActiveFile.close
Set ActiveFile = FileObject.CreateTextFile(totfile, true)
ActiveFile.WriteLine(counter)
ActiveFile.Close         

Else

Set ActiveFile = FileObject.CreateTextFile(totfile)
ActiveFile.WriteLine("1")
counter=1
ActiveFile.Close

End If

Response.Write "" & counter & " besökare sedan starten 1996.<br>"
td = FORMATDATETIME(DATE, vbShortDate)
td = Replace(td, "/", "")
td = td & ".txt"
fpath = Server.Mappath(td)

If FileObject.FileExists(fpath) Then
set ActiveFile = FileObject.opentextfile(fpath)
counter = clng(ActiveFile.readline)
counter = counter + 1
ActiveFile.close
Set ActiveFile = FileObject.CreateTextFile(fpath, true)
ActiveFile.WriteLine(counter)
ActiveFile.Close
                     
Else

Set ActiveFile = FileObject.CreateTextFile(fpath)
ActiveFile.WriteLine("1")
counter=1
ActiveFile.Close
               
End If

Response.Write "varav " & counter & " st besök idag.<br>"
%>

PaceMedlem sedan juni 20019 024 inlägg

12 juli 2001 18:56#2

If Session("har_redan_raknat") = "" Then
'lägg till 1 på räknaren
Session("har_redan_raknat") = "yepp"
End If

Detta är ett enkelt sätt, men det borde finnas fler.

EclipseMedlem sedan juli 20003 825 inlägg

13 juli 2001 12:19#3

' ## GLOBAL.ASA

SUB Session_OnStart
	SQL = "UPDATE [mySite] SET [x_counter] = [x_counter]+1 WHERE [x_ID] = 1;"
	Conn.Execute(SQL)
END SUB

PatrikBMedlem sedan mars 20002 836 inlägg

13 juli 2001 18:25#4

Lägger din kod för räknaren i global.asa's Sub Session_OnEnd
Jag skulle även lägga in en cookie så att besökaren endast räknades en ggn per dag. Vissa besökare återkommer ju flera ggr per dag, annars blir det en "glädje" räknare

cya,
PatrikB