Global.asax file

<%@ Application Language="C#" %>

<script runat="server">

    void Application_Start(object sender, EventArgs e)
    {
        // Code that runs on application startup
        // Code that runs on application startup

        Application["OnlineUsers"] = 0;

    }
   
    void Application_End(object sender, EventArgs e)
    {
        //  Code that runs on application shutdown

    }
       
    void Application_Error(object sender, EventArgs e)
    {
        // Code that runs when an unhandled error occurs
        Context.ClearError();

    }

    void Session_Start(object sender, EventArgs e)
    {
          
   
        //Session["web_root"] = "http://www.naacphistory.org/";
        //Session["web_https_root"] = "http://www.naacphistory.org/";



        //Session["web_root"] = "http://chsridhar/NewNAACP/";
        //Session["web_https_root"] = "http://chsridhar/NewNAACP/";

        Session["web_root"] = "http://113.193.180.122/NewNAACP/";
        Session["web_https_root"] = "http://113.193.180.122/NewNAACP/";

       
        //Session["web_root"] = "http://naacp.rfibox.net/";
       // Session["web_https_root"] = "http://naacp.rfibox.net/";
        // http://localhost:1590/NAACP_CMS
       // Session["web_root"] = "http://10.0.0.152/naacp/";
      //Session["web_https_root"] = "http://10.0.0.152/naacp/";

        // Code that runs when a new session is started

        Application.Lock();

        Application["OnlineUsers"] = (int)Application["OnlineUsers"] + 1;

        Application.UnLock();
    }

    void Session_End(object sender, EventArgs e)
    {
        Application.Lock();

        Application["OnlineUsers"] = (int)Application["OnlineUsers"] - 1;

        Application.UnLock();
       
    }
      
</script>


----------------------------------------------


Imports System.Security
Imports System.Security.Principal
Imports System.Web.Security
Imports System.Threading
Imports System.Globalization
Imports System.Web.Caching
Imports System.Web.Mail
Imports System.Configuration

Namespace FileOn

    Public Class [Global]
        Inherits System.Web.HttpApplication

        Dim mnSessionMinutes As Integer = 15
        Dim msSessionCacheName As String = "SessionTimeOut"

        '*********************************************************************
        '
        ' Application_BeginRequest Event
        '
        ' The Application_BeginRequest method is an ASP.NET event that executes
        ' on each web request into the portal application.  The below method
        ' obtains the current tabIndex and TabId from the querystring of the
        ' request -- and then obtains the configuration necessary to process
        ' and render the request.
        '
        ' This portal configuration is stored within the application's "Context"
        ' object -- which is available to all pages, controls and components
        ' during the processing of a single request.
        '
        '*********************************************************************

        Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
          
            Dim tabIndex As Integer = 0
            Dim tabId As Integer = 1

            ' Get TabIndex from querystring
            If Not (Request.Params("tabindex") Is Nothing) Then
                tabIndex = CInt(Request.Params("tabindex"))
            End If

            ' Get TabID from querystring
            If Not (Request.Params("tabid") Is Nothing) Then
                tabId = CInt(Request.Params("tabid"))
            End If

            Context.Items.Add("PortalSettings", New PortalSettings(tabIndex, tabId))
         End Sub

        '*********************************************************************
        '
        ' Application_AuthenticateRequest Event
        '
        ' If the client is authenticated with the application, then determine
        ' which security roles he/she belongs to and replace the "User" intrinsic
        ' with a custom IPrincipal security object that permits "User.IsInRole"
        ' role checks within the application
        '
        ' Roles are cached in the browser in an in-memory encrypted cookie.  If the
        ' cookie doesn't exist yet for this session, create it.
        '
        '*********************************************************************

        Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
          ' Attempt to Validate User Credentials using UsersDBSql
            Dim sUserDBMode As String = ConfigurationSettings.AppSettings("Authentication")

            If Request.IsAuthenticated = True Then
                Dim roles() As String

                ' Create the roles cookie if it doesn't exist yet for this session.
                If Request.Cookies("portalroles") Is Nothing Then

                    ' Get roles from UserRoles table, and add to cookie
                    Dim _user As New UsersDBSql
                    roles = _user.GetUserRoles(User.Identity.Name)

                    ' Create a string to persist the roles
                    Dim roleStr As String = ""
                    Dim role As String

                    For Each role In roles
                        roleStr += role
                        roleStr += ";"
                    Next role

                    ' Create a cookie authentication ticket.
                    '   version
                    '   user name
                    '   issue time
                    '   expires every hour
                    '   don't persist cookie
                    '   roles
                    Dim ticket As New FormsAuthenticationTicket(1, _
                        Context.User.Identity.Name, _
                        DateTime.Now, _
                        DateTime.Now.AddHours(1), _
                        False, _
                        roleStr)

                    ' Encrypt the ticket
                    Dim cookieStr As String = FormsAuthentication.Encrypt(ticket)

                    ' Send the cookie to the client
                    Response.Cookies("portalroles").Value = cookieStr
                    Response.Cookies("portalroles").Path = "/"
                    Response.Cookies("portalroles").Expires = DateTime.Now.AddMinutes(1)
                Else
                    ' Get roles from roles cookie
                    Dim ticket As FormsAuthenticationTicket = FormsAuthentication.Decrypt(Context.Request.Cookies("portalroles").Value)

                    'convert the string representation of the role data into a string array
                    Dim userRoles As New ArrayList

                    Dim role As String

                    For Each role In ticket.UserData.Split(New Char() {";"c})
                        userRoles.Add(role)
                    Next role

                    roles = CType(userRoles.ToArray(GetType(String)), String())
                End If

                ' Add our own custom principal to the request containing the roles in the auth ticket
                Context.User = New GenericPrincipal(Context.User.Identity, roles)

            End If
        End Sub

        Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
            Session.Abandon()
        End Sub

        Public Sub InsertSessionCacheItem(ByVal sUserID As String)
     try         
               If GetSessionCacheItem(sUserID) <> "" Then
                    Exit Sub
                End If

                Dim oRemove As CacheItemRemovedCallback = New CacheItemRemovedCallback(AddressOf SessionEnded)

                System.Web.HttpContext.Current.Cache.Insert(msSessionCacheName + sUserID, sUserID, Nothing, DateTime.MaxValue, TimeSpan.FromMinutes(mnSessionMinutes), CacheItemPriority.Normal, oRemove)
            Catch e As Exception
                Response.Write(e.Message)
            End Try
        End Sub

        Public Function GetSessionCacheItem(ByVal sUserID As String) As String
            Dim sRet As String = ""

          
                sRet = System.Web.HttpContext.Current.Cache(msSessionCacheName + sUserID)
                If sRet = Nothing Then
                    sRet = ""
                End If
            Return sRet
        End Function

        Public Sub SessionEnded(ByVal key As String, ByVal val As Object, ByVal r As CacheItemRemovedReason)
            Dim sUserID As String = ""
            Dim sSessionTest As String = ""

            Try
                sSessionTest = Session("Test").ToString()
            Catch e As Exception
                sSessionTest = e.Message
            End Try
        End Sub
        Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
            Session.Abandon()
        End Sub
     
    End Class
End Namespace




Labels: