Sub Application_OnStart()
Application("unum")=0
End Sub
Sub Session_OnStart()
session.timeout=5
Application("unum")=Application("unum")+1
End Sub
Sub Session_OnEnd()
';::: Application("unum")=Application("unum")-1 IF you Want See Online Users:::;
End Sub
Sub Application_OnEnd()
End Sub
Response.write Application("unum")
همون كلاسيك اش برايه .Net هم جواب میدهamozesh گفت:با سلام
مي شود زحمت بكشيد كد asp.net رو هم بگوييد