home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 December / PCWorld_1999-12_cd.bin / Software / Vyzkuste / ASPEdit / _SETUP.1 / counter4.asp < prev    next >
Encoding:
Text File  |  1998-07-02  |  1.2 KB  |  46 lines
  1. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  2. Sub Session_OnStart
  3.   ' Constants for FileSystemObject
  4.   Const ForReading = 1, ForWriting = 2
  5.  
  6.   ' Get the physical path of the counter file. The counter file is in the root of the 
  7.   ' web site.
  8.   sPath = Server.mapPath("/counter.txt")
  9.  
  10.   ' Lock the application
  11.   Application.Lock
  12.  
  13.     ' Create a file system object and open the count file for reading
  14.     Set fs = CreateObject ("Scripting.FileSystemObject")
  15.     Set CountFile = fs.OpenTextFile(sPath, ForReading)
  16.  
  17.     ' Read the first line of the count file, trim any spaces
  18.     sVisits = Trim(CountFile.Readline())
  19.  
  20.     ' Close the counter file
  21.     CountFile.Close
  22.  
  23.     ' Increment the count by 1
  24.     lVisits = CLng(sVisits) + 1
  25.  
  26.     ' Optional: Set this count in an Application variable
  27.     Application("Visits") = lVisits
  28.  
  29.     ' Open the count file for writing
  30.     Set CountFile = fs.OpenTextFile(sPath, ForWriting)
  31.  
  32.     ' Write the new count
  33.     CountFile.Writeline(lVisits)
  34.  
  35.     ' Close the counter file
  36.     CountFile.Close
  37.  
  38.   ' Unlock the application object
  39.   Application.Unlock
  40.  
  41.   ' Release File system object and counter file
  42.   Set Fs = Nothing
  43.   Set CountFile = Nothing
  44. End Sub
  45. </SCRIPT>
  46.