VB ASP .NET MVC自定義會員供應商

Question

我發現的所有例子都是用C＃編寫的，而且如果使用VB，我需要一個例子。如何將下面的代碼轉爲繼承所有的Membership提供者函數？

Imports System.Data.Entity 
Imports MyBlog 

Namespace MyBlog 

    Public Class EmployeeController 
     Inherits System.Web.Mvc.Controller 

     Private db As EmployeeDbContext = New EmployeeDbContext 

     ' 
     ' GET: /Employee/LogOn 

     Public Function LogOn() As ActionResult 
      Return View() 
     End Function 

    End Class 

End Namespace 

這裏是我讀過Custom membership or not，Implementing custom login for ASP.NET MVC的文章。我似乎無法繼承VB中的多個類（不經常使用繼承或實現或接口）。

Answer 1

你需要編寫從MembershipProvider繼承一個類並重寫你的方法興趣：在web.config中

Public Class MyCustomMembershipProvider 
    Inherits System.Web.Security.MembershipProvider 

    Public Overrides Property ApplicationName As String 
     Get 

     End Get 
     Set(value As String) 

     End Set 
    End Property 

    Public Overrides Function ChangePassword(username As String, oldPassword As String, newPassword As String) As Boolean 

    End Function 

    Public Overrides Function ChangePasswordQuestionAndAnswer(username As String, password As String, newPasswordQuestion As String, newPasswordAnswer As String) As Boolean 

    End Function 

    Public Overrides Function CreateUser(username As String, password As String, email As String, passwordQuestion As String, passwordAnswer As String, isApproved As Boolean, providerUserKey As Object, ByRef status As System.Web.Security.MembershipCreateStatus) As System.Web.Security.MembershipUser 

    End Function 

    Public Overrides Function DeleteUser(username As String, deleteAllRelatedData As Boolean) As Boolean 

    End Function 

    Public Overrides ReadOnly Property EnablePasswordReset As Boolean 
     Get 

     End Get 
    End Property 

    Public Overrides ReadOnly Property EnablePasswordRetrieval As Boolean 
     Get 

     End Get 
    End Property 

    Public Overrides Function FindUsersByEmail(emailToMatch As String, pageIndex As Integer, pageSize As Integer, ByRef totalRecords As Integer) As System.Web.Security.MembershipUserCollection 

    End Function 

    Public Overrides Function FindUsersByName(usernameToMatch As String, pageIndex As Integer, pageSize As Integer, ByRef totalRecords As Integer) As System.Web.Security.MembershipUserCollection 

    End Function 

    Public Overrides Function GetAllUsers(pageIndex As Integer, pageSize As Integer, ByRef totalRecords As Integer) As System.Web.Security.MembershipUserCollection 

    End Function 

    Public Overrides Function GetNumberOfUsersOnline() As Integer 

    End Function 

    Public Overrides Function GetPassword(username As String, answer As String) As String 

    End Function 

    Public Overloads Overrides Function GetUser(providerUserKey As Object, userIsOnline As Boolean) As System.Web.Security.MembershipUser 

    End Function 

    Public Overloads Overrides Function GetUser(username As String, userIsOnline As Boolean) As System.Web.Security.MembershipUser 

    End Function 

    Public Overrides Function GetUserNameByEmail(email As String) As String 

    End Function 

    Public Overrides ReadOnly Property MaxInvalidPasswordAttempts As Integer 
     Get 

     End Get 
    End Property 

    Public Overrides ReadOnly Property MinRequiredNonAlphanumericCharacters As Integer 
     Get 

     End Get 
    End Property 

    Public Overrides ReadOnly Property MinRequiredPasswordLength As Integer 
     Get 

     End Get 
    End Property 

    Public Overrides ReadOnly Property PasswordAttemptWindow As Integer 
     Get 

     End Get 
    End Property 

    Public Overrides ReadOnly Property PasswordFormat As System.Web.Security.MembershipPasswordFormat 
     Get 

     End Get 
    End Property 

    Public Overrides ReadOnly Property PasswordStrengthRegularExpression As String 
     Get 

     End Get 
    End Property 

    Public Overrides ReadOnly Property RequiresQuestionAndAnswer As Boolean 
     Get 

     End Get 
    End Property 

    Public Overrides ReadOnly Property RequiresUniqueEmail As Boolean 
     Get 

     End Get 
    End Property 

    Public Overrides Function ResetPassword(username As String, answer As String) As String 

    End Function 

    Public Overrides Function UnlockUser(userName As String) As Boolean 

    End Function 

    Public Overrides Sub UpdateUser(user As System.Web.Security.MembershipUser) 

    End Sub 

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

    End Function 
End Class 

然後您註冊自定義提供：

現在從您的控制器中，您只需使用Membership類。例如，在您的LogOn行動，是由默認的模板在您創建項目產生你不需要改變任何東西絕：

<HttpPost()> _ 
Public Function LogOn(ByVal model As LogOnModel, ByVal returnUrl As String) As ActionResult 
    If ModelState.IsValid Then 
     If Membership.ValidateUser(model.UserName, model.Password) Then 
      FormsAuthentication.SetAuthCookie(model.UserName, model.RememberMe) 
      If Url.IsLocalUrl(returnUrl) AndAlso returnUrl.Length > 1 AndAlso returnUrl.StartsWith("/") _ 
       AndAlso Not returnUrl.StartsWith("//") AndAlso Not returnUrl.StartsWith("/\\") Then 
       Return Redirect(returnUrl) 
      Else 
       Return RedirectToAction("Index", "Home") 
      End If 
     Else 
      ModelState.AddModelError("", "The user name or password provided is incorrect.") 
     End If 
    End If 

    ' If we got this far, something failed, redisplay form 
    Return View(model) 
End Function 

到Membership所有來電都會使用您在註冊您的自定義成員資格提供web.config中。

Answer 2

我有一個更簡單的解決方案。使用nuget安裝griffin.mvccontrib。在接口上

public class MyAccountRepository implements IAccountRepository 
end class 

按CTRL+.導入正確的名稱空間：然後創建一個新類這樣的。按類別名稱CTRL+.以獲取所有方法及其描述。

然後只需使用您的EmployeeDBContext來實現它們。

通過這樣做，你可以把一切的是（使用標準的互聯網MVC模板）

指令：http://blog.gauffin.org/2011/09/a-more-structured-membershipprovider/