Avatar billede moore Nybegynder
29. juni 2003 - 16:14 Der 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.
Avatar billede netro Nybegynder
29. juni 2003 - 16:27 #1
set writezero = txtfile.CreateTextFile(server.mappath("/") & "counter.txt")
Avatar billede netro Nybegynder
29. juni 2003 - 16:39 #2
If txtfile.FileExists(Server.MapPath("undermappe/counter.txt")) Then

Hvis undermappen ligger i roden på din server, så skal du have / foran "/undermappe".
Avatar billede moore Nybegynder
29. juni 2003 - 16:44 #3
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

Response.write " forskellige besøgende."

set txtfile = nothing
%>

Stien til mappen skulle gerne være rigtig
Avatar billede netro Nybegynder
29. juni 2003 - 17:13 #4
Hvor skal filen ligge i forhold til roden? Ligger biblioteket count i roden?
Avatar billede moore Nybegynder
29. juni 2003 - 22:33 #5
jeg har biblioteket til at ligge sådan her :

C:\Inetpub\Egenhjemmeside\count

i Count ligger alle filer der har med counteren at gøre.
Avatar billede netro Nybegynder
29. juni 2003 - 22:48 #6
Hvorfor ikke bare skrive stien absolut?

Eller lægge stien til roden i en variabel:

Sti = "C:/Inetpub/Egenhjemmeside/"

If NOT txtfile.FileExists(Sti & "count/counter.txt") Then
Avatar billede moore Nybegynder
30. juni 2003 - 18:52 #7
jamen..
hvis jeg laver stien absolut.. hvad så når jeg smider det på nettet.??
Så passer stien da ikke. ???..

Derfor har jeg valgt at gøre stien som jeg har gjort før.. men kan det gøres bedre, vil det da bare være en god ting.
Avatar billede netro Nybegynder
30. juni 2003 - 20:00 #8
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.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester