Question

所以，让我开始我是编码小部件的新手，一般来说。我最初在vb中为asp页面编写了这个，它运行正常。现在转换为SharePoint 2010 webpart（不是可视webpart）。项目是列表框1具有他们管理的用户组，列表框2具有所述组中的用户，列表框3具有所有用户不在列表框2中

我确信有很多这个应该修复。就像没有输入管理员登录来获取数据一样。但我遇到的问题是：如果选择一个组，它将显示相应的数据，但选择第二个组或选择要添加的用户;同样的错误。

错误： “无法加载视图状态。加载视图状态的控制树必须与上一次请求期间用于保存视图状态的控制树匹配。”

还在试图弄清楚如何按钮添加用户。需要一些认真的帮助。我知道帖子的一部分只是很难找到资源。

以下是代码：

Imports System
Imports System.ComponentModel
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports Microsoft.SharePoint
Imports Microsoft.SharePoint.WebControls
Imports ActiveDs
Imports System.DirectoryServices
Imports System.Data
Imports ADODB
Imports System.Runtime.InteropServices


<ToolboxItemAttribute(False)> _
Public Class Groups
Inherits System.Web.UI.WebControls.WebParts.WebPart


Private LBgrp As ListBox
Private LBgrpmem As ListBox
Private LBaddgrp As ListBox
Private btnadd As Button

Protected Overrides Sub CreateChildControls()


    Me.LBgrpmem = New ListBox
    Me.LBgrpmem.AutoPostBack = True
    Me.LBgrpmem.DataValueField = "sAMAccountName"
    Me.LBgrpmem.DataTextField = "displayName"
    Me.LBgrpmem.DataBind()
    Me.LBgrpmem.Rows = 8
    Me.LBgrpmem.Width = 170
    Me.LBgrpmem.Height = 350
    Me.LBgrpmem.Items.Insert(0, New ListItem("-- Current Members --"))
    Me.Controls.Add(LBgrpmem)

    Me.LBaddgrp = New ListBox
    Me.LBaddgrp.AutoPostBack = True
    Me.LBaddgrp.DataTextField = "displayName"
    Me.LBaddgrp.DataValueField = "sAMAccountName"
    Me.LBaddgrp.DataBind()
    Me.LBaddgrp.Items.Insert(0, New ListItem("-- Add Users --"))
    Me.LBaddgrp.Width = 170
    Me.LBaddgrp.Height = 350
    AddHandler LBaddgrp.SelectedIndexChanged, New EventHandler(AddressOf DLAdd_SelectedIndexChanged)
    Me.Controls.Add(LBaddgrp)

    Me.btnadd = New Button()
    ' AddHandler Me.btnadd.Click, New EventHandler(AddressOf Click_btnadd)
    Me.btnadd.Text = "Add User"
    Me.Controls.Add(btnadd)


