none
chamar código em uma MasterPage RRS feed

  • Pergunta

  • Olá pessoal,

    Tenho em minha MasterPage o código abaixo:

    Private Sub VerificaPermissao()
            Dim pPagina As String
            Dim Ds As Data.DataSet
            pPagina = Replace(System.IO.Path.GetFileName(HttpContext.Current.Request.CurrentExecutionFilePath), ".aspx", "") & ".aspx"
            Ds = Submenu.ConsultarPermissao("A.perfil_codigo = " & Session("sPermissao") & _
                                              " AND C.modulo_arquivo = '" & pPagina & "' ")
            If Not Ds Is Nothing Then
                If Ds.Tables(0).Rows.Count = 0 Then
                    Response.Redirect("AcessoNegado.aspx")
                End If
            Else
                If Ds Is Nothing Then
                    Response.Redirect("AcessoNegado.aspx")
                End If
            End If

        End Sub

    Como faço para chamar essa função no OnLoad das páginas filhas?

    Grato,

    Ilano.

    quarta-feira, 23 de maio de 2012 17:14

Todas as Respostas