global.asax

asp.net技术内幕的书配源码

<%@ Import Namespace="System.Security.Principal" %>
<Script Runat="Server">

Dim colRoles As HashTable

Overrides Sub Init()
  colRoles = New HashTable()

  Dim arrJaneRoles As String() = _
    { "Supervisors", "Engineers" }
  colRoles( "yourdomain\jane" ) = arrJaneRoles
  Dim arrGeorgeRoles As String() = _
    { "Engineers" }
  colRoles( "yourdomain\george" ) = arrGeorgeRoles
End Sub


Sub WindowsAuthentication_Authenticate( _
  s As Object, _
  e As WindowsAuthenticationEventArgs )

  e.User = New GenericPrincipal( _
    e.Identity, _
    colRoles( e.Identity.Name.ToLower() ) )
End Sub

</Script>