End Sub


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load




    Dim oRootDSE = GetObject("LDAP://RootDSE")
    Dim sDomainADsPath = "LDAP://" & oRootDSE.Get("defaultNamingContext")
    Dim oCon As New ADODB.Connection
    Dim oRecordSet As New ADODB.Recordset
    Dim oCmd As New ADODB.Command

    Dim sFullUser As String = Environment.UserName

    Dim sProperties = "name,ADsPath,description,member,memberof,managedObjects"
    Dim sGroup = "*"
    Dim aMember
    Dim iCount

    oCon.ToString()
    oCmd.ToString()
    sFullUser.ToString()
    sProperties.ToString()
    sDomainADsPath.ToString()

    oCon.Provider = "ADsDSOObject"
    oCon.Open("ADProvider", "ADMINUSER@Domain.com", "ADMINPASSWORD")
    oCmd.ActiveConnection = oCon
    oCmd.CommandText = "<" & sDomainADsPath & ">;(&(objectCategory=person)(objectClass=user)(sAMAccountName=" & sFullUser & "));" & sProperties & ";subtree"
    oRecordSet = oCmd.Execute


    Dim de As DirectoryServices.DirectoryEntry = New DirectoryServices.DirectoryEntry(sDomainADsPath, "ADMINUSER@Domain.com", "ADMINPASSWORD", DirectoryServices.AuthenticationTypes.Secure)
    Dim i As Integer = 0
    Dim sl As SortedList = New SortedList(New CaseInsensitiveComparer)
    de.ToString()

    While Not oRecordSet.EOF

        aMember = oRecordSet.Fields("managedObjects").Value
        If Not IsDBNull(aMember) Then
            For iCount = 0 To UBound(aMember)
                Dim groupDN As String = ("distinguishedName=" & aMember(iCount))
                Dim src As DirectoryServices.DirectorySearcher = New DirectoryServices.DirectorySearcher("(&(objectCategory=Group)(" & groupDN & "))")
                src.SearchRoot = de
                src.SearchScope = DirectoryServices.SearchScope.Subtree
                For Each res As DirectoryServices.SearchResult In src.FindAll
                    sl.Add(res.Properties("name")(0).ToString, i)
                    i += 1
                Next


            Next
        End If
        oRecordSet.MoveNext()
    End While

    Me.LBgrp = New ListBox
    Me.LBgrp.AutoPostBack = True
    Me.LBgrp.DataSource = sl
    Me.LBgrp.DataTextField = "key"
    Me.LBgrp.DataValueField = "value"
    Me.LBgrp.DataBind()
    Me.LBgrp.Items.Insert(0, New ListItem("-- Groups --"))
    Me.Controls.Add(LBgrp)
    Me.LBgrp.SelectedIndex = 0
    AddHandler LBgrp.SelectedIndexChanged, New EventHandler(AddressOf LBgrp_SelectedIndexChanged)
    LBgrp.SelectedItem.ToString()

End Sub


Protected Sub LBgrp_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) 'Handles LBgrp.SelectedIndexChanged


    Dim strQuery As String = "" & LBgrp.SelectedItem.Text.ToString() & "'"



    'LBgrpmem.Items.Clear()
    Dim oRootDSE2 = GetObject("LDAP://RootDSE")
    Dim sDomainADsPath2 = "LDAP://" & oRootDSE2.Get("defaultNamingContext")
    Dim oCon2 As New ADODB.Connection
    Dim oRecordSet2 As New ADODB.Recordset
    Dim sFullUser2 As String = Environment.UserName
    Dim oCmd2 As New ADODB.Command
    Dim sProperties2 = "name,ADsPath,description,member,memberof,managedObjects"
    Dim grpADsPath2
    Dim grpdsplynm2
    oRootDSE2 = Nothing
    oCon2.Provider = "ADsDSOObject"
    oCon2.Open("ADProvider", "ADMINUSER@Domain.com", "ADMINPASSWORD")
    oCmd2.ActiveConnection = oCon2
    oCmd2.CommandText = "<" & sDomainADsPath2 & ">;(&(objectCategory=group)(objectClass=group)(CN=" & LBgrp.SelectedItem.Text & "));" & sProperties2 & ";subtree"

    oRecordSet2 = oCmd2.Execute
    While oRecordSet2.EOF
        grpADsPath2 = oRecordSet2.Fields("ADsPath").Value
        grpADsPath2.ToString()

        grpdsplynm2 = grpADsPath2.remove(0, 7)
        grpdsplynm2.ToString()
        oRecordSet2.MoveNext()
    End While

    While Not oRecordSet2.EOF
        grpADsPath2 = oRecordSet2.Fields("ADsPath").Value
        grpADsPath2.ToString()

        grpdsplynm2 = grpADsPath2.remove(0, 7)
        grpdsplynm2.ToString()
        oRecordSet2.MoveNext()
    End While
    Dim groupDN2 As String = "" & grpdsplynm2 & ""
    Dim filter As String = [String].Format("(&(objectClass=user)(objectCategory=person)(memberOf={0}))", groupDN2)

    Me.LBgrpmem.AutoPostBack = True
    Me.LBgrpmem.DataSource = FindUsers(filter, New String() {"sAMAccountName", "displayName"}, sDomainADsPath2, True)
    Me.LBgrpmem.DataValueField = "sAMAccountName"
    Me.LBgrpmem.DataTextField = "displayName"
    Me.LBgrpmem.DataBind()
    Me.LBgrpmem.Items.Insert(0, New ListItem("-- Current Members --"))
    Me.Controls.Add(LBgrpmem)

    Dim usrDN As String = "" & grpdsplynm2 & ""
    usrDN.ToString()
    Dim usrfilter As String = [String].Format("(&(objectClass=user)(objectCategory=person)(!memberOf={0}))", groupDN2)

    Me.LBaddgrp.AutoPostBack = True
    Me.LBaddgrp.DataSource = FindUsers(usrfilter, New String() {"sAMAccountName", "displayName"}, sDomainADsPath2, True)
    Me.LBaddgrp.DataTextField = "displayName"
    Me.LBaddgrp.DataValueField = "sAMAccountName"
    Me.LBaddgrp.DataBind()
    Me.LBaddgrp.Items.Insert(0, New ListItem("-- Add Users --"))
    'AddHandler LBaddgrp.SelectedIndexChanged, New EventHandler(AddressOf DLAdd_SelectedIndexChanged)
    Me.Controls.Add(LBaddgrp)


