Настраиваемый поставщик профилей с использованием CMS API
Я создал собственный поставщик профилей, который интегрирован с API CMS. Работает нормально при извлечении данных для аутентифицированного пользователя (Profile.FirstName
), но ошибки при создании профиля нового пользователя.
Вот раздел из web.config
<profile enabled="true" defaultProvider="CustomProfileProvider" inherits="objProfile">
<providers>
<clear />
<add name="CustomProfileProvider" type="CustomProfileProvider" />
</providers>
</profile>
Вот класс objProfile
Public Class objProfile
Inherits ProfileBase
Public Property FirstName() As String
Get
Return Me.GetPropertyValue("FirstName")
End Get
Set(ByVal value As String)
Me.SetPropertyValue("FirstName", value)
End Set
End Property
Public Property LastName() As String
Get
Return Me.GetPropertyValue("LastName")
End Get
Set(ByVal value As String)
Me.SetPropertyValue("LastName", value)
End Set
End Property
Public Property Email() As String
Get
Return Me.GetPropertyValue("Email")
End Get
Set(ByVal value As String)
Me.SetPropertyValue("Email", value)
End Set
End Property
Public Property Address1() As String
Get
Return Me.GetPropertyValue("Address1")
End Get
Set(ByVal value As String)
Me.SetPropertyValue("Address1", value)
End Set
End Property
...
Public Property MailList() As Boolean
Get
Return Me.GetPropertyValue("Mailing List")
End Get
Set(ByVal value As Boolean)
Me.SetPropertyValue("Mailing List", value)
End Set
End Property
End Class
Вот пользовательский ProfileProvider. Единственная функция, которая реализована прямо сейчас, это GetPropertyValues
потому что это единственный, который используется при переходе к отладчику. Я буду реализовывать другие, как они мне нужны.
Public Class CustomProfileProvider
Inherits ProfileProvider
Public Overrides Property ApplicationName() As String
Get
Return ConfigurationManager.AppSettings("ApplicationName")
End Get
Set(ByVal value As String)
Return
End Set
End Property
Public Overrides Sub Initialize(ByVal name As String, ByVal config As System.Collections.Specialized.NameValueCollection)
MyBase.Initialize(name, config)
End Sub
Public Overrides Function DeleteInactiveProfiles(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal userInactiveSinceDate As Date) As Integer
End Function
Public Overloads Overrides Function DeleteProfiles(ByVal usernames() As String) As Integer
End Function
Public Overloads Overrides Function DeleteProfiles(ByVal profiles As System.Web.Profile.ProfileInfoCollection) As Integer
End Function
Public Overrides Function FindInactiveProfilesByUserName(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal usernameToMatch As String, ByVal userInactiveSinceDate As Date, ByVal pageIndex As Integer, ByVal pageSize As Integer, ByRef totalRecords As Integer) As System.Web.Profile.ProfileInfoCollection
End Function
Public Overrides Function FindProfilesByUserName(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal usernameToMatch As String, ByVal pageIndex As Integer, ByVal pageSize As Integer, ByRef totalRecords As Integer) As System.Web.Profile.ProfileInfoCollection
End Function
Public Overrides Function GetAllInactiveProfiles(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal userInactiveSinceDate As Date, ByVal pageIndex As Integer, ByVal pageSize As Integer, ByRef totalRecords As Integer) As System.Web.Profile.ProfileInfoCollection
End Function
Public Overrides Function GetAllProfiles(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal pageIndex As Integer, ByVal pageSize As Integer, ByRef totalRecords As Integer) As System.Web.Profile.ProfileInfoCollection
End Function
Public Overrides Function GetNumberOfInactiveProfiles(ByVal authenticationOption As System.Web.Profile.ProfileAuthenticationOption, ByVal userInactiveSinceDate As Date) As Integer
End Function
Public Overrides Function GetPropertyValues(ByVal cotext As System.Configuration.SettingsContext, ByVal collection As System.Configuration.SettingsPropertyCollection) As System.Configuration.SettingsPropertyValueCollection
Dim PropertyValueCollection As New System.Configuration.SettingsPropertyValueCollection
... (get user properties from cms and put into PropertyValueCollection) ...
'return the PropertyValueCollection
Return PropertyValueCollection
End Function
Public Overrides Sub SetPropertyValues(ByVal context As System.Configuration.SettingsContext, ByVal collection As System.Configuration.SettingsPropertyValueCollection)
End Sub
End Class
На странице с зарегистрированным пользователем Profile.FirstName
работает отлично. Но когда я создаю нового пользователя, а затем использую objProfile.Create(UserName)
чтобы создать профиль, все свойства имеют ошибку вроде The settings property 'Mailing List' was not found.
1 ответ
Я нашел проблему. Я болел всю прошлую неделю, поэтому я виноват в этом.
При получении профиля в GetPropertyValues
функция, я использовал HttpContext.Current
вместо context
параметр, который передается в.
Public Overrides Function GetPropertyValues(ByVal context As System.Configuration.SettingsContext, ByVal collection As System.Configuration.SettingsPropertyCollection) As System.Configuration.SettingsPropertyValueCollection
Dim PropertyValueCollection As New System.Configuration.SettingsPropertyValueCollection
'get username from parameter, context.Item("UserName"), not HttpContext.Current.User.Identity.Name.ToString()
...get user properties from CMS and put into PropertyValueCollection...
'return the PropertyValueCollection
Return PropertyValueCollection
End Function