<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%if session("adminname")="" then
response.Redirect "../login.asp"
end if%>
<%
Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
Sub Msg (v)
 Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><style type=text/css>body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}</style></head><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>"
 Response.Write "<script Language=JavaScript>alert('" & v & "');window.close();</script></body></html>"
 Response.End
End Sub
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
inthechat=Session("hxf_u_inthechat")
If nickname = "" Then Msg "不在聊天室中，不能定义权限。"
if Session("hxf_u_inthechat")<>"1" and nickname<>"聊天室管理员" then Msg "不在聊天室中，不能定义权限。"
If grade <> 12 or Int(Session("ipbt"))<>1 Then Msg "你没有定义权限的权利！"
grade = Request.QueryString("grade")
If grade = "" Or Not IsNumeric(grade) Then Msg "指定的级别错误！"
grade = Int(grade)
If grade < 1 Or grade > 11 Then Msg "级别必须是 1 - 11 的正整数！"
gr = Application("wsaxhxf_c_grade" & grade)
g = Split(gr, "{]")
%>
<html>
<head>
<title><%=grade%>级权限定义</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<style type=text/css>
body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}
td{font-family:宋体;font-size:9pt;}
input{font-family:宋体;font-size:9pt;}
select{font-family:宋体;font-size:9pt;}
</style>
<script language=Javascript>
function check(){
 if(!confirm('是否真的要重定义该级别的权限？')){
  return false;
 }
 document.send.ok.disabled = 1;
 return true;
}
</script>
</head>
<body leftmargin="5" topmargin="5">
<div align="center">
<table border="0" align="center" cellpadding="5" cellspacing="3">
<tr>
<td><font size="3">定义 <%=grade%> 级权限</font></td>
</tr>
</table>
</div>
<table border="0" cellspacing="2" cellpadding="1" align="center">
<form name="send" method="post" action="manquanxian2.asp?grade=<%=grade%>" onSubmit="return(check())">
<tr> 
<td>01.查看操作系统</td>
<td> 
<input type=checkbox name=x1 value=1<%If g(0) = 1 Then Response.Write " checked"%>>
</td>
<td rowspan="12" bgcolor="#AAAAAA" width="0"></td>
<td>13.解禁帐号</td>
<td> 
<input type=checkbox name=x13 value=1<%If g(12) = 1 Then Response.Write " checked"%>>
</td>
<td rowspan="12" bgcolor="#AAAAAA" width="0"></td>
<td>25.看日常管理日志</td>
<td> 
<input type=checkbox name=x25 value=1<%If g(24) = 1 Then Response.Write " checked"%>>
</td>
</tr>
<tr> 
<td>02.查看进入时间</td>
<td><input type=checkbox name=x2 value=1<%If g(1) = 1 Then Response.Write " checked"%>></td>
<td>14.禁用帐号</td>
<td><input type=checkbox name=x14 value=1<%If g(13) = 1 Then Response.Write " checked"%>></td>
<td>26.看货币流通日志</td>
<td><input type=checkbox name=x26 value=1<%If g(25) = 1 Then Response.Write " checked"%>></td>
</tr>
<tr> 
<td>03.看未存点分数</td>
<td><input type=checkbox name=x3 value=1<%If g(2) = 1 Then Response.Write " checked"%>></td>
<td>15.管理留言簿</td>
<td><input type=checkbox name=x15 value=1<%If g(14) = 1 Then Response.Write " checked"%>></td>
<td>27.看级别调整日志</td>
<td><input type=checkbox name=x27 value=1<%If g(26) = 1 Then Response.Write " checked"%>></td>
</tr>
<tr> 
<td>04.看停留时间</td>
<td><input type=checkbox name=x4 value=1<%If g(3) = 1 Then Response.Write " checked"%>></td>
<td>16.聊天室贴图</td>
<td><input type=checkbox name=x16 value=1<%If g(15) = 1 Then Response.Write " checked"%>></td>
<td>28.看帐号管理日志</td>
<td><input type=checkbox name=x28 value=1<%If g(27) = 1 Then Response.Write " checked"%>></td>
</tr>
<tr> 
<td>05.看IP段数</td>  
<td>  
<select name="x5">  
<%  
For i = 0 To 4  
 If Int(g(4)) = i Then  
  Response.Write "<option value=" & i & " selected>" & i & "</option>"  
 Else  
  Response.Write "<option value=" & i & ">" & i & "</option>"  
 End If  
