📄 gradeeditto.asp
字号:
<!--#INCLUDE FILE="config.asp" -->
<%Response.Expires=0
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
gradeinfo=Application("gradeinfo")
if zzbird_master<>info(0) then Response.Redirect "err.asp?kind=62"
i=Request.Form("whatgrade")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>增加级别</title>
<style>
<!--
a:active { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
a:link { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
a:visited { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
a { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
body{SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #eeeeee;
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow}
body { font-size: 9pt; color: <%=zzbird_chattext%> }
.but { border-style: ridge; border-width: 1; background-color:
<%=zzbird_butbg%> ;color: <%=zzbird_buttext%>;CURSOR: hand; }
table { font-size: 10pt }
.inp { font-size: 9pt ;color: <%=zzbird_selecttext%>; background-color: <%=zzbird_selectbg%>}
-->
</style>
<script language="javascript">
<%if i<>0 and i<>1 then%>
function start()
{
if(document.ok.autoup.checked)
{document.ok.upvalue.disabled=0;}
else
{document.ok.upvalue.value="目前不是自动升级";document.ok.upvalue.disabled=1;}
}
<%end if%>
function test()
{if(document.ok.gradeall.checked)
{document.ok.gradeup.disabled=1;document.ok.gradeupmax.value='/';
document.ok.gradeupmax.disabled=1;
document.ok.gradedown.disabled=1;
document.ok.gradedownmin.value='/';
document.ok.gradedownmin.disabled=1;
}else
{document.ok.gradeup.disabled=0;
document.ok.gradeupmax.disabled=0;
document.ok.gradedown.disabled=0;
document.ok.gradedownmin.disabled=0;}}
</script>
</head>
<body onload="<%if i<>0 and i<>1 then Response.Write "start();"%>test();" bgcolor="<%=zzbird_chatbg%>" <%if zzbird_chatbgpic<>"" then%>background="<%=zzbird_chatbgpic%>"<%end if%> text="<%=zzbird_chattext%>" style="font-size: 10pt" topmargin="6" leftmargin="6">
<form method="POST" name="ok" action="gradeeditok.asp">
<p align="center">修改级别<hr>
<p align="center">
<a style="position: absolute; left:20; top:40" href="javascript:history.back(1)">[返回]</a>目前分为 <font color="#FFFF00"> <%=ubound(gradeinfo,1)%></font> 个级别，
目前修改的为 <font color="#FFFF00"><%=i%></font>
级</p>
<div align="center"><input type="hidden" value="<%=i%>" name="whatgrade">
<%if i<>0 and i<>1 then%>
<input<%if gradeinfo(i,0)=true then Response.Write " checked"%> type="checkbox" name="autoup" value="ON" onclick="javascript:if(document.ok.autoup.checked){document.ok.upvalue.value='';document.ok.upvalue.disabled=0;}else{document.ok.upvalue.value='目前不是自动升级';document.ok.upvalue.disabled=1}">自动升级
(自动升级所需积分<input type="text" name="upvalue" size="13" class="inp" <%if gradeinfo(i,0)=true then Response.Write "value='"&gradeinfo(i,1)&"'"%> maxlength="8">分)<br>
<%else
Response.Write "<font color='#FFFF00'>0</font> 级和 <font color='#FFFF00'>1</font> 级为保留级别，可以修改权限，但不能修改升级所需分数。"
end if%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber1">
<tr>
<td width="20%"><input type="checkbox" name="say" value="ON"<%if gradeinfo(i,2)=true then Response.Write " checked"%>>允许发言</td>
<td width="20%">
<input type="checkbox" name="title" value="ON"<%if gradeinfo(i,3)=true then Response.Write " checked"%>>使用标题</td>
<td width="20%">
<input type="checkbox" name="texiao" value="ON"<%if gradeinfo(i,4)=true then Response.Write " checked"%>>使用特效</td>
<td width="20%">
<input type="checkbox" name="pic" value="ON"<%if gradeinfo(i,5)=true then Response.Write " checked"%>>使用帖图</td>
<td width="20%">
<input type="checkbox" name="libadd" value="ON"<%if gradeinfo(i,6)=true then Response.Write " checked"%>>添加词库</td>
</tr>
<tr>
<td width="20%"><input type="checkbox" name="libdel" value="ON"<%if gradeinfo(i,7)=true then Response.Write " checked"%>>删除词库</td>
<td width="20%">
<input type="checkbox" name="selftouxian" value="ON"<%if gradeinfo(i,9)=true then Response.Write " checked"%>>改自己头衔</td>
<td width="20%">
<input type="checkbox" name="touxian" value="ON"<%if gradeinfo(i,10)=true then Response.Write " checked"%>>改别人头衔</td>
<td width="20%">
<input type="checkbox" name="kick" value="ON"<%if gradeinfo(i,11)=true then Response.Write " checked"%>>踢人操作</td>
<td width="20%"><input type="checkbox" name="ip" value="ON"<%if gradeinfo(i,12)=true then Response.Write " checked"%>>封解锁IP</td>
</tr>
<tr>
<td width="20%">
<input type="checkbox" name="unip" value="ON"<%if gradeinfo(i,25)=true then Response.Write " checked"%>>解锁IP</td>
<td width="20%">
<input type="checkbox" name="hongzha" value="ON"<%if gradeinfo(i,13)=true then Response.Write " checked"%>>轰炸操作</td>
<td width="20%">
<input type="checkbox" name="kf" value="ON"<%if gradeinfo(i,27)=true then Response.Write " checked"%>>隔山打牛</td>
<td width="20%">
<input type="checkbox" name="niming" value="ON"<%if gradeinfo(i,26)=true then Response.Write " checked"%>>匿名操作</td>
<td width="20%"><input type="checkbox" name="seeniming" value="ON"<%if gradeinfo(i,30)=true then Response.Write " checked"%>>查看匿名</td>
</tr>
<tr>
<td width="20%">看IP段数<input type="text" name="seeip" size="1" class="inp" maxlength="1" value="<%=gradeinfo(i,8)%>"> </td>
<td width="20%">
<input type="checkbox" name="room" value="ON"<%if gradeinfo(i,14)=true then Response.Write " checked"%>>房间管理</td>
<td width="20%">
<input type="checkbox" name="manpoll" value="ON"<%if gradeinfo(i,28)=true then Response.Write " checked"%>>管理投票</td>
<td width="20%">
<input type="checkbox" name="radio" value="ON"<%if gradeinfo(i,16)=true then Response.Write " checked"%>>广播群发(*)</td>
<td width="20%"> <input type="checkbox" name="gonggao" value="ON"<%if gradeinfo(i,23)=true then Response.Write " checked"%>>公告管理(*)</td>
</tr>
<tr>
<td width="106%" colspan="5">
<input type="checkbox" name="gradeup" value="ON"<%if gradeinfo(i,17)=true then Response.Write " checked"%>>升级管理(最高升至<input type="text" value="<%=gradeinfo(i,18)%>" name="gradeupmax" size="1" class="inp" maxlength="3">)(*)
<input type="checkbox" name="gradedown" value="ON"<%if gradeinfo(i,19)=true then Response.Write " checked"%>>降级管理(最低降至<input type="text" value="<%=gradeinfo(i,20)%>" name="gradedownmin" size="1" class="inp" maxlength="3">)(*)
<input type="checkbox" name="gradeall" value="ON"<%if gradeinfo(i,21)=true then Response.Write " checked"%> onclick="test()">级别统管(注)(*)</td>
</tr>
<tr>
<td width="20%">
<input type="checkbox" name="disip" value="ON"<%if gradeinfo(i,15)=true then Response.Write " checked"%>>禁止IP段(*)</td>
<td width="20%">
<input type="checkbox" name="user" value="ON"<%if gradeinfo(i,24)=true then Response.Write " checked"%>>帐号管理(*)</td>
<td width="20%">
<input type="checkbox" name="gbook" value="ON"<%if gradeinfo(i,22)=true then Response.Write " checked"%>>留言管理(*)</td>
<td width="20%">
<input type="checkbox" name="html" value="ON"<%if gradeinfo(i,29)=true then Response.Write " checked"%>>HTML权限(*)</td>
<td width="20%"> </td>
</tr>
</table>
<p align="left"> (*)表示危险权限，谨慎给予！！</p>
<p align="left">
注.选择了“级别统管”后升降级不受任何限制，有限制的“升降级管理”将没有意义，因此那两个选项的复选框将变成禁止状态。</p>
<p>
<input type="submit" value="提交" name="B1" class="but"><input type="reset" value="重置" name="B2" class="but"><input type="button" value="关闭" class="but" onclick="window.close()"></p>
</div>
</form>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -