📄 setadmingrouppower.asp
字号:
签收文章</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="25" colspan="7"><strong><font color="#993300">常规管理</font></strong></td>
</tr>
<tr>
<td height="20" nowrap title="浏览、编辑、删除关键字等操作的权限"> <input name="PowerList" type="checkbox" id="PowerList" value="KMA20001"<%if InStr(1, PowerList,"KMA20001" ,1)<>0 then Response.Write( "checked") %>>
文章关键字管理</td>
<td nowrap title="浏览、编辑、删除文章来源等操作的权限"> <input name="PowerList" type="checkbox" id="PowerList" value="KMA20002"<%if InStr(1, PowerList,"KMA20002" ,1)<>0 then Response.Write( "checked") %>>
文章来源管理</td>
<td nowrap title="浏览、编辑、删除文章作者等操作的权限"> <input name="PowerList" type="checkbox" id="PowerList" value="KMA20003"<%if InStr(1, PowerList,"KMA20003" ,1)<>0 then Response.Write( "checked") %>>
文章作者管理</td>
<td nowrap title="浏览、编辑、删除文章责任编辑等操作的权限"> <input name="PowerList" type="checkbox" id="PowerList" value="KMA20004"<%if InStr(1, PowerList,"KMA20004" ,1)<>0 then Response.Write( "checked") %>>
文章责任编辑管理</td>
<td nowrap> </td>
<td nowrap> </td>
<td> </td>
</tr>
<tr>
<td height="5" colspan="7"></td>
</tr>
<tr>
<td height="25" colspan="7"><font color="#993300"><strong>详细指定栏目（频道）权限</strong></font></td>
</tr>
<tr>
<td colspan="7">
<div style="border: double #E7E7E7;height:150; overflow: auto; width:100%">
<table border="0" cellspacing="0" cellpadding="0">
<%
Set FolderRS = Conn.Execute("Select * from KS_Class where TN='0' and ChannelID=1 and DelTF=0 Order BY FolderOrder")
IF FolderRS.Bof And FolderRS.Eof Then
Response.Write("<br><li>还没有添加隶属文章的任何频道!")
End IF
do while Not FolderRS.Eof
Dim CheckStr
if InStr(1,PowerList,Trim(FolderRS("ID")),1)<>0 then CheckStr=" checked"%>
<tr>
<td><table border="0" cellspacing="0" cellpadding="0">
<tr align="left" class="TempletItem">
<td><img src="../Images/Folder/domain.gif" width="26" height="24"></td>
<td><input name="PowerList" type="checkbox" value="<% = FolderRS("ID") %>"<%=CheckStr%>>
<% = FolderRS("FolderName") %> </td>
</tr>
</table></td>
</tr>
<%
CheckStr = ""
Response.Write(GetChildClassList(FolderRS("ID"),""))
FolderRS.MoveNext
loop
%>
</table>
</div></td>
</tr>
</table></td>
</TR>
</table>
</FIELDSET></td>
</tr>
</table>
<br>
<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 PicturePower=0 Then
Response.Write("<input name=""PicturePower"" type=""radio"" onclick=""Picture.style.display='none';"" value=""0"" checked>")
Else
Response.Write("<input name=""PicturePower"" type=""radio"" onclick=""Picture.style.display='none';"" value=""0"">")
End IF
%>
在图片中心无任何管理权限(屏蔽)</td>
</tr>
<tr>
<td height="22">
<%IF PicturePower=1 Then
Response.Write("<input type=""radio"" onclick=""Picture.style.display='none';"" name=""PicturePower"" value=""1"" Checked>")
Else
Response.Write("<input type=""radio"" onclick=""Picture.style.display='none';"" name=""PicturePower"" value=""1"">")
End IF
%>
频道管理员：拥有所有频道的管理权限(相当于对图片中心没有任何限制) </td>
</tr>
<tr>
<td height="22">
<%IF PicturePower=2 Then
Response.Write("<input type=""radio"" onclick=""Picture.style.display='';"" name=""PicturePower"" value=""2"" Checked>")
Else
Response.Write("<input type=""radio"" onclick=""Picture.style.display='';"" name=""PicturePower"" value=""2"">")
End IF
%>
栏目管理员：只拥有部分栏目(频道)管理权限</td>
</tr>
<tr ID="Picture" <%IF PicturePower<>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="KMP10001"<%if InStr(1, PowerList,"KMP10001" ,1)<>0 then Response.Write(" checked") %>>
添加频道</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMP10002"<%if InStr(1, PowerList,"KMP10002" ,1)<>0 then Response.Write(" checked") %>>
编辑频道</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMP10003"<%if InStr(1, PowerList,"KMP10003" ,1)<>0 then Response.Write(" checked") %>>
删除频道</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMP10004"<%if InStr(1, PowerList,"KMP10004" ,1)<>0 then Response.Write(" checked") %>>
添加栏目</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMP10005"<%if InStr(1, PowerList,"KMP10005" ,1)<>0 then Response.Write(" checked") %>>
编辑栏目</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMP10006"<%if InStr(1, PowerList,"KMP10006" ,1)<>0 then Response.Write(" checked") %>>
删除栏目</td>
<td width="13%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMP10007"<%if InStr(1, PowerList,"KMP10007" ,1)<>0 then Response.Write(" checked") %>>
加入JS</td>
</tr>
<tr>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMP10008"<%if InStr(1, PowerList,"KMP10008" ,1)<>0 then Response.Write(" checked") %>>
加入专题</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMP10009"<%if InStr(1, PowerList,"KMP10009" ,0)<>0 then Response.Write(" checked") %>>
批量审核</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMP10010"<%if InStr(1, PowerList,"KMP10010" ,0)<>0 then Response.Write( "checked") %>>
取消审核</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMP10011"<%if InStr(1, PowerList,"KMP10011" ,1)<>0 then Response.Write( "checked") %>>
搜索图片</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMP10012"<%if InStr(1, PowerList,"KMP10012" ,1)<>0 then Response.Write( "checked") %>>
添加图片</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMP10013"<%if InStr(1, PowerList,"KMP10013" ,1)<>0 then Response.Write( "checked") %>>
编辑图片</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMP10014"<%if InStr(1, PowerList,"KMP10014" ,1)<>0 then Response.Write( "checked") %>>
删除图片</td>
</tr>
<tr>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMP10015"<%if InStr(1, PowerList,"KMP10015" ,1)<>0 then Response.Write(" checked") %>>
预览图片</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMP10016"<%if InStr(1, PowerList,"KMP10016" ,1)<>0 then Response.Write(" checked") %>>
上传文件</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMP10018"<%if InStr(1, PowerList,"KMP10018" ,1)<>0 then Response.Write(" checked") %>>
评论管理</td>
<td><input name="PowerList" type="checkbox" id="PowerList" value="KMP10017"<%if InStr(1, PowerList,"KMP10017" ,1)<>0 then Response.Write(" checked") %>>
剪切复制操作</td>
<td nowrap><input name="PowerList" type="checkbox" id="PowerList" value="KMP10019"<%if InStr(1, PowerList,"KMP10019" ,1)<>0 then Response.Write(" checked") %>>
签收图片</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="25" colspan="7"><strong><font color="#993300">常规管理</font></strong></td>
</tr>
<tr>
<td height="20" nowrap title="浏览、编辑、删除关键字等操作的权限"> <input name="PowerList" type="checkbox" id="PowerList" value="KMP20001"<%if InStr(1, PowerList,"KMP20001" ,1)<>0 then Response.Write( "checked") %>>
图片关键字管理</td>
<td nowrap title="浏览、编辑、删除图片来源等操作的权限"> <input name="PowerList" type="checkbox" id="PowerList" value="KMP20002"<%if InStr(1, PowerList,"KMP20002" ,1)<>0 then Response.Write( "checked") %>>
图片来源管理</td>
<td nowrap title="浏览、编辑、删除图片作者等操作的权限"> <input name="PowerList" type="checkbox" id="PowerList" value="KMP20003"<%if InStr(1, PowerList,"KMP20003" ,1)<>0 then Response.Write( "checked") %>>
图片作者管理</td>
<td nowrap> </td>
<td nowrap> </td>
<td nowrap> </td>
<td> </td>
</tr>
<tr>
<td height="5" colspan="7"></td>
</tr>
<tr>
<td height="25" colspan="7"><font color="#993300"><strong>详细指定栏目（频道）权限</strong></font></td>
</tr>
<tr>
<td colspan="7">
<div style="border: double #E7E7E7;height:150; overflow: auto; width:100%">
<table border="0" cellspacing="0" cellpadding="0">
<%
Set FolderRS = Conn.Execute("Select * from KS_Class where TN='0' and ChannelID=2 and DelTF=0 Order BY FolderOrder")
IF FolderRS.Bof And FolderRS.Eof Then
Response.Write("<br><li>还没有添加隶属图片的任何频道!")
End IF
do while Not FolderRS.Eof
if InStr(1,PowerList,Trim(FolderRS("ID")),1)<>0 then CheckStr=" checked"%>
<tr>
<td><table border="0" cellspacing="0" cellpadding="0">
<tr align="left" class="TempletItem">
<td><img src="../Images/Folder/domain.gif" width="26" height="24"></td>
<td><input name="PowerList" type="checkbox" value="<% = FolderRS("ID") %>"<%=CheckStr%>>
<% = FolderRS("FolderName") %> </td>
</tr>
</table></td>
</tr>
<%
CheckStr = ""
Response.Write(GetChildClassList(FolderRS("ID"),""))
FolderRS.MoveNext
loop
%>
</table>
</div></td>
</tr>
</table></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -