Protected pageAccess AsString PrivateSub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load If (pageAccess IsNothing) Then ThrowNew ApplicationException("该页面没有设置访问权限,请与管理员联系!") ElseIf (pageAccess ="User") Then If (Session("UserPower") ="Guest") Then '处理登录 Response.Redirect("/User/User_Login.aspx?type=1") EndIf ElseIf (pageAccess ="PowerUser") Then If (Session("UserPower") ="Guest"OrElse Session("UserPower") ="User") Then Response.Write("需要管理员,权限不够!") Response.End() EndIf ElseIf (pageAccess ="Admin") Then If (Not isAdmin()) Then Response.Write("需要超级管理员,权限不够!") Response.End() EndIf ElseIf (pageAccess <>"Guest") Then ThrowNew ApplicationException("该页面访问权限设置错误,请与管理员联系!") EndIf End Sub
所有继承的页面new函数中写:
PublicSub New()SubNew() pageAccess ="Guest" End Sub