특정 페이지에 대한 액세스를 제한하는 데 실패하고 있습니다. 어떤 아이디어?

Question

OK, 나는이 사이트뿐만 아니라 다른 사람들이 아무 소용이없는 대답을 찾고 있는지 조사했습니다.

새로운 웹 사이트에는 모든 구성원이이 관리 섹션 내의 특정 페이지에 액세스 할 수있는 관리 섹션이 있습니다.

그러나 모든 페이지에 대해 3 개의 액세스 만 허용됩니다.

로그인 페이지를 사용하여 관심 항목 메뉴가있는 관리 섹션으로 모든 사용자를 얻으려고합니다.

우리의 목표는 사용자가이 섹션으로 이동하여 볼 수있는 권한이없는 항목을 클릭하면 환영 페이지로 리디렉션된다는 것입니다.

물론 "이 페이지를 볼 수있는 권한이 없습니다."라는 메시지가 더 좋은 옵션입니다.

이 작업을 돕기 위해 수정할 수있는 링크 또는 샘플 코드가 있습니까?

아래 코드는 작동하지 않습니다.

관리자 섹션으로 안내합니다. 모든 링크의 page_load 이벤트에 대해 세션을 사용하여 사용자를 제한하려고 시도합니다.

예 : 만약 진정한 세션 ("관리자") <> 다음 Response.Redirect를 ("home.aspx") 최종면

만에 나열된 링크 중 하나를 볼에서 사람을 제한하지 않습니다 화면.

Sub CmdLogin_Click(ByVal Sender As Object, ByVal E As EventArgs) Handles CmdLogin.Click 

    Dim StrUser As String, StrPass As String 
    Dim BValid As Boolean 
    Dim Conn As OleDbConnection 
    Dim Cmd As OleDbCommand 
    Dim rs As OleDbDataReader 
    Dim StrSQL As String 

    ' We will request all variables from our form with this. 
    'Protect against SQL Injection 
    StrUser = Replace(txtUser.Text, "'", "''", 1, -1, 1) 
    StrPass = Replace(txtPass.Text, "'", "''", 1, -1, 1) 

    ' This is our boolean variable for validation purposes set to true if valid user 
    BValid = False 

    ' Initialize Database Connection 
    Conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("App_Data\Members.mdb")) 
    ' Create Select Command 
    StrSQL = "SELECT Access_Level, myEmail,UserPassword FROM tblUsers WHERE myEmail='" & StrUser & "' AND UserPassword = '" & StrPass & "'" 
    'Response.Write(StrSQL) 
    'Response.End() 
    Cmd = New OleDbCommand(StrSQL, Conn) 

    Conn.Open() 

    rs = Cmd.ExecuteReader() 

    ' This acts like the (Not RecordSource.Eof) in ASP 3.0 
    While rs.Read() 
     If rs("Access_Level") = "1" Or rs("Access_Level") = "2" Then 
      Session("Admin") = True 
      Response.Redirect("admin.aspx") 
      'Response.Write(StrPass) 
      'Response.End() 
      Dim redirectTo As String = Trim(Session("RedirectTo")) 
      BValid = True 
     Else 
     End If 
    End While 

    ' Don't forget this 
    Conn.Close() 

    ' This handles all response per validation 
    ' If validated it goes to admin.aspx page 
    If BValid = True Then 
     Session("userid") = StrUser 
     Dim redirectTo As String = Trim(Session("RedirectTo")) 
     If redirectTo <> "" Then 
      Response.Redirect(redirectTo) 
     Else 'They just got in without trying to go to a restricted page 
      Response.Redirect("admin.aspx") 
     End If 
    ElseIf BValid = False Then 
     lblError.Text = "Login failed: Please try again." 
    End If 
    End Sub 

모든 도움을 주실 수 있습니다.

Answer 1

여기에서하려고하는 체조가 필요하지 않습니다. 멤버십, 역할 및 빌드 .net 기능을 사용하여 특정 폴더/페이지에 대한 액세스를 제한하십시오.

이가 쉽게 할 수있는 방법을 내 게시물 중 하나에서 봐 주시기 바랍니다 :

How to restrict unlogged unauthorized users from viewing web pages