/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Hits på en hjemmeside
Fra : Poul Kelså


Dato : 05-07-07 18:54

Nogle gange har jeg en fornemmelse af at min tæller opdateres
hvis jeg, uden mellemliggende aktivitet, opdaterer hjemmesiden.
Skal jeg tro på at en anden har været inde på hjemmesiden, eller
er der en 'timeout uden aktivitet'?

Med venlig hilsen Poul

Koden er som følger:

ipadr = request.servervariables("REMOTE_ADDR")
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile=server.mappath("hits.txt")
on error resume next
Set count = fs.OpenTextFile(Wfile)
hits = Clng(count.ReadLine)
count.close
if (ipadr <> "83.73.7.133") then
    If Not session("isCounted") Then
      hits = hits + 1
      count.close
      if error then
      hits = 1
    end if
end if
Set count = fs.CreateTextFile(Wfile,True)
count.WriteLine(hits)
count.Close
session("isCounted") = True
End If


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
Søg
Reklame
Statistik
Spørgsmål : 177547
Tips : 31968
Nyheder : 719565
Indlæg : 6408797
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste