<%@ 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><%=Application("zhbg_chatroomname")%>管理员设置程序</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href='../css.css' type=text/css rel=stylesheet>
</head>
<body bgcolor="#FFFFFF" >
<div align="center"><font size="+2" face="楷体_GB2312"><%=Application("zhbg_chatroomname")%>管理员设置程序</font><br>
  <%Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT * FROM 用户 where 门派='官府' or grade>=6 order by -grade",conn,2,2
do while not rs.bof and not rs.eof%>
</div>
<form method=POST action='gladminok.asp'>
<div align="center">
<input type="text" name="name"  readonly size="15" maxlength="10" value="<%=rs("姓名")%>">
<select name=grade size=1  style="BACKGROUND-COLOR: #99CCFF; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000">
 <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>   
 </select>
 <input type="text" name="mp" readonly size="15" maxlength="10" value="<%=rs("门派")%>">
 <input type="text" name="sf"  size="15" maxlength="10" value="<%=rs("身份")%>">
<input type=submit value=修改 name="submit" style="border: 1px solid; font-size: 9pt; border-color:#000000 solid">
<input type=submit value=删除 name="submit" style="border: 1px solid; font-size: 9pt; border-color:#000000 solid">
</div>
</form>
<%
rs.movenext
loop
conn.close
%>
<form method=POST action='gladminok.asp'>
<div align="center">
<input type="text" name="name"   size="15" maxlength="10" value="">
<select name=grade size=1  style="BACKGROUND-COLOR: #99CCFF; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000">
 <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 type=submit value=添加 name="submit" style="border: 1px solid; font-size: 9pt; border-color:#000000 solid">
</div>
</form>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>