End Sub

Public Function FindUsers(ByVal sFilter As String, ByVal columns() As String, ByVal path As String, ByVal useCached As Boolean) As Data.DataSet

    Dim oRootDSE = GetObject("LDAP://RootDSE")
    Dim sDomainADsPath = "LDAP://" & oRootDSE.Get("defaultNamingContext")

    'try to retrieve from cache first
    Dim context As HttpContext = HttpContext.Current
    Dim userDS As Data.DataSet = CType(context.Cache(sFilter), Data.DataSet)

    If userDS Is Nothing Or Not useCached Then
        'setup the searching entries
        Dim deParent As New DirectoryServices.DirectoryEntry(sDomainADsPath, "ADMINUSER@Domain.com", "ADMINPASSWORD", DirectoryServices.AuthenticationTypes.Secure)

        Dim ds As New DirectoryServices.DirectorySearcher(deParent, sFilter, columns, DirectoryServices.SearchScope.Subtree)

        ds.PageSize = 1000
        ds.Sort.PropertyName = "displayName" 'sort option

        Using (deParent)
            userDS = New Data.DataSet("userDS")
            Dim dt As Data.DataTable = userDS.Tables.Add("users")
            Dim dr As Data.DataRow

            'add each parameter as a column
            Dim prop As String
            For Each prop In columns
                dt.Columns.Add(prop, GetType(String))
            Next prop

            Dim src As DirectoryServices.SearchResultCollection = ds.FindAll
            Try
                Dim sr As DirectoryServices.SearchResult
                For Each sr In src
                    dr = dt.NewRow()
                    For Each prop In columns
                        If sr.Properties.Contains(prop) Then
                            dr(prop) = sr.Properties(prop)(0)
                        End If
                    Next prop
                    dt.Rows.Add(dr)
                Next sr
            Finally
                src.Dispose()
            End Try
        End Using
        'cache it for later, with sliding window
        context.Cache.Insert(sFilter, userDS, Nothing, DateTime.MaxValue, TimeSpan.FromSeconds(10))
    End If
    Return userDS
End Function 'FindUsers


