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:
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
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
%>
Bitte um Hilfe!
greetz
l|N