01.
<%
02.
<script language=
"VBScript"
runat=
"Server"
>
03.
Sub
Application_OnStart
04.
Application(
"OnlineNow"
) = 0
05.
Application(
"Msg"
) =
"Welcome to ThaiCreate.Com"
06.
End
Sub
07.
08.
Sub
Session_OnStart
09.
Application.Lock
10.
Application(
"OnlineNow"
) = Application(
"OnlineNow"
)+1
11.
Application.UnLock
12.
End
Sub
13.
14.
Sub
Session_OnEnd
15.
Application.Lock
16.
Application(
"OnlineNow"
) = Application(
"OnlineNow"
)-1
17.
Application.UnLock
18.
End
Sub
19.
</script>
20.
%>