Sub Application_OnStart
Application("Online")=0
End Sub
Sub Session_OnStart
Application("Online") = Application("Online") + 1
End Sub
Sub Session_OnEnd
Application("Online") = Application("Online") - 1
if isObject(online_users) then
on error resume next
online_users.remove (session.sessionid)
end if
End Sub
</SCRIPT>
Tag : - - - -
Date :
21 ก.ย. 2551 16:24:31
By :
tasuku13
View :
1616
Reply :
1
No. 1
Guest
Code (ASP)
<script language="VBScript" runat="Server">
Sub Application_OnStart
Application("OnlineNow") = 0
Application("Msg") = "Welcome to ThaiCreate.Com"
End Sub
Sub Session_OnStart
Application.Lock
Application("OnlineNow") = Application("OnlineNow")+1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("OnlineNow") = Application("OnlineNow")-1
Application.UnLock
End Sub
</script>
Load balance : Server 05
