% On Error Resume Next FileLocation =Server.MapPath("\") & "\counter.txt" Set fs = CreateObject("Scripting.FileSystemObject") Set TextFile = fs.OpenTextFile(FileLocation) TotalHits = CInt(TextFile.ReadLine) TextFile.Close If Session("TotalHits") = "" Then Session("TotalHits") = TotalHits TotalHits = (TotalHits + 1) Set TextFile = fs.CreateTextFile(FileLocation, True) TextFile.WriteLine(TotalHits) TextFile.Close End If %>
Profile |
Hardware
Publications
|
Home|Profile|Services|Products|Applications|Technology|News|Contact
Us |