页头为什么没反映啊？在线急等啊？？？？？急
header.aspx.vb的代码是下边的 可是编译后 登陆连接没反应 是怎么回事
希望大家能给我个写页头的好方法 谢谢

Imports Business
Imports System
Imports Common
Imports Data

Imports 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


[解决办法]