📄 admin_power.asp
字号:
<td bgcolor="#E1EFD0" valign="middle" width="150">
<%
if checkAdmin(subContentRs("number"),userrs("content_admin")) then
response.write "<input type='checkbox' name='content"&contentRs("number")&"' value='"&subContentRs("number")&"' id='cId"&h&"' checked>"
else
response.write "<input type='checkbox' name='content"&contentRs("number")&"' value='"&subContentRs("number")&"' id='cId"&h&"' >"
end if
response.write "<label for='cId"&h&"'>"&subcontentRs("name")&"</label>"%>
</td>
<td bgcolor="#E1EFD0" valign="middle"><b>管理员：</b>
<% selectName(subContentRs("admin")) %>
</td>
</tr>
<%
subContentRs.movenext
next%>
<%
'如果没有子栏目，则显示一行空
else
%>
<tr>
<td bgcolor="#E1EFD0" valign="middle" width="150" colspan="2">
<%
response.write "<font color=red>"&contentRs("name")&"</font>"
%>
</td>
</tr>
<tr>
<td bgcolor="#E1EFD0" valign="middle" width="150" colspan="2">
</td>
</tr>
<%
end if%>
<% contentRs.movenext
next
'如果还没有栏目被设置，则显示提示
else %>
<tr>
<td bgcolor="#E1EFD0" valign="middle" width="150">目前还没有栏目被设置
</td>
<td bgcolor="#E1EFD0" valign="middle"> </td>
</tr>
<% end if %>
<tr>
<td bgcolor="#B9D29D" valign="top" colspan="2"><b><label for="item">栏目管理</label></b>
<input type="checkbox" name="item" value="1" id="item" <% if userRs("power")<>"" and not(isnull(userrs("power"))) and instr(userrs("power"),"/item/")<>0 then response.write "checked" %>> （新增，修改各栏目的子栏目及栏目的显示样式）</td>
</tr>
<tr>
<td bgcolor="#E1EFD0" valign="top"> </td>
<td bgcolor="#E1EFD0" valign="top"><b>管理员：</b> 超级管理员<%selectsql="select username from bbs_user where power like '%/item/%'"
set checkAdminRs=open_rs(conn,selectsql)
if not(checkAdminRs.eof and checkAdminRs.bof) then
for q=1 to checkAdminRs.recordcount
response.write ","&checkAdminRS("username")
checkAdminRs.movenext
next
end if%></td>
</tr>
<tr>
<td bgcolor="#B9D29D" valign="top" colspan="2"><b><label for="poll">问卷管理</label></b>
<input type="checkbox" name="poll" value="1" id="poll" <% if userRs("power")<>"" and not(isnull(userrs("power"))) and instr(userrs("power"),"/poll/")<>0 then response.write "checked" %>> （新增，修改，管理网站发布的问卷调查）
</td>
</tr>
<tr>
<td bgcolor="#E1EFD0" valign="top"> </td>
<td bgcolor="#E1EFD0" valign="top"><b>管理员：</b> 超级管理员<%selectsql="select username from bbs_user where power like '%/poll/%'"
set checkAdminRs=open_rs(conn,selectsql)
if not(checkAdminRs.eof and checkAdminRs.bof) then
for q=1 to checkAdminRs.recordcount
response.write ","&checkAdminRS("username")
checkAdminRs.movenext
next
end if%></td>
</tr>
<tr>
<td bgcolor="#B9D29D" valign="top" colspan="2"><b><label for="navigator">导航管理</label></b>
<input type="checkbox" name="navigator" value="1" id="navigator" <% if userRs("power")<>"" and not(isnull(userrs("power"))) and instr(userrs("power"),"/navigator/")<>0 then response.write "checked" %>> （管理导航栏显示的内容和样式）
</td>
</tr>
<tr>
<td bgcolor="#E1EFD0" valign="top"> </td>
<td bgcolor="#E1EFD0" valign="top"><b>管理员：</b> 超级管理员<%selectsql="select username from bbs_user where power like '%/navigator/%'"
set checkAdminRs=open_rs(conn,selectsql)
if not(checkAdminRs.eof and checkAdminRs.bof) then
for q=1 to checkAdminRs.recordcount
response.write ","&checkAdminRS("username")
checkAdminRs.movenext
next
end if%></td>
</tr>
<tr>
<td bgcolor="#B9D29D" valign="top" colspan="2"><b><label for="selectAll">论坛管理</label></b>
<input type="checkbox" name="bbsall" value="1" id="selectAll" onclick="javascript:allSelect(this,'bbs');"> （新增，修改，设置 BBS 论坛的斑竹，BBS 论坛的划分只有超级用户才有权限）
</td>
</tr>
<%'显示所有的论坛
if not bbsEmpty then
for i=1 to bbsRs.recordcount %>
<tr>
<td bgcolor="#E1EFD0" valign="middle" width="150">
<%
if checkAdmin(bbsRs("id"),userRS("bbs_admin")) then
response.write "<input type='checkbox' name='bbs' value='"&bbsRs("id")&"' id='id"&i&"' checked>"
else
response.write "<input type='checkbox' name='bbs' value='"&bbsRs("id")&"' id='id"&i&"'>"
end if
response.write "<label for='id"&i&"'>"&bbsRs("name")&"</label>"
%>
</td>
<td bgcolor="#E1EFD0" valign="middle"><b>管理员：</b>
<% selectName(bbsRs("admin")) %>
</td>
</tr>
<% bbsRs.movenext
next
else %>
<tr>
<td bgcolor="#E1EFD0" valign="middle" width="150">目前还没有论坛被设置
</td>
<td bgcolor="#E1EFD0" valign="middle"> </td>
</tr>
<% end if %>
</table>
<br><% if userrs("power")<>"1" then %>
<input type="submit" name="Submit2" value="更 新">
<input type="reset" name="Submit3" value="重 置">
<% end if %>
<input type="button" name="Button" value="返 回" onclick="javascript:window.location.href='admin.asp'">
</td>
</form></tr>
</table>
<br>
</td>
</tr>
<tr>
<td>
<!--#include file="../../include/dot.inc"-->
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<SCRIPT language=javascript>
<!--
function checkform(src)
{
<% if session("userid")="" and (not isobject(session("userid"))) then %>
//用户名
if(Checkblank.test(src.username.value)){alert(Nousername);src.username.focus();return false;}
else if(Checktrim.test(src.username.value)){alert(Errtrim);src.username.focus();return false;}
else if(Limitstr.test(src.username.value)){alert(Errstr);src.username.select();return false;}
//密码
if(Checkblank.test(src.password.value)){alert(Nopassword);src.password.focus();return false;}
if(Checktrim.test(src.password.value)){alert(Errtrim);src.password.select();return false;}
else if(src.password.value.length > 16){alert(Toolong);src.password.select();return false;}
else if(!Checkpassword.test(src.password.value)){alert(Errstr);src.password.select();return false;}
<% end if %>
if (Checkblank.test(src.title.value))
{
alert("标题名不能为空！");
return false;
}
if (Checkblank.test(src.content.value))
{
alert("内容不能为空！");
return false;
}
window.form.submit();
}
function judgeAdmin()
{
if (power=="superAdmin")
{
for (var i = 0; i < document.dataform.elements.length; i++)
{ if (document.dataform.elements[i].type=="checkbox")
{document.dataform.elements[i].checked=true;
document.dataform.elements[i].disabled=true;
}
}
}
else
document.dataform.admin.disabled=true;
}
function allSelect(src,objName)
{
if (src.checked==false)
{
for (var i=1;i<=eval('dataform.'+objName+'.length');i++)
eval('dataform.'+objName+'.id'+i+'.checked=false');
}
else
{
for (var i=1;i<=eval('dataform.'+objName+'.length');i++)
eval('dataform.'+objName+'.id'+i+'.checked=true');
}
}
function allSelect2(src,objName)
{
if (src.checked==false)
{
for (var i=1;i<=eval('dataform.'+objName+'.length');i++)
eval('dataform.'+objName+'.cId'+i+'.checked=false');
}
else
{
for (var i=1;i<=eval('dataform.'+objName+'.length');i++)
eval('dataform.'+objName+'.cId'+i+'.checked=true');
}
}
function contentAllSelect(src)
{
if (src.checked==false)
{
for (var i = 0; i < document.dataform.elements.length; i++)
{nameStr=new String(document.dataform.elements[i].name);
if (nameStr.substring(0,7)=="content" || nameStr.substring(nameStr.length-3,nameStr.length)=="All")
document.dataform.elements[i].checked=false;
}
}
else
{
for (var i = 0; i < document.dataform.elements.length; i++)
{nameStr=new String(document.dataform.elements[i].name);
if (nameStr.substring(0,7)=="content" || nameStr.substring(nameStr.length-3,nameStr.length)=="All")
document.dataform.elements[i].checked=true;
}
}
}
//-->
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -