daily pastebin goal
51%
SHARE
TWEET

Untitled

a guest Jun 13th, 2018 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Application.Lock
  2. Application("MyVariable") = "SomeValue"
  3. Application.Unlock
  4.    
  5. Session("myVariableName") = "my new value"
  6.    
  7. Application("myVariableName") = "my new value"
  8.    
  9. <script language="vbscript" runat="server">
  10.  
  11. Sub Application_OnStart
  12.   Application("visitors") = 0
  13. End Sub
  14.  
  15. Sub Session_OnStart
  16.   Application.Lock
  17.   Application("visitors") = Application("visitors") + 1
  18.   Application.UnLock
  19. End Sub
  20.  
  21. Sub Session_OnEnd
  22.   Application.Lock
  23.   Application("visitors") = Application("visitors") - 1
  24.   Application.UnLock
  25. End Sub
  26.  
  27. </script>
  28.    
  29. <html>
  30.  <head>
  31.  </head>
  32.  <body>
  33.   <p>There are <%response.write(Application("visitors"))%> online now!</p>
  34.  </body>
  35. </html>
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top