在asp.net 2.0中，新增加的membership PRovider功能，以及結(jié)合功能強大的一系列注冊，登陸控件，可以很方便地對用戶的登陸和權(quán)限等進(jìn)行管理（參見<<ASP.NET 2.0登陸控件簡介>>)。
 
　　但是，可能大家會發(fā)現(xiàn)，ASP.NET 2.0自帶的這些登陸控件和membership的管理功能，默認(rèn)的是和sql server 2005 express搭配使用的，那么，如何改成使用SQL Server 2000或者是其他的數(shù)據(jù)源，如access,Oracle等呢？如果自己想在應(yīng)用中，另外重新寫一個對登陸用戶或者用戶權(quán)限等管理的應(yīng)用，要如何修改呢？在本文中，將給出在ASP.NET 2.0中使用自定義provider,以配合登陸控件來實現(xiàn)一個簡單的登陸過程。

　　為了明白ASP.NET 2.0中的provider是如何工作的，首先看下下面的結(jié)構(gòu)圖：

　　如果不想使用在Visual Studio 2005 beta 2中提供的SqlMembershipProvider,則只需要聲明自己的類，并且繼承MembershipProvider類就可以了。MembershipProvider類包含了與membership相關(guān)的方法和屬性。

　　在Solution Explorer中，使用"Add New item.."，增加一個類，命名為AccessMembershipProvider.vb,并按系統(tǒng)提示，將其放到App_Code目錄中去。

　　接下來，引用相關(guān)的命名空間，并且寫出程序的框架如下：

Imports Microsoft.VisualBasic
Imports System.Data

Public Class AccessMembershipProvider
Inherits MembershipProvider
End Class

　　為了要使用自定義的provider,必須在web.config中進(jìn)行相關(guān)的配置。可以新增加一個web.config文件，寫入如下的代碼：

<system.web>
<authentication mode="Forms"/>
<membership
defaultProvider="AccessMembershipProvider" >
<providers>
<add name="AccessMembershipProvider"
type="AccessMembershipProvider"
requiresQuestionAndAnswer="true"
connectionString="Provider=Microsoft.Jet.
OLEDB.4.0;Data Source=C:/NewMembershipProvider/
App_Data/Members.mdb;Persist Security
Info=False" />
</providers>
</membership>
</system.web>

　　其中，要留意如下幾點：

　　必須選擇驗證方式為"Forms"(authentication mode="forms").

　　通過使用<add>標(biāo)簽，增加一個自定義的provider,名稱叫AccessMembershipProvider。

　　其中的requiresQuestionAndAnswer屬性，當(dāng)其值為true時，指出在新注冊時，必須填寫提示問題和要回答的答案。

　　ConnectionString，指出要進(jìn)行數(shù)據(jù)庫連接的連接串。

　　DefaultProvider屬性，指出系統(tǒng)默認(rèn)使用哪一個provider,因為一個系統(tǒng)中可以設(shè)置多個provider.

　　在AccessMembershipProvider.vb中，增加以下的私有成員

Private connStr As String
Private comm As New OleDb.OleDbCommand
Private _requiresQuestionAndAnswer As Boolean
Private _minRequiredPasswordLength As Integer

　　并且增加Initialize()方法，代碼如下

Public Overrides Sub Initialize(ByVal name As String, ByVal config As System.Collections.Specialized.NameValueCollection)

’===retrives the attribute values set in
’web.config and assign to local variables===
If config("requiresQuestionAndAnswer") = "true" Then _
_requiresQuestionAndAnswer = True
connStr = config("connectionString")
MyBase.Initialize(name, config)
End Sub

　　當(dāng)provider被裝載時，會調(diào)用Initialize()方法。剛才在web.config文件中，使用<add>標(biāo)簽設(shè)置的各類屬性值，都能在這個方法中讀取。比如，可以通過使用config參數(shù)來讀取，上面的代碼中，就使用config("connectionString")來讀取數(shù)據(jù)庫連接字符串，并放到變量connStr變量中去。之后，再設(shè)置RequiresQuestionAndAnswer屬性，如下：

