登录验证机制实例

独上高楼网站

在 ASP.NET 2.0 提供的 Membership 功能，可以很方便的制作登入验证的动作；不过有时因为特殊需求需要自行制作登入验证机制，例如制作现行构系统的 Web 前端，可能就需要呼叫中间层去执行登入验证的动作，在此提供一个登入验证机制的实作。

我们将登入验证机制包含在一个独立组件中，新的网站应用程序只需参考这个组件就可以使用登入验证机制。此组件中包的类别如下表及下图所示。

．TUserInfo 类别

其中 IUserInfo 接口是定义在更上层的组件中，是为了三层式架构中传递使用者信息使用，例如 Web 组件(ASP.NET)传递到中间层组件(.NET)使用，当然在这个案例中，你也可以直接定义 TUserInfo 类别即可。

TUserInfo 类别的程序代码如下，此案例中只会使用到 IsLogin 属性。

   1:  Public Class TUserInfo

   2:      Implements IUserInfo

3:

   4:      Private FID As String = String.Empty

   5:      Private FName As String = String.Empty

   6:      Private FGuid As Guid = Guid.Empty

   7:      Private FHandle As Integer = 0

   8:      Private FSessionID As String = String.Empty

   9:      Private FIsLogin As Boolean = False

10:

  11:      ''' < summary>

  12:      ''' 建构函式。

  13:      ''' < /summary>

  14:      Sub New()

  15:          FGuid = Guid.NewGuid()

  16:      End Sub

17:

  18:      ''' < summary>

  19:      ''' 使用者账号。

  20:      ''' < /summary>

  21:      Public Property ID() As String Implements IUserInfo.ID

  22:          Get

  23:              Return FID

  24:          End Get

  25:          Set(ByVal value As String)

  26:              FID = value

  27:          End Set

  28:      End Property

29:

  30:      ''' < summary>

  31:      ''' 使用者名称。

  32:      ''' < /summary>

  33:      Public Property Name() As String Implements IUserInfo.Name

  34:          Get

  35:              Return FName

  36:          End Get

  37:          Set(ByVal value As String)

  38:              FName = value

  39:          End Set

  40:      End Property

41:

  42:      ''' < summary>

  43:      ''' 执行阶段使用者识别码。

  44:      ''' < /summary>

  45:      Public Property Guid() As System.Guid Implements IUserInfo.Guid

  46:          Get

  47:              Return FGuid