页头为什么没反映啊？在线急等啊？？？？？急

header.aspx.vb的代码是下边的 可是编译后 登陆连接没反应   是怎么回事  
希望大家能给我个写页头的好方法 谢谢Imports Business
Imports System
Imports Common
Imports DataImports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Data.SqlClient
Imports System.Web.HttpResponse
Public Class Hearder    Inherits System.Web.UI.UserControl
    Protected lbLogout As System.Web.UI.WebControls.LinkButton
    Protected lbReturn As System.Web.UI.WebControls.LinkButton
    Protected lbNewPost As System.Web.UI.WebControls.LinkButton
    Protected lbDelete As System.Web.UI.WebControls.LinkButton
    Protected lbLogin As System.Web.UI.WebControls.LinkButton
    Protected lbUserManage As System.Web.UI.WebControls.LinkButton
    Protected lblUser As System.Web.UI.WebControls.Label
#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        '  Protected WithEvents lbLogout As System.Web.UI.WebControls.LinkButton
        'Protected WithEvents lbDelete As System.Web.UI.WebControls.LinkButton
        'Protected WithEvents lbUserManage As System.Web.UI.WebControls.LinkButton
        'Protected WithEvents lblUser As System.Web.UI.WebControls.Label
        'Protected WithEvents lbNewPost As System.Web.UI.WebControls.LinkButton
        'Protected WithEvents lbReturn As System.Web.UI.WebControls.LinkButton
        'Protected WithEvents lbLogin As System.Web.UI.WebControls.LinkButton
     
        Private designerPlaceholderDeclaration As System.Object    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        
      
        InitializeComponent()
    End Sub
    Public Property Username() As String        Get
            Return HttpContext.Current.User.Identity.Name        End Get
        Set(ByVal Value As String)
        End Set    End Property
    Public Property IsLogin() As Boolean
        Get
            Return HttpContext.Current.User.Identity.IsAuthenticated        End Get
        Set(ByVal Value As Boolean)
        End Set    End Property
    Public Property CanUserManage() As Boolean
        Get
            If (IsLogin) Then
            Else
                Return False            End If
            Dim strUsername As String            strUsername = HttpContext.Current.User.Identity.Name            Return Forum.CanUserManage(strUsername)
        End Get
        Set(ByVal Value As Boolean)
        End Set    End Property
    Dim _show_delete As Boolean    Public Property ShowDelete() As Boolean
        Get
            Return _show_delete
        End Get
        Set(ByVal Value As Boolean)            _show_delete = Value        End Set    End Property
    Public Property CanDelete() As Boolean
        Get
            If (IsLogin) Then
            Else
                Return False
            End If
            If (Forum.CanDeleteArticle(Username)) Then
            Else
                Return False
            End If
            Return True
        End Get
        Set(ByVal Value As Boolean)            _show_delete = Value        End Set    End Property#End Region    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        lbLogout.Visible = IsLogin
        lbNewPost.Visible = IsLogin
        lbLogin.Visible = Not IsLogin
        lbUserManage.Visible = CanUserManage
        lblUser.Text = " 欢迎光临，" + Username + "!"
        lblUser.Visible = IsLogin
        lbDelete.Visible = ShowDelete & CanDelete
        If (Not lbDelete.Visible) Then
            lbDelete.Attributes.Add("onclick", "return window.confirm('你确定删除么？')")
        End If    End Sub    Private Sub lbNewPost_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbNewPost.Click
        HttpContext.Current.Response.Redirect("~/NewPost.aspx")
    End Sub
        Private Sub lbDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbDelete.Click
        Dim id As Integer
        id = Convert.ToInt32(HttpContext.Current.Request.QueryString("id"))
        If (Forum.DeleteArticle(id, Username)) Then
            HttpContext.Current.Response.Redirect("~/Default.aspx")
        Else : HttpContext.Current.Response.Write("删除文章失败")
        End If    End Sub    Private Sub lbUserManage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbUserManage.Click
        HttpContext.Current.Response.Redirect("~/UserManage.aspx")
    End Sub    Private Sub lbReturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbReturn.Click
        HttpContext.Current.Response.Redirect("~/Default.aspx")
    End Sub    Private Sub lbLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbLogin.Click
        HttpContext.Current.Response.Redirect("~/Login.aspx")    End Sub    Private Sub lbLogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbLogout.Click        'FormsAuthentication.SignOut()
        HttpContext.Current.Response.Redirect("~/Default.aspx")
    End Sub
End Class