• 博客园logo
  • 会员
  • 众包
  • 新闻
  • 博问
  • 闪存
  • 赞助商
  • HarmonyOS
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录
目标驱动者
目标........努力........生活.........
博客园    首页    新随笔    联系   管理    订阅  订阅

在DNN中通过代码添加、修改、删除用户和给特定用户创建、删除角色

在DNN中通过代码添加、修改、删除用户和给特定用户创建、删除角色

2010的第一篇技术博客。

代码
 1  'new user account
 2         Dim ui As UserInfo = New UserInfo()
 3         ui.PortalID = 0
 4         ui.FirstName = "Ision"
 5         ui.LastName = "Wu"
 6         ui.DisplayName = "Ision Wu"
 7         ui.Username = "Ision"
 8         ui.Email = "ision.wu@intertek.com"
 9         ui.IsSuperUser = False
10         ui.Profile.PreferredLocale = "En-us"
11         ui.Profile.TimeZone = -480
12         ui.Profile.LastName = ui.LastName
13         ui.Profile.FirstName = ui.FirstName
14 
15         'SetMembership
16         Dim oNewMembership As UserMembership = New UserMembership()
17         oNewMembership.Approved = True
18 
19         oNewMembership.CreatedDate = System.DateTime.Now
20         oNewMembership.Email = ui.Email
21         oNewMembership.IsOnLine = False
22         oNewMembership.Username = ui.Username
23         oNewMembership.Password = "1234567"
24         'Bind membership to user
25         ui.Membership = oNewMembership
26 
27         'add the user, ensure it was successful
28         If UserCreateStatus.Success = UserController.CreateUser(ui) Then
29             Response.Write("Success")
30         Else
31             Response.Write("Fail")
32 
33         End If
34         '-------------------------------------------------------------------------
35 
36         'update user account begin
37         Dim oNewUserInfo As UserInfo = UserController.GetUserByName(0, "Ision") ' 0 is the portal id
38         oNewUserInfo.DisplayName = "Ision Name Updated"
39         UserController.UpdateUser(0, oNewUserInfo)
40         '--------------------------------------------------------------------------
41 
42         'delete user account information
43         Dim oDelUserInfo As UserInfo = UserController.GetUserByName(0, "Ision")
44         UserController.DeleteUser(oDelUserInfo, False, False)
45         '--------------------------------------------------------------------------
46 
47         'create role to user ision
48         Dim oRoleUserInfo As UserInfo = UserController.GetUserByName(0, "Ision")
49         Dim oRole As RoleController = New RoleController()
50         oRole.AddUserRole(0, oRoleUserInfo.UserID, oRole.GetRoleByName(0, "RoleName").RoleID, DateTime.MaxValue) ' RoleName -- user custom definition
51         '--------------------------------------------------------------------------
52 
53         'update role to user ision
54         Dim oRoleUserInfo_Del As UserInfo = UserController.GetUserByName(0, "Ision")
55         Dim oRole_Del As RoleController = New RoleController()
56         oRole_Del.DeleteUserRole(0, oRoleUserInfo_Del.UserID, oRole_Del.GetRoleByName(0, "RoleName").RoleID)
57         ''--------------------------------------------------------------------------


 

posted @ 2010-01-08 17:22  IsionWu  阅读(584)  评论(0)    收藏  举报
刷新页面返回顶部
博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3