Protected Sub DLAdd_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) 'Handles Click_btnadd

    Dim oRootDSE = GetObject("LDAP://RootDSE")
    Dim sDomainADsPath = "LDAP://" & oRootDSE.Get("defaultNamingContext")
    Dim oCon As New ADODB.Connection
    Dim oRecordSet As New ADODB.Recordset
    Dim oRcrdSet As New ADODB.Recordset
    Dim oCmd As New ADODB.Command
    Dim oCmd1 As New ADODB.Command
    Dim sGroup = "*"
    Dim sProperties = "name,ADsPath,description,member,memberof,proxyAddresses"
    Dim grpADsPath
    Dim grpdsplynm
    Dim addusrADsPath
    Dim addusrname


    oRootDSE = Nothing
    oCon.Provider = "ADsDSOObject"
    oCon.Open("ADProvider", "ADMINUSER@Domain.com", "ADMINPASSWORD")
    oCmd.ActiveConnection = oCon
    oCmd1.ActiveConnection = oCon

    oCmd.CommandText = "<" & sDomainADsPath & ">;(&(objectClass=group)(cn=" & LBgrp.SelectedItem.Text & "));" & sProperties & ";subtree"
    oRecordSet = oCmd.Execute
    'Group Query
    While Not oRecordSet.EOF
        grpADsPath = oRecordSet.Fields("ADsPath").Value
        grpdsplynm = oRecordSet.Fields("name").Value
        oRecordSet.MoveNext()
    End While

    oCmd1.CommandText = "<" & sDomainADsPath & ">;(&(objectCategory=person)(objectClass=user)(cn=" & LBaddgrp.SelectedItem.Text & "));" & sProperties & ";subtree"
    oRcrdSet = oCmd1.Execute
    'User query
    While Not oRcrdSet.EOF
        addusrADsPath = oRcrdSet.Fields("ADsPath").Value
        addusrname = oRcrdSet.Fields("name").Value
        oRcrdSet.MoveNext()
    End While

    ' Bind directly to the group
    '

    Dim oRootDSE2 = GetObject("LDAP://RootDSE")
    Dim sDomainADsPath2 = "LDAP://" & oRootDSE2.Get("defaultNamingContext")
    Dim oCon2 As New ADODB.Connection
    Dim oRecordSet2 As New ADODB.Recordset
    Dim sFullUser2 As String = Environment.UserName
    'Dim sFullUser2 = Request.ServerVariables("LOGON_USER")
    'Dim sUser2 = Split(sFullUser2, "\", -1)
    Dim oCmd2 As New ADODB.Command
    Dim sProperties2 = "name,ADsPath,description,member,memberof,managedObjects"
    Dim grpADsPath2
    oRootDSE2 = Nothing
    oCon2.Provider = "ADsDSOObject"
    oCon2.Open("ADProvider", "ADMINUSER@Domain.com", "ADMINPASSWORD")
    oCmd2.ActiveConnection = oCon2
    oCmd2.CommandText = "<" & sDomainADsPath2 & ">;(&(objectCategory=group)(objectClass=group)(CN=" & LBgrp.SelectedItem.Text & "));" & sProperties2 & ";subtree"

    oRecordSet2 = oCmd2.Execute
    While Not oRecordSet2.EOF
        grpADsPath2 = oRecordSet2.Fields("ADsPath").Value
        oRecordSet2.MoveNext()
    End While


    Dim group As New DirectoryServices.DirectoryEntry("" & grpADsPath2 & "", "ADMINUSER@Domain.com", "ADMINPASSWORD", DirectoryServices.AuthenticationTypes.Secure)

    Dim user As New DirectoryServices.DirectoryEntry(addusrADsPath, "ADMINUSER@Domain.com", "ADMINPASSWORD", DirectoryServices.AuthenticationTypes.Secure)


    Dim isMember As Boolean = Convert.ToBoolean(group.Invoke("IsMember", New Object() {user.Path}))
    If isMember Then
        '
        ' TO CREATE ERROR MESSAGE
    Else
        ' Add the user to the group by invoking the Add method
        '
        group.Invoke("Add", New Object() {user.Path})
    End If

    If Not IsNothing(user) Then
        user.Dispose()
    End If
    If Not IsNothing(group) Then
        group.Dispose()
    End If
    Console.ReadLine()

    If (Err.Number <> 0) Then
        ' TO CREATE ERROR MESSAGE
    Else
        ' TO CREATE SUCCESS MESSAGE
    End If
End Sub

Protected Overrides Sub Render(writer As System.Web.UI.HtmlTextWriter)


    LBgrp.RenderControl(writer)
    LBgrpmem.RenderControl(writer)
    LBaddgrp.RenderControl(writer)
    btnadd.RenderControl(writer)


End Sub

End Class

Answer 1

如果内存正确地为我提供服务，则Page_Load事件也会在回发中触发，您尝试创建下拉列表的另一个实例。因此系统尝试从ViewState重新创建ListBox的状态，但它不是相同的ListBox，因为您刚刚重新创建它。它吠叫。

为了避免这种情况，在page_load中只创建“父”下拉，如果它不是回发。即。

Begin Page_Load()
    If !Page.IsPostBack() Then 
         'load code here
    End If
End Page_Load

也没有必要写 Me.LBgrpmem =新列表框

因为它已经创建了。更改数据源通常很有用。

Sharepoont 2010 webpart vb.net Listbox SelectIndexChanged和错误

1 个答案: