📄 admin_power.asp
字号:
<!--#include file="../../include/db.asp"-->
<!--#include file="power.asp"-->
<%
Set conn = OpenOrGet_Database("sql_conn")
'函数 checkAdmin ,判断 checkStr 是否包含在 adminStr 中
function checkAdmin(checkStr,adminStr)
if adminStr="" or isnull(adminStr) then
checkAdmin=false
else
if instr(adminStr,"/"&checkStr&"/")<>0 then
checkAdmin=true
else
checkAdmin=false
end if
end if
end function
'函数selectName ,找到管理员的名字
function selectName(idString)
if idString="" or isnull(idString) then
response.write "超级管理员"
else
idArray=split(idString,",")
showStr="超级管理员,"
for j=0 to ubound(idArray)
selectsql="select username from bbs_user where id='"& mid(idArray(j),2,len(idArray(j))-2)&"'"
set nameRs=open_rs(conn,selectsql)
if not (nameRs.eof and nameRs.bof) then
showStr=showStr&""&nameRs("username")&","
end if
nameRs.close
set nameRs=nothing
next
showStr=left(showStr,len(showStr)-1)
response.write showStr
end if
end function
id=trim(request("id"))
selectsql="select * from bbs_user where id='"&id&"'"
set userRs=open_rs(conn,selectsql)
if userRs.eof and userRs.bof then
Response.Write "<script language=javascript>"
Response.Write "alert('您选择的用户不存在！');"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
'根据用户的权限，在页面显示不同的情况，如果是超级用户，则拒绝修改的操作，只有普通用户，可以设定各栏目的权限，但是“用户管理”不能有权限
if userrs("power")="1" then
Response.Write "<script language=javascript>"
Response.Write "var power='superAdmin';"
Response.Write "</script>"
powerStr="超级管理员（拥有所有权限，且权限不能修改）"
else
Response.Write "<script language=javascript>"
Response.Write "var power='admin';"
Response.Write "</script>"
powerStr="普通管理员（不能拥有“用户管理”权限）"
end if
'检索出所有栏目的内容
selectsql="select * from item_type where len(number)=2 order by number asc"
set contentRs=open_rs(conn,selectsql)
contentEmpty=false
if contentRs.eof and contentRs.bof then
contentEmpty=true
end if
'检索出所有的论坛
selectsql="select * from bbs_type order by id asc"
set bbsRs=open_rs(conn,selectsql)
bbsEmpty=false
if bbsRs.eof and bbsRs.bof then
bbsEmpty=true
end if
'数据提交数据库操作
if trim(request("act"))="add" then
'内容管理，所有数据入item_type 表的 admin 字段
content_adminStr=""
if not (contentRs.eof and contentRs.bof) then
contentRs.movefirst
for m=1 to contentRs.recordcount
if trim(request("content"&contentRs("number")))<>"" then
' x是各栏目的 number
for each x in request("content"&contentRs("number"))
content_adminStr=content_adminStr&"/"&x&"/,"
next
end if
contentRs.movenext
next
end if
'论坛管理，所有数据入 bbs_type 表的 admin 字段
bbs_adminStr=""
if not (bbsRs.eof and bbsRs.bof) then
bbsRs.movefirst
if not trim(request("bbs"))="" then
for each y in request("bbs")
bbs_adminStr=bbs_adminStr&"/"&y&"/,"
next
end if
end if
'栏目管理，问卷管理，导航管理，组合成powerStr字符串，入bbs_user 表的 power 字段
'权限字段，入 bbs_user 表的 power 字段
powerStr=""
if trim(request("poll"))<>"" then
powerStr=powerStr&"/poll/,"
end if
if trim(request("item"))<>"" then
powerStr=powerStr&"/item/,"
end if
if trim(request("navigator"))<>"" then
powerStr=powerStr&"/navigator/,"
end if
if powerStr<>"" then
powerStr=left(powerStr,len(powerStr)-1)
userRs("power")=powerStr
end if
if content_adminStr<>"" then
content_adminStr=left(content_adminStr,len(content_adminStr)-1)
userRs("content_admin")=content_adminStr
end if
if bbs_adminStr<>"" then
bbs_adminStr=left(bbs_adminStr,len(bbs_adminStr)-1)
userRs("bbs_admin")=bbs_adminStr
end if
userRs.update
Response.Write "<script language=javascript>"
response.write "alert('操作成功！');"
Response.Write "window.location.href='admin.asp?myjoke=1';"
Response.Write "</script>"
response.end
end if
%>
<html>
<head>
<title>深圳育才一小欢迎您！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/include/page.css" type="text/css">
<script language=javascript src="/js/pattern.js"></script>
<Script Language="JavaScript">
<!--
var target
W = 500
L = (screen.availwidth-W)/2
T = 0
H = 520
function ShowNews(url)
{if(!target||target.closed){
var target = window.open(url,'','scrollbars=yes,left='+L+",top='"+T+",width="+W+",height="+H)}
else
{target.focus()}
}
function pencilo(src)
{
src.style.backgroundImage="url(/images/TOP/pencilbg2.gif)";
}
function pencilu(src)
{
src.style.backgroundImage="url(/images/TOP/pencilbg1.gif)";
}
function more()
{alert("首页演示，[更多]模块暂无！")}
function help()
{alert("首页演示，[栏目帮助]模块暂无！")}
-->
</Script>
</head>
<body onLoad="judgeAdmin();">
<table width="1" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<table width="753" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!--#include file="../../include/admin_banner.inc" -->
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="99%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> <form name=dataform action="admin_power.asp?act=add&id=<%=id%>" method="post">
<td valign="top" align="center"> <br>
<table width="97%" border="0" cellspacing="1" cellpadding="5" bgcolor="#666633">
<tr bgcolor="#E1EFD0">
<td width="150" valign="top"><b>用户名：</b><%=userrs("username")%></td>
<td valign="top"><b>身份：</b><%=powerStr%></td>
</tr>
</table>
<br>
<br>
<table width="97%" border="0" cellspacing="1" cellpadding="5" bgcolor="#666633">
<tr>
<td bgcolor="#B9D29D" colspan="2"><b>用户管理</b>
<input type="checkbox" name="admin" value="1"> （新增，修改管理员的用户名，密码，和权限，只有超级管理员才有权限）
</td>
</tr>
<tr>
<td bgcolor="#E1EFD0" valign="top"> </td>
<td bgcolor="#E1EFD0" valign="top"><b>管理员：</b>超级管理员</td>
</tr>
<tr>
<td bgcolor="#B9D29D" valign="top" colspan="2"><b>内容管理</b>
<% if not contentEmpty then%>
<input type="checkbox" name="content" value="1" id="selectall" onclick="javascript:contentAllSelect(this);">
<% end if %> （对网站各个栏目设定相应的内容管理员）</td>
</tr>
<%'显示所有的栏目
'如果有栏目已经被设置
if not contentEmpty then
contentRs.movefirst
for i=1 to contentRs.recordcount
%>
<%
'检索栏目的子栏目
selectsql="select * from item_type where left(number,2)='"&contentRs("number")&"' and len(number)=4 order by number"
set subContentRs=open_rs(conn,selectsql)
'如果有子栏目，则显示
if not (subContentRs.eof and subContentRs.bof) then
%>
<tr>
<td bgcolor="#E1EFD0" valign="middle" width="150" colspan="2"><label for='<%=contentRs("number")%>All'><font color=red><%=contentRs("name")%></font></label>
<input type='checkbox' name='<%=contentRs("number")%>All' value='1' id='<%=contentRs("number")%>All' onclick="javascript:allSelect2(this,'content<%=contentRs("number")%>');">
</td>
</tr>
<%
for h=1 to subContentRs.recordcount
%>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -