Seiten Counter mit Textfile

LordNikkon

Mitglied
Hallo,

versuche in einer Textdatei jeden Seitenzugriff zu zählen. In der Textdatei steht immer nur in der ersten Zeile die Anzahl der bisherigen Aufrufe.
Hier mein Code:
PHP:
<%
Const fsForReading = 1
Dim strDateiname
Dim strDateiname1
Dim objFs           ' FileSystemObject Objekt
Dim objTextStream   ' Textstream Objekt
Dim count AS Integer 
strDateiname1 = "count_page.txt"
strDateiname = Server.MapPath(strDateiname1)
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFs.OpenTextFile(strDateiname, fsForReading)
strInhalt = objTextStream.ReadLine
count = CInt (strInhalt)
strInhalt = CStr(count+1)
objTextStream.Close
Set objTextStream = Nothing
Set objFs = Nothing
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
    Set objTextStream = objFileSys.CreateTextFile(strDateiname)
        objTextStream.WriteLine strInhalt
        objTextStream.Close
    Set objTextStream = Nothing
Set objFileSys = Nothing
%>
Nur zählt er leider nicht nach oben, warum weiß ich nicht, da ich keine Fehlermeldung erhalte! Die Rechte des Textfiles sind auf 777 gesetzt, es liegt im selben Ordner!
Bitte um Hilfe!

greetz
l|N
 

Luzie

Erfahrenes Mitglied
Hi

ich weiss nu nicht, wie Du 777 auf einem Windows-Server einstellst, dort laufen die Berechtigungen etwas anders. ;)

Schau hier

Übrigens: bei mir läuft das ohne Probleme.
Gib einfach mal ein 1 als Start-counter in Deine Text-Datei ein.
 

Neue Beiträge