29. juni 2003 - 16:14Der er
7 kommentarer og 1 løsning
Counter problem
Hvorfor virker det her bare ikke ???
<% Dim txtfile, writezero, readit, appendit, counthits set txtfile = Server.CreateObject("Scripting.FileSystemObject")
If NOT txtfile.FileExists(server.mappath("counter.txt")) Then set writezero = txtfile.CreateTextFile(server.mappath("counter.txt")) writezero.write("0") set writezero = nothing end if
set readit = txtfile.OpenTextFile(server.mappath("counter.txt"),1,false) counthits = Clng(readit.ReadLine) set readit = nothing
Response.write "Der har været "
If not Request.Cookies("counter") = "true" then set appendit = txtfile.OpenTextFile(server.mappath("counter.txt"),2,true) appendit.WriteLine(Cstr(counthits+1)) set appendit = nothing
Response.Cookies("counter") = "true" Response.Cookies("counter").Expires= DateAdd("yyyy",1,date()) Response.write (counthits+1) else Response.write counthits End if
Response.write " forskellige besøgende."
set txtfile = nothing %>
Selve textfilen bliver IKKE oprettet. Jeg kan sq ikke forstå hvorfor den ikke gør det. Har forsøgt alt.
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
har prøvet at lave stien om til mappen hvor filen counter.txt skulle ligge, men det virker stadig væk ikke.
koden ser sådan her ud nu..
<% Dim txtfile, writezero, readit, appendit, counthits set txtfile = Server.CreateObject("Scripting.FileSystemObject")
If NOT txtfile.FileExists(server.mappath("../count/counter.txt")) Then set writezero = txtfile.CreateTextFile(server.mappath("/") & "counter.txt") writezero.write("0") set writezero = nothing end if
set readit = txtfile.OpenTextFile(server.mappath("../count/counter.txt"),1,false) counthits = Clng(readit.ReadLine) set readit = nothing
Response.write "Der har været "
If not Request.Cookies("counter") = "true" then set appendit = txtfile.OpenTextFile(server.mappath("../count/counter.txt"),2,true) appendit.WriteLine(Cstr(counthits+1)) set appendit = nothing
Response.Cookies("counter") = "true" Response.Cookies("counter").Expires= DateAdd("yyyy",1,date()) Response.write (counthits+1) else Response.write counthits End if
Jeg ville lægge stien til roden ind i en variabel og bruge den som vist ovenfor. Der er også mindre belastende for serveren end at benytte MapPath-metoden hele tiden.
Brug derfor kun denne metode én gang til at give din variabel indhold:
Sti = Server.MapPath(".")
Nu indeholder "sti" stien til din rod, og du kan frit flytte hele dit mappehirarki til hvilken som helst server.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.