ModuleMaster/usercontrols/auth.ascx.vb - main - ivan/ModMas

ModuleMaster/usercontrols/auth.ascx.vb
103 строки3 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports sharedClasses.dbFunctions

Partial Class Auth
    Inherits System.Web.UI.UserControl

    Public Property UserLogin As String
        Set(value As String)
            Session("UserLogin") = value
        End Set
        Get
            If IsNothing(Session("UserLogin")) Then
                Return ""
            Else
                Return Session("UserLogin").ToString.ToUpper
            End If
        End Get
    End Property

    Public Property UserName As String
        Set(value As String)
            Session("UserName") = value
        End Set
        Get
            If IsNothing(Session("UserName")) Then
                Return ""
            Else
                Return Session("UserName").ToString
            End If
        End Get
    End Property

    Public Property currentUser As String
        Get
            Return currentUserLabel.Text
        End Get
        Set(value As String)
            currentUserLabel.Text = value
        End Set
    End Property

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsNothing(Session("UserLogin")) Then
            Session.Add("UserName", "")
            Session.Add("UserLogin", "")
            Session.Add("GroupLogin", "")
            Session.Add("UserDefaultAccessLevel", 0)
        End If

        If Session("UserName") <> "" Then
            currentUserLabel.Text = Session("UserName")
            loginLinkButton.Visible = False
            logoutLinkButton.Visible = True
        Else
            currentUserLabel.Text = ""
            loginLinkButton.Visible = True
            logoutLinkButton.Visible = False
        End If

        Dim currentPage As String = Request.RawUrl
        Try
            Dim ii, jj As Integer
            With currentPage
                ii = .LastIndexOf("/")
                jj = IIf(.IndexOf("?") = -1, .Length, .IndexOf("?"))
                currentPage = currentPage.Substring(ii + 1, jj - ii - 1).ToLower
            End With
        Catch ex As Exception

        End Try

        Session.Add("CurrentPage", currentPage)
        Session.Add(currentPage, GetRequiredAccessLevel(currentPage))

    End Sub

    Private Function GetRequiredAccessLevel(ByVal objectId As String) As Integer
        Dim f As New SqlFunctions
        Dim result As String = f.GetScalar("SELECT isnull([ObjectAccessLevel], 0) FROM [SERKIntranet].[dbo].[WebObjectsAccessLevel] WHERE [ObjectId] = '" & objectId & "'")
        If result = "" Or IsNothing(result) Then
            result = 0
        End If
        Return Int(result)
    End Function

    Public Event Logout()

    Protected Sub logoutLinkButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles logoutLinkButton.Click
        Session.Add("UserName", "")
        Session.Add("UserId", "")
        Session.Add("GroupLogin", "")
        Session.Add("UserDefaultAccessLevel", 0)
        currentUserLabel.Text = ""
        loginLinkButton.Visible = True
        logoutLinkButton.Visible = False
        RaiseEvent Logout()
        'Response.Redirect("~\modulemaster2.aspx")
    End Sub

    Protected Sub loginLinkButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles loginLinkButton.Click
        Session.Add("BackUrl", Request.Url.AbsoluteUri)
        Response.Redirect("~/Account/Login.aspx")
    End Sub
End Class