参考代码:
Dim oUserInfo As New UserInfo()
oUserInfo.PortalID = IWebCredentials.PortalID
oUserInfo.Membership.Username = NewUsername
oUserInfo.Username = NewUsername
oUserInfo.FirstName = FirstName
oUserInfo.LastName = LastName
oUserInfo.DisplayName = DisplayName
oUserInfo.Membership.Email = email
oUserInfo.Email = email
oUserInfo.Membership.Approved = True
oUserInfo.AffiliateID = Null.NullInteger
oUserInfo.Membership.Password = Newpassword
Dim objUserCreateStatus As Security.Membership.UserCreateStatus = IWebUser.CreateUser(oUserInfo)
If objUserCreateStatus = Security.Membership.UserCreateStatus.Success Then
objResponse = "Success"
Else
objResponse = [String].format("Error: {0}", objUserCreateStatus.ToString())
End If
有问题请回复,欢迎讨论....
