页头为什么没反映啊？在线急等啊？？？？？急
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
[解决办法]
