simpel asp counter til txt

hvad skal den tælle???

besøgende på siden :o)

<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")

Set f = fs.OpenTextFile(Server.MapPath("counter.txt"), 1)
Counter = f.ReadLine
Counter = Counter + 1
f.Close
Set f = Nothing

set f = fs.CreateTextFile("counter.txt", true)
f.WriteLine(Counter)
f.Close
Set f = Nothing

Set fs = Nothing
%>

Antal besøgende: <% =Counter %>

skal man så bare lave en txt fil og skrive 1 helt fra start og gemme den også skulle det virke?

Ja, en tekstfil (counter.txt) med indholdet 0 på en linje.

Dit script skal have skriverettigheder til det sted hvor filen ligger.

Den filer ikke tallet fra txt filen, hvad kan det skyldes?

Prøv at beskrive hvad der sker. Hvad er der f.eks. i tekstfilen efter at du har kørt scriptet? Kommer det nogen fejlmeddelelse? Hvad siger den? osx. osv.

Der sker faktisk ikke noget alt ser godt ud.. på siden står der "Antal besøgende:" og det er det.. Det ser ud til at alt virker, men at den bare ikke lige hiver tallet fra txt filen ud.

Hvad står der i counter.txt filen bagefter?

Der står 0 i filen (ikke mere overhoved hverken tømme linier eller noget... Filen hedder counter.txt.

Mystisk at der står 0. Det der skrives til filen er jo indholdet af Counter-variablen og som du siger så resultere denne ikke i at der bliver skrevet noget ud på skærmen. Den værdi som står på skærmen burde være den samme som den der er i filen.

Noget tyder altså på at counter.txt slet ikke bliver overskrevet. En lille hurtig test for at afgøre dette er at skrive noget andet i filen - prøv med 13 - og så køre scriptet igen. Hvis der stadig står 13 bagefter så er filen ikke blevet rørt.

så bliver den ikke rørt

Så går vi igang med fejlfindingen for alvor.

Prøv først at udskrive værdien af Server.MapPath("counter.txt")

Stemmer den overens med den faktiske placering af filen?

Skal jeg lave en fil der indeholder.

<%
Server.MapPath("counter.txt")
%>

?

Nej, du starter bare din nuværende kode med en:

Response.Write(Server.MapPath("counter.txt"))

Dette skulæle gerene fortælle hvor scriptet på haddisken forventer at finde counter.txt filen. Denne position skal også helst passe med det sted hvor du rent faktisk har placeret filen.

Er det rigtigt?

<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")

Response.Write(Server.MapPath("counter.txt"))
Counter = f.ReadLine
Counter = Counter + 1
f.Close
Set f = Nothing

set f = fs.CreateTextFile("counter.txt", true)
f.WriteLine(Counter)
f.Close
Set f = Nothing

Set fs = Nothing
%>

Korrekt.

Microsoft VBScript runtime error '800a0046'

Permission denied

/default.asp, line 10

Hvad betyder denne fejl?

Det ville nu hjælpe mig meget hvis du fortalte mig hvislken linje der var nr. 10.

Mit gæt er dog at dit script ikke har skrive rettigheder til at skrive til en fil (det er ikke nok at du har det - skriptet skal også have det). Hvis det er rigtigt så kan du ikke få lov til at gemme i tekst-filen.

set f = fs.CreateTextFile("counter.txt", true)

Det betyder at scriptet ikke har skriverettigheder i det bibliotek. Det bliver du nødt til at tildele det før at du kan komme videre.