📄 grade.asp

📁 基于ASP开发的聊天室源码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%Response.Expires=0
if not IsArray(Session("info")) then Response.Redirect "err1.asp?kind=01"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
gradeinfo=Application("gradeinfo")
%>
<!--#INCLUDE FILE="config.asp" -->
<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 }
#leftright, #topdown{
position:absolute;
left:0;
top:0;
width:1px;
height:1px;
layer-background-color:white;
background-color:white;
z-index:100;
font-size:1px;
}

-->
</style>
<script language="JavaScript">
<!--
if (document.all&&!window.print){
leftright.style.width=document.body.clientWidth-2
topdown.style.height=document.body.clientHeight-2
}
else if (document.layers){
document.leftright.clip.width=window.innerWidth
document.leftright.clip.height=1
document.topdown.clip.width=1
document.topdown.clip.height=window.innerHeight
}
function followmouse1(){
//move cross engine for IE 4+
leftright.style.pixelTop=document.body.scrollTop+event.clientY+1
topdown.style.pixelTop=document.body.scrollTop
if (event.clientX<document.body.clientWidth-2)
topdown.style.pixelLeft=document.body.scrollLeft+event.clientX+1
else
topdown.style.pixelLeft=document.body.clientWidth-2
}
function followmouse2(e){
//move cross engine for NS 4+
document.leftright.top=e.y+1
document.topdown.top=pageYOffset
document.topdown.left=e.x+1
}
if (document.all)
document.onmousemove=followmouse1
else if (document.layers){
window.captureEvents(Event.MOUSEMOVE)
window.onmousemove=followmouse2
}
function regenerate(){
window.location.reload()
}
function regenerate2(){
setTimeout("window.onresize=regenerate",400)
}
if ((document.all&&!window.print)||document.layers)
//if the user is using IE 4 or NS 4, both NOT IE 5+
window.onload=regenerate2
//-->
</script>
</head>
<body bgcolor="<%=zzbird_chatbg%>" <%if zzbird_chatbgpic<>"" then%>background="<%=zzbird_chatbgpic%>"<%end if%> text="<%=zzbird_chattext%>" topmargin="6" leftmargin="6">
<div id="leftright" style="width:expression(document.body.clientWidth-2)"></div>
<div id="topdown" style="height:expression(document.body.clientHeight-2)"></div>
<div class="bird">
<div align="center">权限分配</div>
<hr><%if zzbird_master=info(0) then%>管理选项：<a href="gradeadd.asp">增加一级</a>&nbsp; <a href="gradedel.asp">删除一级</a>&nbsp; 
<a href="gradeedit.asp">修改某级</a><br>
&nbsp;&nbsp;&nbsp; 
由于管理权限涉及用户权限变更，因此操作开始后系统会自动清空聊天室(不会给用户保存积分)。如果不止操作一次，请先到“系统参数”中设置成禁止登陆，操作完成后再开放。<br>
<%end if%><div align="center">目前共分为 <font color="#FFFF00"><%=ubound(gradeinfo,1)%></font> 个等级</div>
<div align="center">
  <center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#EAEAEA" width="640" id="AutoNumber1">
  <tr>
    <td width="17" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">级别</td>
    <td width="68" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">所需积分</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">自动升级</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">允许发言</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">使用标题</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">使用特效</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">使用帖图</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">添加词库</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">删除词库</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">看IP段数</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">自己头衔</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">别人头衔</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">踢人操作</td>
    <td width="18" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">封锁IP</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">解锁IP</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">轰炸操作</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">隔山打牛</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">管理投票</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">匿名操作</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">查看匿名</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">房间管理</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">禁止IP段</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">广播群发</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">升级管理</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">最高升至</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">降级管理</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">最低降至</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">级别统管</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">留言管理</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">公告管理</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">帐号管理</td>
    <td width="19" align="center" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">HT<br>ML权限</td>
  </tr>
<%for i=0 to ubound(gradeinfo,1)
if info(1)<>i then%>
  <tr>
    <td width="17" align="center"><%=i%>　</td>
    <td width="68" align="center">
    <%if gradeinfo(i,0)=true and i<>0 and i<>1 then
    Response.Write gradeinfo(i,1)
    elseif i=0 or i=1 then
    Response.Write "-"
    end if%> 　</td>
    <td width="18" align="center">
    <%if gradeinfo(i,0)=true and i<>0 and i<>1 then
    Response.Write "√"
    elseif i=0 or i=1 then
    Response.Write "-"
    end if%>　</td>
12 下一页
💿 文件大小 664 K
👤 上传用户 gggic
📂 所属分类源码/资料
🏷️ 相关标签

#ASP #源码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -