用类制作的检查是否登陆

方法:制作一个类如下
在你的文件中,把你的文件改成继承这个类,即
Public Class WebForm2
    Inherits System.Web.UI.Page
改成
Public Class _default12
    Inherits ASPNET.StarterKit.Communities.BaseISPAdminPage



类如下:
Imports System
Imports System.Web
Imports System.Web.UI

' *********************************************************************
' 
'  BaseISPAdminPage Class
' 
'  This class handles security for all the ISP Admin pages.
'  All the ISPAdmin pages derive from this class.
'
' *********************************************************************

Public Class BaseISPAdminPage
    Inherits Page

 

    Protected Overrides Sub OnInit(ByVal e As EventArgs)
        MyBase.OnInit(e)

        ' Check security
        If Request.Cookies("ISPAdmin") Is Nothing Then
            Response.Redirect("~/ISPAdmin/IspLogin.aspx")
        End If
        ' Get the username and password from session cookies   
        Dim username As String = Request.Cookies("ISPAdmin").Values("Username")
        Dim password As String = Request.Cookies("ISPAdmin").Values("Password")

        ' if bad username or password, redirect
        If username.ToLower() <> CommunityGlobals.IspUsername.ToLower() OrElse password.ToLower() <> CommunityGlobals.IspPassword.ToLower() Then
            Response.Redirect("~/ISPAdmin/IspLogin.aspx")
        End If
    End Sub 'OnInit
End Class 'BaseISPAdminPage

资料来源:WWW.ASP.NET项目:ASP.NET Community Starter Kit (VBVS)