home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Novinky / web / 1 / janik / Global.asa < prev    next >
Encoding:
Text File  |  1999-12-06  |  937 b   |  39 lines
  1. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  2.   SUB Application_OnStart
  3.   END SUB
  4. </SCRIPT>
  5.  
  6. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  7.   SUB Application_OnEnd
  8.   END SUB
  9. </SCRIPT>
  10.  
  11.  
  12. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  13.   SUB Session_OnStart
  14.   
  15.    VisitorCountFilename = "d:\inetpub\webroots\counters\Pernecky.txt"
  16.    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
  17.    on error resume next
  18.    Set Out = FileObject.OpenTextFile (VisitorCountFilename,1 , FALSE, FALSE)
  19.    err.clear
  20.    session("PocPern") = Out.ReadLine
  21.    Application.lock
  22.    session("PocPern")= session("PocPern") * 1
  23.    session("PocPern")= session("PocPern") + 1
  24.    Out.close
  25.    Set Out= FileObject.CreateTextFile (VisitorCountFilename, TRUE)
  26.    Out.WriteLine( session("PocPern") )
  27.    out.close
  28.    Application.unlock
  29.  
  30.   END SUB
  31. </SCRIPT>
  32.  
  33.  
  34.  
  35. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  36.   SUB Session_OnEnd
  37.   END SUB
  38. </SCRIPT>
  39.