hits ....

For 6 point???

Følgende laver en tæller med udgangspunkt i en tekstfil "counter.txt", det kan nemt ændres til hits pr. dag!!!


<%
Sub ShowCounter(bType)
 
  Set objFS = Server.CreateObject("Scripting.FileSystemObject")
  strDir = Request.ServerVariables("SCRIPT_NAME")
  strCountFile = Server.MapPath(Left(strDir, InStrRev(strDir,"/"))) & "\counter.txt"
  ' On Error Resume Next
  Set objFile = objFS.OpenTextFile(strCountFile, 1, False)
  tmpHits = Trim(objFile.ReadLine)

  if Session("check") <> "OK" then
  tmpHits = tmpHits + 1
  end if

  objFile.Close
  Set objFile = objFS.CreateTextFile(strCountFile, True)
  objFile.WriteLine(tmpHits)
  Set objFS = Nothing
 
  Session("check") = "OK"

  Response.Write tmpHits
 
End Sub


ShowCounter(2)
%>

Har du lavet brugerforummet??

sune.jakobsen>> jeg forstår ikke lige.. Hvad skal jeg skrive i counter.txt og hvad er det du lige skrev??

oasen>> Ja jeg har lavet brugerforummet hvis du mener en side med alle brugere.. SÅ JA

Du oprette en tekstfil med nvanet counter.txt og indholdet "0" . Den gemmer du i samme mappe som koden jeg skrev, og så skulle det gerne spille!!!

Du skal skrive et "0" (nul) i counter.txt
Hvordan kan du lave brugerforummet, hvis ikke du kan lave resten?
Er det et færdiglavet?

Hvorfor skal de ligge i samme dir, hvis du bruger Server.MapPath?

Server.mappath finder stien på til der hvor koden afvikles fra!!! funktionen er ikke at gætte sig til hvor txt filen ligger????

se min side: http://user.domaindlx.com/aasoftware

Jeg er ikke meget for tanken om at du offentliggør IP'en på dem der er på din side... Ikke fordi det gør så meget på lige din side, men mere princippet i det!!!! Så er der en del døde links, men det bliver vel rette!!!

Der er en del døde links da jeg ikke er færdig med siden endnu,.. men det bliver den snart :o)

sune.jakobsen>> der er fejl i linie 4..

Nej der er ikke, for det er pastet ud af noget som jeg selv bruger!!! Hvis der er noget galt så er det hos dig. Hvad er problemet??

bruger bare nope.dk 's