<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="check.asp"-->
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
Response.Expires=0
%>
<html><head><title>门派管理</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><link href="jh.css" rel="stylesheet" type="text/css"></head>
<body background="images/bk2.gif">
<div align="center"> 
  <table width="80%" border="1" align="center" cellpadding="0" cellspacing="0"  bordercolor="#000000" bordercolordark="#FFFFFF">
    <tr align="center"> 
      <td colspan="6">现 有 管 理 员 列 表</td>
    </tr>
    <tr align="center"> 
      <td width="20%">管理员名</td>
      <td width="12%">管理等级级</td>
      <td width="24%">门派</td>
      <td width="21%">身份</td>
      <td width="23%">操作</td>
    </tr>
    <%Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("sjjh_usermdb")
rs.open "SELECT * from [sjjh_jhuser] where jh_mp='官府' or grade>=6 order by grade desc",conn,1,1
do while not rs.bof and not rs.eof%>
    <tr align="center"> 
      <form method=POST action='jhgl.asp?act=gfgl'>
        <td> <input type="text" name="name"  readonly size="10" maxlength="10" value="<%=rs("jh_name")%>"></td>
        <td><select name=grade size=1 id="grade" >
            <option value="6" <%if rs("grade")=6 then%>selected<%end if%>>6</option>
            <option value="7" <%if rs("grade")=7 then%>selected<%end if%>>7</option>
            <option value="8" <%if rs("grade")=8 then%>selected<%end if%>>8</option>
            <option value="9" <%if rs("grade")=9 then%>selected<%end if%>>9</option>
            <option value="10" <%if rs("grade")=10 then%>selected<%end if%>>10</option>
            <option value="11" <%if rs("grade")=11 then%>selected<%end if%>>11</option>
          </select> </td>
        <td> <input type="text" name="mp" readonly size="10" maxlength="10" value="<%=rs("jh_mp")%>"></td>
        <td> <input type="text" name="sf"  size="10" maxlength="10" value="<%=rs("jh_sf")%>"></td>
        <td> <input name="submit" type=submit id="submit" value=修改 > <input name="submit" type=submit id="submit" value=删除 >
          <input name="submit" type=submit id="submit2" value=评选 ></td>
      </form>
    </tr>
<%rs.movenext
loop
rs.close
%>
    <tr align="center"> <form method=POST action='jhgl.asp?act=gfgl'>
      <td colspan="5">
          要添加的管理员名: 
          <input type="text" name="name"   size="15" maxlength="10" value="">
          <select name=grade size=1 >
            <option value="6" selected>6</option>
            <option value="7" >7</option>
            <option value="8" >8</option>
            <option value="9" >9</option>
            <option value="10" >10</option>
          </select>
          <input name="submit" type=submit id="submit" value=添加>
</td>        </form>
    </tr>
  </table>
</div>
<br>
<table width="80%" border="1" align="center" cellpadding="0" cellspacing="0"  bordercolor="#000000" bordercolordark="#FFFFFF">
  <tr align="center"> 
    <td colspan="8">世纪江湖管理员在线评选表 <a href="gftplist.ASP" target="_blank"><font color="#0000FF"><strong>查看全部投票者</strong></font></a></td>
  </tr>
  <tr align="center"> 
    <td width="18%" height="15">管理员名</td>
    <td width="7%">管理级</td>
    <td width="12%">就任时间</td>
    <td width="11%">在线时间</td>
    <td width="11%">月在线时间</td>
    <td width="11%">所得票数</td>
    <td width="30%" >操作</td>
  </tr>
  <%
rs.open "sjjh_gradetp",conn,1,1
records=rs.recordcount
rs.close
rs.open "SELECT * from [sjjh_grade]  order by g_f desc",conn,1,1
do while not rs.bof and not rs.eof
%>
  <tr> 
    <form method=POST action='jhgl.asp?act=gfgl'>
      <td align="center"> <input name="name" type="text" id="name" value="<%=rs("g_a")%>" size="10" maxlength="10"  readonly></td>
      <td align="center"> <select name=grade size=1 >
          <option value="6" <%if rs("g_b")=6 then%>selected<%end if%>>6</option>
          <option value="7" <%if rs("g_b")=7 then%>selected<%end if%>>7</option>
          <option value="8" <%if rs("g_b")=8 then%>selected<%end if%>>8</option>
          <option value="9" <%if rs("g_b")=9 then%>selected<%end if%>>9</option>
          <option value="10" <%if rs("g_b")=10 then%>selected<%end if%>>10</option>
          <option value="11" <%if rs("g_b")=11 then%>selected<%end if%>>11</option>
        </select></td>
      <td align="center"><%=rs("g_c")%></td>
      <td align="center"><%=rs("g_d")%></td>
      <td align="right"><%=rs("g_e")%></td>
      <td align="center"><%=rs("g_f")%>/<font color=red><b><%=records%></b></font></td>
      <td align="center"><input name="submit" type=submit id="submit4" value=修改资料 > 
        <input name="submit" type=submit id="submit" value=删除评选 ></td>
    </form>
  </tr>
  <%rs.movenext
loop
rs.close
%>
  <tr>     <form method=POST action='jhgl.asp?act=gfgl'>
    <td colspan="7" align="center"><input name="submit" type=submit id="submit3" value=清空投票记录 >
        <input name="submit" type=submit id="submit5" value=清空所有在线时间 ></td>
    </form>  </tr>
</table>
</html>