1、空间部分审核用户加入自己的圈子时，能够看到所有用户的圈子

在user/User_Team.asp的619行找到以下代码  

    <%
               If KS.S("page") <> "" Then
                CurrentPage = KS.ChkClng(KS.S("page"))
       Else
          CurrentPage = 1
       End If
         Dim Sql:sql = "select * from KS_TeamUsers where status=2  order by AddDate DESC"
            Call KSUser.InnerLocation("审核申请加入圈子")
   
          %>

将其改为

      <%
               If KS.S("page") <> "" Then
                CurrentPage = KS.ChkClng(KS.S("page"))
       Else
          CurrentPage = 1
       End If
         Dim Sql:sql = "select * from KS_TeamUsers where status=2 and teamid="&KS.S("id")&" order by AddDate DESC"
            Call KSUser.InnerLocation("审核申请加入圈子")
   
          %>

2、我加入的圈子，在列表时，无法正确获得圈子的ID

在user/User_Team.asp的407行找到以下代码 

      <%
               If KS.S("page") <> "" Then
                CurrentPage = KS.ChkClng(KS.S("page"))
       Else
          CurrentPage = 1
       End If
                                   
         Dim Param:Param=" Where UserName='"& KSUser.UserName &"'"
         Dim Sql:sql = "select b.username,a.id,b.teamname,b.photourl,b.adddate from ks_teamusers a, ks_team b where a.status=3 and a.teamid=b.id and a.username='" & ksuser.username & "' and b.username<>'" & ksuser.username & "' order by a.Adddate desc"
            Call KSUser.InnerLocation("我加入的圈子")
   
          %>

将其改为

      <%
               If KS.S("page") <> "" Then
                CurrentPage = KS.ChkClng(KS.S("page"))
       Else
          CurrentPage = 1
       End If
                                   
         Dim Param:Param=" Where UserName='"& KSUser.UserName &"'"
         Dim Sql:sql = "select b.username,b.id,b.teamname,b.photourl,b.adddate from ks_teamusers a, ks_team b where a.status=3 and a.teamid=b.id and a.username='" & ksuser.username & "' and b.username<>'" & ksuser.username & "' order by a.Adddate desc"
            Call KSUser.InnerLocation("我加入的圈子")
   
          %>