<!--#include file="Top.asp" -->
<%
Dim ClassName,ClassID,Values,ClassCode,SysCode
SysCode=SESSION("User_Class")
GetErrInfo=" 【您可以对您创建的部落进行修改或删除操作,别的人加入到您所创建的群,你可以选中后点踢出而踢掉您所选的用户】"
Call BuoLuoClass()
Set Rs=Conn.execute("Select ID,ClassName,ClassCode,Bid,UserID,(Select User_Name From TB_USER Where ID=Tb_BuoLuo.UserID) from Tb_BuoLuo Where Bid in(Select id from Tb_BuoLuo Where Userid="& Session("UserID") &") OR (Bid=0 And Userid="& Session("UserID") &") Order BY ClassName Asc,Bid Asc")
SqlCount=SqlCount+1
If Not RS.Eof and Not Rs.Bof then
	Dim ClassArr
	ClassArr=Rs.GetRows()
End If
RS.Close:Set Rs=NotHing
%>

<table width="99%" border="0" align="center" cellpadding="5" cellspacing="0">
  <tr> 
    <td height="30" bgcolor="#FFFFFF"><table width="300" border="0" align="right" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="120" class="box3"> <div align="center"><a href="Article_GroupByBl.Asp">我创建的部落</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Article_GroupByAddBl.Asp">我加入的部落</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Article_GroupByBlList.Asp">部落文章管理</a></div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="30" bgcolor="#FFFFFF" class="h1"><img src="img/GuestBook.gif" width="23" height="21"> 
      我创建的部落管理 
      <hr size="0"></td>
  </tr>
  <tr> 
    <td valign="top" bgcolor="#FFFFFF" class="h1"> <table width="100%" border="0" cellspacing="0" cellpadding="10">
        <tr> 
          <td class="box"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="2%" valign="middle"><img src="img/3.gif" width="16" height="16"></td>
                <td width="98%" valign="middle"><%=GetErrInfo%></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td><table width="578" border="0" align="center" cellpadding="5" cellspacing="1" class="box">
              <%
		  If IsArray(ClassArr) Then
		  For iii=0 TO Ubound(ClassArr,2)
		  %>
              <tr bgcolor="#EFEFEF"> 
                <td width="17"> <div align="center"><img src="img/hy.gif" width="16" height="16"></div></td>
                <td width="456"> 
				  <%
				  IF ClassArr(4,iii)=Session("UserID") And ClassArr(3,iii)=0 Then
					  Response.Write ClassArr(1,iii) & "【我创的群】"
				  Else
				  	  Response.Write "├[<a href="""& CblogObj.GetDir(ClassArr(4,iii)) &""" target=""_blank"">"& ClassArr(5,iii) &"</a>]"
				  End IF
				  %>
                </td>
                <td width="30"> <div align="center"> 
                    <%IF ClassArr(4,iii)<>Session("UserID") Then%>
                    <a href="?ActIon=kick&ClassID=<%=ClassArr(0,iii)%>&ClassName=<%=server.URLEncode(ClassArr(1,iii))%>">踢掉</a> 
                    <%Else%>
                    <a href="?ClassID=<%=ClassArr(0,iii)%>&ClassName=<%=server.URLEncode(ClassArr(1,iii))%>&ClassCode=<%=ClassArr(2,iii)%>">修改</a> 
                    <%End IF%>
                  </div></td>
                <td width="30"> <div align="center"> 
                    <%IF ClassArr(4,iii)=Session("UserID") Then%>
                    <a href="?Action=DelClass&ClassID=<%=ClassArr(0,iii)%>"><img src="img/cross.gif" alt="删除" width="14" height="13" border="0" /></a> 
                    <%End IF%>
                  </div></td>
              </tr>
              <%
		Next
		ClassArr=Empty
		Else
			Response.Write ("<tr bgcolor=""#efefef""><td colspan=""4""><div align=""center"">对不起，您还没有创建任何部落！</div></td></tr>")
		End If
		%>
            </table></td>
        </tr>
        <tr> 
          <td><div align="center"> 
              <form name="form1" method="post" action="">
                <strong>部落分类： 
                <%
				IF Values="修改" Then SysCode=ClassCode
				CBlogObj.ClassCodeList SysCode,"TB_SYS_CLASS","ClassCodelist","部落"
				%>
                </strong> 
                <input name="ClassName" type="hidden" id="ClassName" value="<%=ClassName%>">
                <input name="ClassID" type="hidden" value="<%=ClassID%>">
                <input name="Blog_Class" type="text" value="<%=ClassName%>" maxlength="20">
                <input name="Submit" type="submit" value="<%=Values%>">
                <%IF Values="修改" Then Response.Write "<input name=""Submit"" type=""submit"" value=""创建"">"%>
              </form>
            </div></td>
        </tr>
        <tr> 
          <td class="box"> <div align="center">注意:部落名称不得超过10个字符,多于10个字符,系统会自动切断!</div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  <tr bgcolor="#0066CC" height="2"> 
    <td height="2"></td>
  </tr>
</table>
<!--#include file="Foot.asp" -->
