Global.asax: <script language=VB" runat="server"> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs) Application("online_session") = 0 End Sub Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs) Application.Lock() Application("online_session") = CInt(Application("online_session")) + 1 Application.UnLock() End Sub Sub Session_End(ByVal sender As Object, ByVal e As EventArgs) Application.Lock() Application("online_session") = CInt(Application("online_session")) - 1 Application.UnLock() End Sub
写在Global.asax中就可以了啊
<script language=VB" runat="server">
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
Application("online_session") = 0
End Sub
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
Application.Lock()
Application("online_session") = CInt(Application("online_session")) + 1
Application.UnLock()
End Sub
Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
Application.Lock()
Application("online_session") = CInt(Application("online_session")) - 1
Application.UnLock()
End Sub