Листинг 4. Код ASP.NET для страницы Default.aspx

BEGIN Метка A
 Private Sub Page_Load(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles MyBase.Load
 ?Set Text property for hylLogin control based
 ?on status of LoggedIn session variable.
 If Session(«LoggedIn») = False Then
 hylLogin.Text = «Login»
 hylLogin.NavigateUrl = «Login.aspx»
 Else
 hylLogin.Text = «Logged in»
 hylLogin.NavigateUrl = «»
 End If
 End Sub
END Метка A
BEGIN Метка B
 Private Sub hylPage1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles hylPage1.Click
 ?Follow hyperlink or go to Login.aspx based
 ?on status of LoggedIn session variable.
 If Session(«LoggedIn») Then
 Response.Redirect(«Page1OfContent.htm»)
 Else
 Response.Redirect(«Login.aspx»)
 End If
 End Sub
END Метка B
BEGIN Метка C
 Private Sub hylCurrentMembers_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles hylCurrentMembers.Click
 Response.Redirect(«CurrentMembers.aspx»)
 End Sub
 Private Sub hylEditMyRow_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles hylEditMyRow.Click
 Response.Redirect(«EditMyMemberInfo.aspx»)
 End Sub
End Class
END Метка C