<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"

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"
%>
<html>
<head>
<title><%=Application("zhbg_chatroomname")%>门派管理</title>
<link href="../../../css.css" rel="stylesheet" type="text/css">
</head>
<body  text="#000000" vlink="#FF9900"
leftmargin="0" topmargin="0">
<p align="center">
<%
id=request("id")
if instr(id,"官")<>0 then
		Response.Write "<script language=JavaScript>{alert('严重警告，不要搞乱');window.close();}</script>"
		Response.End
end if
my=request("my")
%>
<a href="javascript:this.location.reload()">【刷新】</a> <a href="javascript:history.go(-1)">【返回】</a></font>
<table border="0" width="88%" cellspacing="0" cellpadding="0" align="center">
  <tr align="center">
    <td width="100%" height="26" align="center" valign="middle"> 
      <div align="center"><font
color="#FF6600"><b><font size="+1">江 湖 门 派</font></b></font></div></td>
</tr>
<tr align="center">
<td>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#cccccc" height="13">
        <tr>
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT * FROM 用户 where 门派='"&id&"'",conn
%>
<td width="57">
<div align="center">ID</div>
</td>
<td width="94">
<div align="center">姓名</div>
</td>
<td width="46">
<div align="center">性别</div>
</td>
<td width="89">
<div align="center">身份</div>
</td>
<td width="133">
<div align="center">注册ip</div>
</td>
<td width="127">
<div align="center">注册时间</div>
</td>
<td width="65">
<div align="center">登录</div>
</td>
<td width="82">
<div align="center">总积分</div>
</td>
<td width="96">
<div align="center">站长操作</div>
</td>
<td width="86">
<div align="center">掌门操作</div>
</td>
</tr>
<%
do while not rs.bof and not rs.eof
%>
<tr>
<td width="57" height="30">
<div align="center"><%=rs("ID")%></div>
</td>
<td width="94" height="30">
<div align="center"><a href="../../yamen/mt.asp?action=<%=rs("姓名")%>"><%=rs("姓名")%></a></div>
</td>
<td width="46" height="30">
<div align="center"><%=rs("性别")%></div>
</td>
<td width="89" height="30">
<div align="center"><%=rs("身份")%></div>
</td>
<td width="133" height="30">
<div align="center">
<%if zhbg_grade>=9 then%>
	<%=rs("regip")%>
<%else%>
	无权查看
<%end if%>
</div>
</td>
<td width="127" height="30">
<div align="center">
<%if zhbg_grade>=9 then%>
	<%=rs("regtime")%><br>
	<%=rs("lasttime")%>
<%else%>
	<%=rs("regtime")%>
<%end if%>
</div>
</td>
<td width="65" height="30">
<div align="center"><%=rs("times")%></div>
</td>
<td width="82" height="30">
<div align="center"><%=rs("allvalue")%></div>
</td>
<td width="96" height="30">
<div align="center"><a href="MP4.ASP?you=<%=rs("姓名")%>&id=<%=rs("门派")%>"><font color="#0000FF">
              <%if zhbg_grade=10 then%>
              站长逐出 
              <%else%>
              无权 
              <%end if%>
              </font></a> </div>
</td>
<td width="86" height="30">
<div align="center"><a href="MP3.ASP?you=<%=rs("姓名")%>&id=<%=rs("门派")%>"><font color="#0000FF">逐出师门</font></a></div>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</td>
</tr>
</table>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>

