DNN 自动注册用户名密码

 

Public Sub CreateUser(ByVal username As String, ByVal userpwd As String, ByVal name As String)
            If Me.GetUserName(username) Then
                Dim ums As New UserMembership()
                Dim user As New UserInfo()
                Dim up As New UserProfile()

                ums.Username = username
                '账号
                ums.Approved = True
                ums.Password = userpwd
                '密码
                ums.Email = "xzlyzgzs@163.com"
                ums.LockedOut = False
                ums.CreatedDate = DateTime.Now
                ums.LastLoginDate = DateTime.Now
                ums.LastPasswordChangeDate = DateTime.Now

                ums.LastLockoutDate = DateTime.Parse("1754-01-01")
                ums.UpdatePassword = False
                ums.Approved = True

                up.Cell = "123"
                up.City = "hefei"
                up.Country = "China"
                up.Fax = "800123123"
                up.FirstName = name
                up.IM = "IMS"
                up.LastName = name
                up.ObjectHydrated = True
                up.PostalCode = "1"
                up.PreferredLocale = "123"
                up.Region = "123"
                up.Street = "123"
                up.Telephone = "110"
                up.TimeZone = 8
                up.Unit = "123"
                up.Website = "www.qq.com"

                Dim roless As String() = {"Administrators", "Registered Users", "Subscribers"}

                user.Membership = ums
                user.DisplayName = "test"
                user.Email = "xzlyzgzs@163.com"
                user.FirstName = name
                user.DisplayName = name
                user.IsSuperUser = False
                user.LastName = name
                user.PortalID = 0
                user.Profile = up
                user.Roles = roless
                user.Username = username
                '账号
                UserController.CreateUser(user)
                If Me.txtUsername.Text = "superadmin" Then
                    SetRoles()
                End If
            End If

        End Sub