asp counter...

[armando]

hi forum

ich habe einen counter der zählt die besucher. leider zählt er bei jeder neuen aktualisierung des browsers. kann ich das einstellen? oder hat jemand ein anderen counter in asp?
ich habe drei dateien für den counter. eine die den code enthält (counter.asp), die counterzahl (hits.txt) und die seite die das ganze anzeigt...


counter.asp
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
HitsFile = Server.MapPath ("counter/") & "hits.txt"
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
%>

hits.txt
1250

meinesite.asp
visited: <b><!--#include virtual="counter.asp" --><%=NewHits%></b>
<% Response.Write "online: <b>" & Application("ConcurrentUsers") & "</b>"%>

ich hoffe ihr könnt mit dieser sache etwas anfangen.

[Lars]

Ich habe zwar leider keine grosse Ahnung von ASP, aber Dein Problem sollte sich beispielsweise mit einer einfachen IP-Sperre lösen lassen. Du musst lediglich die IP-Adresse des Besuchers mit einem Zeit-Stempel speichern und diese für einen bestimmten Zeitraum blocken, sprich nicht in den Counter einfliessen lassen.

[armando]

hi lars
dein grinsen bringt mich immer wieder zum schmunzeln...

ich dachte auch an so was, aber leider habe ich keinen blassen von dieser idee wie ich sie verwirklichen kann....

[mike]

alternativ auf sessionbasis einen flag setzen und diesen abprüfen

<%
if Session("block")= true then
 Set FileObject = Server.CreateObject ("Scripting.FileSystemObject")
 HitsFile = Server.MapPath ("counter/") & "hits.txt"
 Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
 OldHits = Trim(InStream.ReadLine)
 NewHits = OldHits + 1
 Set OutStream= FileObject.CreateTextFile (HitsFile, True)
 OutStream.WriteLine(NewHits)
 Session("block")=true
end if
%> 

[armando]

@longfang
leider schreibt er munter weiter wenn ich in eine andere site auf meiner website gehe...

[mike]

denkfehler meinerseits:
if session("block")<>true then

(soll ja nur schreiben, wenn er die sessionvariable noch nicht angelegt hat...)

[armando]

@longang
und was ist mit dem unteren 'block' auch <> oder =?

<%
if Session("block") <> true then
Set FileObject = Server.CreateObject ("Scripting.FileSystemObject")
HitsFile = Server.MapPath ("counter/") & "hits.txt"
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
Session("block")=true
end if

[mike]

nein.
ansich geht es bei der sache nur darum, dass du dir eine variable in der session anlegst. welchen wert du dabei verwendest ist egal.
wichtig ist nur, nach genau diesem wert zu prüfen.

der ablauf mal in prosa:

if session("sessionvarialbe")<>"irgendwas" then... wenn die sessionvariable noch nicht 'irgendwas' drinnenstehenhat...
{CODE ZUM EINMALIGEN AUSFÜHREN}
session("sessionvariable")="irgendwas"...dann weise der sessionvariable den wert irgendwas zu.
end if


das macht er genau einmal. denn bei jeden weiteren aufruf deiner seite prüft er ab ob die variable in der session den wert zugewiesen hat. und da dies beim erstenmal geschehen ist, wird alles innerhalb der if-then schleife nicht mehr abgearbeitet.

by the way: guter einstieg in die asp-gschicht ist auf w3schools zu finden.

lf

[armando]

muss ich bevor ich die ganze schleife mache, noch sagen

session("block") = weissichnichtwas

???

[mike]

der schlauch, auf dem du stehst, scheint gross zu sein und zeit hab ich auch nicht unmengen. drum c&p:

<%
if Session("block")<>"SET" then
 Set FileObject = Server.CreateObject ("Scripting.FileSystemObject")
 HitsFile = Server.MapPath ("counter/") & "hits.txt"
 Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
 OldHits = Trim(InStream.ReadLine)
 NewHits = OldHits + 1
 Set OutStream= FileObject.CreateTextFile (HitsFile, True)
 OutStream.WriteLine(NewHits)
 Session("block")="SET"
end if
%> 

das sollte dein problem lösen

[armando]

...leider nein. es will nicht funzten...
bin zu blöde...

[mike]

habs bei mir getestet. läuft.

probier einfach mal dies:

if Session("block")<>"SET" then
response.write "Session setzen"
Session("block")="SET"
else
response.write "SESSION: "&session("block")
end if 

beim ersten mal sollte 'Session setzen' gezeigt werden
jeder reload sollte dann mit 'SESSION: SET' gezeigt werden

wenns das nicht macht, liegt der hund wo anders. (no na)

[armando]

ich möchte dir danken dass du dir soviel zeit für mich aufbringen kannst. danke, danke, danke...

zum problem:
des cript mit "session setzen" hat geklappt...

aber wieso funzt das andere nicht?!

[mike]

was funktioniert denn nicht?

schreibt er noch immer rein?
schreibt er gar nicht rein?

wenn du die feher ein bissl genauer beschreiben könntest...

[armando]

schau dir das mal an...
http://www.li-life.li/test/marco-buechel/

jetzt kommt die datei konnte nicht gefunden werden....