📄 setadmingrouppower.asp
字号:
<%Option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.Asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
DIM KSCMS
Set KSCMS=New CommonCls
If Not KSCMS.ReturnPowerResult(0, "KMCT20001") Then '检查数据库备份权限
Response.Write("<Script>parent.frames['BottomFrame'].location.href='javascript:history.back();';</script>")
Call KSCMS.ReturnErr(2, "User_AdminMain.asp")
Response.End
End If
dim PowerRS,FolderRS,GroupName,GroupID,PowerList
Dim ArticlePower,PicturePower,DownLoadPower,FlashPower,SpecialPower,CollectPower,SystemPower,RefreshPower,UserAdminPower,KMConventionPower,KMTemplatePower
GroupID=Request("GroupID")
if KSCMS.G("Action") = "EditOK" then
Dim SqlStr ,Rs
ArticlePower=KSCMS.G("ArticlePower") '文章权限
PicturePower=KSCMS.G("PicturePower") '图片权限
DownLoadPower=KSCMS.G("DownLoadPower") '下载权限
FlashPower=KSCMS.G("FlashPower") 'Flash权限
SpecialPower=KSCMS.G("SpecialPower") '专题权限
CollectPower=KSCMS.G("CollectPower") '采集权限
SystemPower=KSCMS.G("SystemPower") '系统管理权限
UserAdminPower=KSCMS.G("UserAdminPower") '用户管理权限
KMConventionPower=KSCMS.G("KMConventionPower") '常规管理权限
KMTemplatePower=KSCMS.G("KMTemplatePower")
RefreshPower=KSCMS.G("RefreshPower")
PowerList=Trim(KSCMS.G("PowerList"))
IF PowerList="" THEN PowerList=0
IF SpecialPower<>"0" Then '判断是否有专题权限并加入权限字段
PowerList = PowerList& "," & SpecialPower
End IF
IF SystemPower<>"0" Then '判断是否有系统管理权限并加入权限字段
PowerList = PowerList& "," & SystemPower
End IF
IF RefreshPower<>"0" Then '判断是否有站点发布权限并加入权限字段
PowerList = PowerList& "," & RefreshPower
End IF
IF UserAdminPower<>"0" Then '判断是否有用户管理权限并加入权限字段
PowerList = PowerList& "," & UserAdminPower
End IF
IF KMConventionPower<>"0" Then '判断是否有常规管理权限并加入权限字段
PowerList = PowerList& "," & KMConventionPower
End IF
IF KMTemplatePower<>"0" Then '判断是否有模板标签权限并加入权限字段
PowerList = PowerList& "," & KMTemplatePower
End IF
IF CollectPower<>"0" Then '判断是否有采集管理权限并加入权限字段
PowerList = PowerList& "," & CollectPower
End IF
SqlStr = "Select * from KS_AdminGroup where GroupID = " & GroupID
Set RS = Server.CreateObject("Adodb.RecordSet")
RS.Open SqlStr,Conn,3,3
RS("ArticlePower")=ArticlePower
RS("PicturePower")=PicturePower
RS("DownLoadPower")=DownLoadPower
RS("FlashPower")=FlashPower
RS("PowerList")=PowerList
RS.Update
RS.Close
Set RS = Nothing
Response.Write("<script>alert('设置权限成功!');location.href='User_AdminMain.asp';parent.frames['BottomFrame'].location.href='../Split.asp?OpStr=管理员管理 >> <font color=red>所有管理员组</font>&ButtonSymbol=Disabled';</script>")
end if
Set PowerRS = Server.CreateObject("AdoDB.RecoRdset")
PowerRS.Open "Select SuperTF,GroupName,PowerList,ArticlePower,PicturePower,DownLoadPower,FlashPower from KS_AdminGroup where GroupID="& GroupID,Conn,1,1
IF PowerRS.Eof And PowerRS.BoF THEN
PowerRS.Close
Set PowerRS=Nothing
Response.Write("<Script>alert('参数传递出错!');history.back();</script>")
Elseif PowerRS(0)=1 Then
PowerRS.Close
Set PowerRS=Nothing
Response.Write("<Script>alert('系统默认的管理组拥有最高权限,不能再进行分配权限!');parent.frames['BottomFrame'].location.href='javascript:history.back()';history.back();</script>")
ELSE
GroupName=PowerRS(1)
PowerList=PowerRS(2)
ArticlePower=PowerRS(3)
PicturePower=PowerRS(4)
DownLoadPower=PowerRS(5)
FlashPower=PowerRS(6)
END IF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../inc/Admin_Style.CSS" rel="stylesheet" type="text/css">
<script src="../JS/Common.js" language="JavaScript"></script>
</head>
<body topmargin="0" leftmargin="0" scroll=no><table width="100%" border="0" cellspacing="0" cellpadding="0" class="sortbutton">
<tr>
<td height="23" align="center"><strong>【<font color="#663399"><%=GroupName%></font>】权限详细设置</strong></td>
</tr>
</table>
<div style=" height:98%; overflow: auto; width:100%" align="center">
<form method="post" name="myform" action="SetAdminGroupPower.asp">
<input type="hidden" value="<%=GroupID%>" name="GroupID">
<input type="hidden" value="EditOK" name="Action">
<table width="96%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <FIELDSET align=center>
<LEGEND align=left>此管理组在【<font color="#FF0000">文章中心</font>】的权限</LEGEND>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="22">
<%IF ArticlePower=0 Then
Response.Write("<input name=""ArticlePower"" type=""radio"" onclick=""Article.style.display='none';"" value=""0"" checked>")
Else
Response.Write("<input name=""ArticlePower"" type=""radio"" onclick=""Article.style.display='none';"" value=""0"">")
End IF
%>
在文章中心无任何管理权限(屏蔽)</td>
</tr>
<tr>
<td height="22">
<%IF ArticlePower=1 Then
Response.Write("<input type=""radio"" onclick=""Article.style.display='none';"" name=""ArticlePower"" value=""1"" Checked>")
Else
Response.Write("<input type=""radio"" onclick=""Article.style.display='none';"" name=""ArticlePower"" value=""1"">")
End IF
%>
频道管理员：拥有所有频道的管理权限(相当于对文章中心没有任何限制) </td>
</tr>
<tr>
<td height="22">
<%IF ArticlePower=2 Then
Response.Write("<input type=""radio"" onclick=""Article.style.display='';"" name=""ArticlePower"" value=""2"" Checked>")
Else
Response.Write("<input type=""radio"" onclick=""Article.style.display='';"" name=""ArticlePower"" value=""2"">")
End IF
%>
栏目管理员：只拥有部分栏目(频道)管理权限</td>
</tr>
<tr ID="Article" <%IF ArticlePower<>2 Then Response.Write("style=""display:none""") End IF%>>
<td height="22"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" colspan="7"><strong><font color="#993300">栏目与文章</font></strong></td>
</tr>
<tr>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMA10001"<%if InStr(1, PowerList,"KMA10001" ,1)<>0 then Response.Write(" checked") %>>
添加频道</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMA10002"<%if InStr(1, PowerList,"KMA10002" ,1)<>0 then Response.Write(" checked") %>>
编辑频道</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMA10003"<%if InStr(1, PowerList,"KMA10003" ,1)<>0 then Response.Write(" checked") %>>
删除频道</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMA10004"<%if InStr(1, PowerList,"KMA10004" ,1)<>0 then Response.Write(" checked") %>>
添加栏目</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMA10005"<%if InStr(1, PowerList,"KMA10005" ,1)<>0 then Response.Write(" checked") %>>
编辑栏目</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMA10006"<%if InStr(1, PowerList,"KMA10006" ,1)<>0 then Response.Write(" checked") %>>
删除栏目</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMA10007"<%if InStr(1, PowerList,"KMA10007" ,1)<>0 then Response.Write(" checked") %>>
加入JS</td>
</tr>
<tr>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10008"<%if InStr(1, PowerList,"KMA10008" ,1)<>0 then Response.Write(" checked") %>>
加入专题</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10009"<%if InStr(1, PowerList,"KMA10009" ,0)<>0 then Response.Write(" checked") %>>
批量审核</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10010"<%if InStr(1, PowerList,"KMA10010" ,0)<>0 then Response.Write( "checked") %>>
取消审核</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10011"<%if InStr(1, PowerList,"KMA10011" ,1)<>0 then Response.Write( "checked") %>>
搜索文章</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10012"<%if InStr(1, PowerList,"KMA10012" ,1)<>0 then Response.Write( "checked") %>>
添加文章</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10013"<%if InStr(1, PowerList,"KMA10013" ,1)<>0 then Response.Write( "checked") %>>
编辑文章</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10014"<%if InStr(1, PowerList,"KMA10014" ,1)<>0 then Response.Write( "checked") %>>
删除文章</td>
</tr>
<tr>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10015"<%if InStr(1, PowerList,"KMA10015" ,1)<>0 then Response.Write(" checked") %>>
预览文章</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10016"<%if InStr(1, PowerList,"KMA10016" ,1)<>0 then Response.Write(" checked") %>>
上传文件</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10018"<%if InStr(1, PowerList,"KMA10018" ,1)<>0 then Response.Write(" checked") %>>
评论管理</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10017"<%if InStr(1, PowerList,"KMA10017" ,1)<>0 then Response.Write(" checked") %>>
剪切复制操作</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10019"<%if InStr(1, PowerList,"KMA10019" ,1)<>0 then Response.Write(" checked") %>>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -