01.<%@ Application Language="VB" %>
02.
03.<script runat="server">
04.
05. Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
06.
07. Application("OnlineNow") = 0
08. End Sub
09.
10. Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
11.
12. Application("OnlineNow") = Nothing
13. End Sub
14.
15. Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
16.
17. End Sub
18.
19. Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
20.
21. Application.Lock()
22. Application("OnlineNow") = Application("OnlineNow") + 1
23. Application.UnLock()
24. End Sub
25.
26. Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
27. Application.Lock()
28. Application("OnlineNow") = Application("OnlineNow") - 1
29. Application.UnLock()
30. End Sub
31.
32.</script>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