Next  
%>  
</select>  
</td>  
<td>17.聊天室标题</td>  
<td><input type=checkbox name=x17 value=1<%If g(16) = 1 Then Response.Write " checked"%>></td>  
<td>29.看酷库管理日志</td>  
<td><input type=checkbox name=x29 value=1<%If g(28) = 1 Then Response.Write " checked"%>></td>  
</tr>  
<tr>   
<td>06.查看级别</td>  
<td><input type=checkbox name=x6 value=1<%If g(5) = 1 Then Response.Write " checked"%>></td>  
<td>18.永久保留帐号</td>  
<td><input type=checkbox name=x18 value=1<%If g(17) = 1 Then Response.Write " checked"%>></td>  
<td>30.看系统调整日志</td>  
<td><input type=checkbox name=x30 value=1<%If g(29) = 1 Then Response.Write " checked"%>></td>  
</tr>  
<tr>   
<td>07.踢人</td>  
<td><input type=checkbox name=x7 value=1<%If g(6) = 1 Then Response.Write " checked"%>></td>  
<td>19.永久封锁 IP 段</td>  
<td><input type=checkbox name=x19 value=1<%If g(18) = 1 Then Response.Write " checked"%>></td>  
<td>31.允许最高升级</td>  
<td>
<select name="x31">  
<%  
For i = 0 To Int((Int(grade) - 1))  
 If Int(g(30)) = i Then  
  Response.Write "<option value=" & i & " selected>" & i & "</option>"  
 Else  
  Response.Write "<option value=" & i & ">" & i & "</option>"  
 End If  
Next  
%>  
</select>  
</td>  
</tr>  
<tr>   
<td>08.炸人</td>  
<td><input type=checkbox name=x8 value=1<%If g(7) = 1 Then Response.Write " checked"%>></td>  
<td>20.动作库管理</td>  
<td><input type=checkbox name=x20 value=1<%If g(19) = 1 Then Response.Write " checked"%>></td>  
<td></td>  
<td></td>  
</tr>  
<tr>   
<td>09.解锁IP</td>  
<td><input type=checkbox name=x9 value=1<%If g(8) = 1 Then Response.Write " checked"%>></td>  
<td>21.无限制降级</td>  
<td><input type=checkbox name=x21 value=1<%If g(20) = 1 Then Response.Write " checked"%>></td>  
<td></td>  
<td></td>  
</tr>  
<tr>   
<td>10.封锁IP</td>  
<td><input type=checkbox name=x10 value=1<%If g(9) = 1 Then Response.Write " checked"%>></td>  
<td>22.无限制升级</td>  
<td><input type=checkbox name=x22 value=1<%If g(21) = 1 Then Response.Write " checked"%>></td>  
<td></td>  
<td></td>  
</tr>  
<tr>   
<td>11.禁止自动升级</td>  
<td><input type=checkbox name=x11 value=1<%If g(10) = 1 Then Response.Write " checked"%>></td>  
<td>23.罚款</td>  
<td><input type=checkbox name=x23 value=1<%If g(22) = 1 Then Response.Write " checked"%>></td>  
<td></td>  
<td></td>  
</tr>  
<tr>   
<td>12.解禁自动升级</td>  
<td><input type=checkbox name=x12 value=1<%If g(11) = 1 Then Response.Write " checked"%>></td>  
<td>24.奖励</td>  
<td><input type=checkbox name=x24 value=1<%If g(23) = 1 Then Response.Write " checked"%>></td>  
<td></td>  
<td></td>  
</tr>  
<tr align="center">   
<td colspan="10"> <br>  
<input type="submit" name="ok" value="确定(O)" accesskey="o">  
<input type="reset" name="reset" value="重设(R)" accesskey="r">  
<input type="button" name="quit" value="关闭(Q)" accesskey="q" onclick="window.close()">  
</td>  
</tr>  
</form>  
</table>  
</body></html>  
