ASP.NET 2.0中使用自定义provider

如果不想使用在Visual Studio 2005 beta 2中提供的SqlMembershipProvider,则只需要声明自己的类，并且继承MembershipProvider类就可以了。MembershipProvider类包含了与membership相关的方法和属性。

　　在Solution Explorer中，使用"Add New item.."，增加一个类，命名为AccessMembershipProvider.vb,并按系统提示，将其放到App_Code目录中去。

　　接下来，引用相关的命名空间，并且写出程序的框架如下：

Imports Microsoft.VisualBasic Imports System.Data Public Class AccessMembershipProvider Inherits MembershipProvider End Class

　　为了要使用自定义的provider,必须在web.config中进行相关的配置。可以新增加一个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>标签，增加一个自定义的provider,名称叫AccessMembershipProvider。

　　其中的requiresQuestionAndAnswer属性，当其值为true时，指出在新注册时，必须填写提示问题和要回答的答案。

　　ConnectionString，指出要进行数据库连接的连接串。

　　DefaultProvider属性，指出系统默认使用哪一个provider,因为一个系统中可以设置多个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

　　当provider被装载时，会调用Initialize()方法。刚才在web.config文件中，使用<add>标签设置的各类属性值，都能在这个方法中读取。比如，可以通过使用config参数来读取，上面的代码中，就使用config("connectionString")来读取数据库连接字符串，并放到变量connStr变量中去。之后，再设置RequiresQuestionAndAnswer属性，如下：

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

　　要注意，必须设置该属性的值，否则，在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

　　我们解读一下上面的代码，首先，我们往数据库插入了一条记录，在新增用户成功后，我们必须返回一个状态信息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类的方法的构造函数有很多，具体的可以查看MSDN，在这里我们只用到了username,email,passwordQuestion,createdate(帐号创建日期，这里使用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就完成了，可以搭配登陆，注册等控件进行使用了。运行程序，首先是出现用户注册的页面，当用户成功注册后，则会将用户引导到登陆页面，如下图所示：


　　当用户成功登陆后，如下图所示：

查看本文来源