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

				
				
				
				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