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

				
				
				Sub Page_Load
				  Dim objPassportID As PassportIdentity
				
				  objPassportID = User.Identity
				  If objPassportID.IsAuthenticated Then
				    Response.Redirect( "Default.aspx" )
				  End If
				  plhPassport.Controls.Add( New LiteralControl( objPassportID.LogoTag2 ) )
				End Sub
				
				
				
				
				Login.aspx
				
				
				Please Login:
				
				You have requested a restricted resource.
				To continue, please login by clicking
				the following button:
				
								  ID="plhPassport"
				  Runat="Server" />