<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="../../const3.asp"-->
<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
cwjh_name=Session("cwjh_name")
cwjh_grade=Session("cwjh_grade")
cwjh_jhdj=Session("cwjh_jhdj")
nowinroom=session("nowinroom")
if cwjh_name="" then Response.Redirect "../error.asp?id=440"
chatbgcolor=Application("cwjh_chatbgcolor")
chatimage=Application("cwjh_chatimage")
if chatbgcolor="" then chatbgcolor="008888"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_usermdb")
rs.open "select * FROM 用户 WHERE 姓名='"&cwjh_name&"'",conn
zuzhuangtai=rs("组队")
zuname=rs("组名")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title>组队</title>
<style type="text/css">
<!--
body {  font-size: 9pt; color=000000}
td {  font-size: 9pt; color=000000}
A {text-decoration: none; color: #76f76f; font-family: "宋体"; font-size: 9pt}
a:hover      { color: ffffFF; font-family: 宋体; font-size: 9pt; text-decoration:
underline }
A:active {  font-family: "宋体"; font-style: normal;  color: ffffFF; text-decoration: underline; font-size: 9pt}
br {font-size:6pt; line-height:80%;}
-->
</style>
</head>
<body oncontextmenu=self.event.returnValue=false bgproperties="fixed" text="#FFFFFF" link="#FFFFFF" topmargin="10" vlink="#FFFFFF" leftmargin="0" background=../bg.gif>
<div align="center">
<table  border="1" cellspacing="0" cellpadding="2" width="128" bordercolorlight="#000000" bordercolordark="#FFFFFF"  bordercolor="#FFFFFF" >
    <tr> 
      <td align="center"> <font color="#FFFF00"><b><%=Application("cwjh_chatroomname")%>组队</b></font></td>
    </tr>
    <tr> 
      <td align="center"><%if rs("转生")>=2 then%>
<form method=post action=glzudui.asp?id=建立组队 name=form2>
<input name='zhm' type=text maxlength=5 size=8> <input type=submit name=opa value='建组'>
	<% end if %></td>
    </tr></form>
    <%
rs.close
rs.open "select * FROM 组队 WHERE 组名='"&zuname&"'",conn
if not(rs.eof or rs.bof) then
%>
<%if rs("组长")=cwjh_name then%>
<tr> 
   <td align="center">        
          <a href="glzudui.asp?id=删除组队">删除组队</a></td>
</tr>
    <tr>
      <td align="center"> 
<table width='98%' align=center border=1 cellspacing="0" cellpadding="3" bordercolorlight="#000000" bordercolordark="#FFFFFF" background=../bg.gif>
<form method=post action=jiazu.asp id=form1 name=form1>
    <tr> 
      <td width="50%"><font color="#FFFFFF">对象</font></td>
      <td width="50%"> 
        <input name='money' type=text maxlength=5 size=8>
      </td>
    </tr>
    <tr align="center"> 
      <td colspan="2"> <input type=submit name=op value='加组'>
      <input type=submit name=op value='踢出'></td>
    </tr>
</form>
</table> 
      </td>
    </tr>
    <tr> 
      <td align="center"> 
      </td>
    </tr>
<%end if%>
    <% else %>
        <tr> 
      <td align="center"> 
          <a href="zuzt.asp"><%if zuzhuangtai=flase then%>打开<% else %>关闭<%end if%>组队状态</a></td>
    </tr>
        <%
    end if
rs.close
rs.open "select 组名 FROM 用户 WHERE 姓名='"&cwjh_name&"'",conn
if rs("组名")<>"" or rs("组名")<>"无" then
zuname=rs("组名")
%>
<tr> 
   <td align="center"><font color="#FFFFFF">组名：<%=zuname%></td>
</tr>
<%
    end if
    rs.close
rs.open "select * FROM 组队 WHERE 组名='"&zuname&"'",conn
if not(rs.eof or rs.bof) then
%>
   <tr> 
      <td align="center"> 
          <a href="likai.asp">离开组</a></td>
    </tr>
    <tr> 
      <td align="center"> 
          <font color="#FFFFFF"> 
          本组人员[<%=rs("组员数")%>]人</font></td>
    </tr>
    <tr> 
      <td align="center"> <font color="#FFFFFF">
         <%=rs("组员")%> </font></td>
    </tr>
<%else%>
    <tr> 
      <td align="center"> 
        <font color="#FFFFFF"> 
        你还没有加入组</font> 　</td>
    </tr>         
<%end if
rs.close%>
    <tr>
 <td align="center"> 
          <font color="#FFFFFF">组队上限:<%=cwjh_zudui%></font></td>
    </tr>
  </table>
</div>
</body>
</html>
<%
set rs=nothing
conn.close
set conn=nothing
%>