Public Overrides ReadOnly Property _
RequiresQuestionAndAnswer() _
As Boolean
Get
If _requiresQuestionAndAnswer = True Then
Return True
Else
Return False
End If
End Get
End Property

　　要注意，必須設(shè)置該屬性的值，否則，在CreateUserWizard控件中，則不會顯示密碼提示問題和密碼提示答案兩個文本框。

　　接下來，我們可以開始編寫新建用戶的代碼了，CreateUser（）方法的代碼如下：

Public Overrides Function CreateUser(ByVal username As String, ByVal password As String, ByVal email As String, ByVal passwordQuestion As String, ByVal passwordAnswer As String, ByVal isApproved As Boolean, ByVal providerUserKey As Object, ByRef status As System.Web.Security.MembershipCreateStatus) As System.Web.Security.MembershipUser
Dim conn As New OleDb.OleDbConnection(connStr)
Try
conn.Open()
Dim sql As String = "INSERT INTO Membership VALUES (" & _
"@username, @password, @email, " & _
" @passwordQuestion, @passwordAnswer )"
Dim comm As New OleDb.OleDbCommand(sql, conn)
comm.Parameters.AddWithValue("@username", username)
comm.Parameters.AddWithValue("@password", password)
comm.Parameters.AddWithValue("@email", email)
comm.Parameters.AddWithValue("@passwordQuestion", passwordQuestion)
comm.Parameters.AddWithValue("@passwordAnswer", passwordAnswer)
Dim result As Integer = comm.ExecuteNonQuery()
conn.Close()

status = MembershipCreateStatus.Success
Dim user As New MembershipUser("AccessMembershipProvider", username, Nothing, email, passwordQuestion, Nothing, True, False, Now, Nothing, Nothing, Nothing, Nothing)
Return user
Catch ex As Exception
status = MembershipCreateStatus.UserRejected
Return Nothing
End Try
End Function

　　我們解讀一下上面的代碼，首先，我們往數(shù)據(jù)庫插入了一條記錄，在新增用戶成功后，我們必須返回一個狀態(tài)信息status(該status時在傳入時以ByRef status As System.Web.Security.MembershipCreateStatus方式傳入),并且我們要返回一個MembershipUser的類的實例，因此，我們以這樣的方式返回其實例：

Dim user As New MembershipUser("AccessMembershipProvider", username, Nothing, email, passwordQuestion, Nothing, True, False, Now, Nothing, Nothing, Nothing, Nothing)

　　其中，使用到MembershipUser類的方法的構(gòu)造函數(shù)有很多，具體的可以查看MSDN，在這里我們只用到了username,email,passwordQuestion,createdate(帳號創(chuàng)建日期，這里使用NOW)。

　　而在登陸頁面里，為了判斷是否為合法用戶登陸，則需要編寫如下代碼：

Public Overrides Function ValidateUser( _
ByVal username As String, _
ByVal password As String) As Boolean

Dim conn As New OleDb.OleDbConnection(connStr)
Try
conn.Open()
Dim sql As String = _
"Select * From Membership WHERE " & _
"username=@username AND password=@password"
Dim comm As New OleDb.OleDbCommand(sql, conn)
comm.Parameters.AddWithValue("@username", _
username)
comm.Parameters.AddWithValue("@password", _
password)
Dim reader As OleDb.OleDbDataReader = _
comm.ExecuteReader
If reader.HasRows Then
Return True
Else
Return False
End If
conn.Close()

Catch ex As Exception
Console.Write(ex.ToString)
Return False
End Try
End Function

　　就這樣，一個簡單的自定義provider就完成了，可以搭配登陸，注冊等控件進(jìn)行使用了。運行程序，首先是出現(xiàn)用戶注冊的頁面，當(dāng)用戶成功注冊后，則會將用戶引導(dǎo)到登陸頁面，如下圖所示：