<%@ LANGUAGE=VBScript codepage ="936" %><%Response.Expires=0
Response.Buffer=true

zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../error.asp?id=440"
if session("zhbg_adminok")<>true then Response.Redirect "../chat/readonly/bomb.htm"
if zhbg_grade<>10 or instr(Application("zhbg_user"),zhbg_name)=0  then Response.Redirect "../error.asp?id=439"
if zhbg_name<>Application("zhbg_adminuser") then Response.Redirect "../chat/readonly/bomb.htm"
%>
<html>
<head>
<title>门派管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href='../css.css' type=text/css rel=stylesheet>
<script language="JavaScript">
function shutwin()
{
window.close();
return;
}
</script>
</head>
<body >
<p align="center"> <font size="2">
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
set rs=server.createobject("adodb.recordset")
conn.open Application("zhbg_usermdb")
rs.open "Select * From p",conn,0,1
if not rs.eof then
%><font color="#FF3333" size="5" face="黑体">[ 门派管理 ]</font></font></p>
<p align="center"><font size="2">在门派管理里面，长老可以更改掌门名，删除掌门身份，和修改掌门资料！</font></p>
<table width="100%" border="8" align="center" cellpadding="3" cellspacing="0" bordercolor="#cccccc" >
  <tr bgcolor="#cccccc"> 
    <td width="57" align="center"><font color="#FFFFFF" size="2">&nbsp;门 派</font></td>
    <td width="40" align="center"><font size="2" color="#FFFFFF">弟子</font></td>
    <td width="65" align="center"><font color="#FFFFFF" size="2">掌 门</font></td>
    <td width="270" align="center"><font color="#FFFFFF" size="2">限制及表达式</font></td>
    <td width="161" align="center"><font size="2" color="#FFFFFF">简 介</font></td>
    <td width="62" align="center"><font size="2" color="#FFFFFF">基金</font></td>
    <td width="66" align="center"><font color="#FFFFFF" size="2">操 作</font></td>
  </tr>
  <%do while not rs.eof%>
  <tr> 
    <td width="57"> 
      <div align="center"><font size="2"><%=rs("a")%></font></div>
    </td>
    <td width="40"> 
      <div align="right"><font size="2"><%=rs("c")%>个</font></div>
    </td>
    <td width="65"> 
      <div align="center"><font size="2"><%=rs("b")%></font></div>
    </td>
    <td width="270"> 
      <div align="center"><font size="2"> <%=rs("e")%><br>
        </font>[<font size="2"><%=rs("g")%></font>]</div>
    </td>
    <td width="161"><font size="2"><%=rs("d")%></font></td>
    <td width="62"> 
      <div align="center"><font size="2"><%=rs("h")%></font></div>
    </td>
    <td width="66"> 
      <div align="center"><font size="2"><a href=delzm.asp?username=<%=rs("a")%> title="删除掌门">开</a> 
        <a href="delmp.asp?rs=<%=rs("a")%>&action=delete" title="删除门派">删</a> </font><font size="2"><a href="managemp.asp?id=<%=rs("a")%>" title="修改门派资料！">修</a></font></div>
    </td>
  </tr>
  <%rs.movenext
loop %>
  <% else %>
</table>
<table width="54%" border="0" cellspacing="0" cellpadding="0" height="40" align="center">
<tr>
<td>
<div align="center"><font size="2">删除门派会将档案中所有该门派的人--门派置为“无”，身份为“无”，同时删除论坛中该门派的所有帖子，长老，考虑好再按“删除”啊。<br>
(删除门派暂时还不扣掌门人的任何状态，长老要加上也行啊)</font></div>
</td>
</tr>
</table>
<p>&nbsp;</p>
<table align="center" width="197">
<td height="14">
<div align="center"><font size="2">还没有一个门派呢！</font>  <% rs.close
set rs=nothing
end if%> </div>
</table>
<div align="center"></div>
<p align="center"><font size="2" color="#FF0000">[<a href="adminmpp.asp">====刷新====</a>]</font>
</body>
