If KS.FoundInArr(Replace(Request("AdminPurview")," ",""),RSC(1),",") Then
        If KS.IsNul(RSC(0)) Then
      RSC(0)=UserName
     Else
      RSC(0)=FilterRepeat(RSC(0) & "," & UserName,",")
     End If
     RSC.Update
     Else
        If KS.IsNul(RSC(0)) Then
      RSC(0)=""
     Else
      If Instr(RSC(0),",")=0 Then
       RSC(0)=""
      Else
       RSC(0)=Replace(Replace(RSC(0),UserName &",",""),","&UserName,"")
      End If
     End If
        RSC.Update
     End If
     Dim ENode:Set ENode=Application(KS.SiteSN&"_class").DocumentElement.SelectSingleNode("class[@ks0='" & RSC(1) & "']")

我的代码感觉不像样，不但要添加，还要删除？