📄 setadmingrouppop.asp
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn 演示站点：test.cooin.com
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P040104") then Call ReturnError1()
Dim ClassSql,RsClassObj
Dim ShowRows1,ShowRows2,HaveValueTF
If CInt(GetConfig(20))=1 then
HaveValueTF=1
ShowRows1=10
ShowRows2=9
Else
HaveValueTF=0
ShowRows1=8
ShowRows2=8
End If
ClassSql = "Select * from FS_NewsClass where parentID='0' and DelFlag=0"
Set RsClassObj = Conn.Execute(ClassSql)
Function GetChildClassList(ClassID,Str)
Dim Sql,RsTempObj,TempImageStr,ImageStr,iScheck
TempImageStr = "<img src=""../../Images/Folder/Node.gif""><img src=""../../Images/Folder/folderclosed.gif"">"
Sql = "Select * from FS_NewsClass where ParentID='" & ClassID & "' and DelFlag=0"
ImageStr = Str & "<img src=""../../Images/Folder/HR.gif"">"
Set RsTempObj = Conn.Execute(Sql)
do while Not RsTempObj.Eof
if InStr(1, rs1("PopLIst"),""&RsTempObj("classID")&"" ,1)<>0 then iScheck=" checked"
GetChildClassList = GetChildClassList & "<tr><td><table border=""0"" cellspacing=""0"" cellpadding=""0""><tr align=""left"" class=""TempletItem""><td>" & ImageStr & TempImageStr & "</td><td><input name=""PopList"" type=""checkbox"" id=""News"&RsTempObj("Classid")&""" value="""& RsTempObj("Classid")&""""&iScheck&">" & RsTempObj("ClassCName") & "</td></tr></table></td></tr>"
GetChildClassList = GetChildClassList & GetChildClassList(RsTempObj("ClassID"),ImageStr)
iScheck = ""
RsTempObj.MoveNext
loop
Set RsTempObj = Nothing
End Function
if Request.Form("Action") = "Submit" then
Dim Sql ,Rs
Sql = "Select * from FS_AdminGroup where id = " & Request.Form("ID")
Set Rs = Server.CreateObject(G_FS_RS)
Rs.Open Sql,Conn,3,3
Rs("PopList") = Request.Form("PopList")
Rs.Update
Rs.Close
Set Rs = Nothing
end if
Dim Sql1,Rs1
Sql1 = "Select * from FS_AdminGroup where id="&request("ID")
Set Rs1 = Server.CreateObject(G_FS_RS)
Rs1.Open Sql1,Conn,3,3
%>
<html>
<head>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>设置管理组权限</title>
</head>
<body topmargin="2" leftmargin="2">
<form name="PopForm" method="post" action="">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#EEEEEE">
<td height="26" colspan="5" valign="middle"> <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width=35 align="center" alt="设置" onClick="Modify();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">设置</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
<td>
<input name="id" type="hidden" id="id2" value="<%=request("id")%>">
<input type="hidden" name="Action" value="Submit"> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20" colspan="7"><div align="center"><strong>说明：</strong><font color="red"><strong>粗体为一级权限，红色为二级权限，黑色为三级权限</strong></font></div></td>
</tr>
<tr>
<td rowspan="<%=ShowRows1%>" align="center"><strong><font color=red>
<input name="PopList" type="checkbox" value="P010000" <%if InStr(1, rs1("PopLIst"),"P010000" ,1)<>0 then response.Write("checked") %>>
</font>信息管理</strong></td>
<td width="14%"> <input name="PopList" type="checkbox" value="P010100" <%if InStr(1, rs1("PopLIst"),"P010100" ,1)<>0 then response.Write("checked") %>>
<font color="#FF0000">添加栏目</font><br></td>
<td width="14%"> <input name="PopList" type="checkbox" value="P010200" <%if InStr(1, rs1("PopLIst"),"P010200" ,1)<>0 then response.Write("checked") %>>
<font color="#FF0000">修改栏目</font></td>
<td width="14%"> <input name="PopList" type="checkbox" value="P010300" <%if InStr(1, rs1("PopLIst"),"P010300" ,1)<>0 then response.Write("checked") %>>
<font color="#FF0000"> 删除栏目</font></td>
<td width="14%"> <input name="PopList" type="checkbox" value="P010400" <%if InStr(1, rs1("PopLIst"),"P010400" ,1)<>0 then response.Write("checked") %>>
<font color="#FF0000">栏目操作</font></td>
<td width="14%" height="20"><input name="PopList" type="checkbox" value="P010513" <%if InStr(1, rs1("PopLIst"),"P010513" ,1)<>0 then response.Write("checked") %>>
<font color="#FF0000"> 栏目初始化</font></td>
<td width="14%"><input name="PopList" type="checkbox" value="P010514" <%if InStr(1, rs1("PopLIst"),"P010514" ,1)<>0 then response.Write("checked") %>>
<font color="#FF0000"> 新闻批量转移</font></td>
</tr>
<tr>
<td rowspan="3"><input name="PopList" type="checkbox" value="P010500" <%if InStr(1, rs1("PopLIst"),"P010500" ,1)<>0 then response.Write("checked") %>>
<font color="#FF0000">新闻列表</font></td>
<td height="20"><input name="PopList" type="checkbox" value="P010501" <%if InStr(1, rs1("PopLIst"),"P010501" ,1)<>0 then response.Write("checked") %>>
添加内容</td>
<td><input name="PopList" type="checkbox" value="P010502" <%if InStr(1, rs1("PopLIst"),"P010502" ,1)<>0 then response.Write("checked") %>>
修改内容</td>
<td><input name="PopList" type="checkbox" value="P010503" <%if InStr(1, rs1("PopLIst"),"P010503" ,1)<>0 then response.Write("checked") %>>
内容操作</td>
<td><input name="PopList" type="checkbox" value="P010504" <%if InStr(1, rs1("PopLIst"),"P010504" ,1)<>0 then response.Write("checked") %>>
审核内容</td>
<td><input name="PopList" type="checkbox" value="P010505" <%if InStr(1, rs1("PopLIst"),"P010505" ,1)<>0 then response.Write("checked") %>>
删除内容</td>
</tr>
<tr>
<td height="20"><input name="PopList" type="checkbox" value="P010506" <%if InStr(1, rs1("PopLIst"),"P010506" ,1)<>0 then response.Write("checked") %>>
内容搜索</td>
<td><input name="PopList" type="checkbox" value="P010507" <%if InStr(1, rs1("PopLIst"),"P010507" ,1)<>0 then response.Write("checked") %>>
加入专题</td>
<td><input name="PopList" type="checkbox" value="P010508" <%if InStr(1, rs1("PopLIst"),"P010508" ,1)<>0 then response.Write("checked") %>>
加入自由JS</td>
<td><input name="PopList" type="checkbox" value="P010509" <%if InStr(1, rs1("PopLIst"),"P010509" ,1)<>0 then response.Write("checked") %>>
评论管理 </td>
<td><input name="PopList" type="checkbox" value="P010510" <%if InStr(1, rs1("PopLIst"),"P010510" ,1)<>0 then response.Write("checked") %>>
生成</td>
</tr>
<tr>
<td height="20"><input name="PopList" type="checkbox" value="P010511" <%if InStr(1, rs1("PopLIst"),"P010511" ,1)<>0 then response.Write("checked") %>>
预览</td>
<td><input name="PopList" type="checkbox" value="P010512" <%if InStr(1, rs1("PopLIst"),"P010512" ,1)<>0 then response.Write("checked") %>>
合并栏目</td>
<td>
<input name="PopList" type="checkbox" value="P010515" <%if InStr(1, rs1("PopLIst"),"P010515" ,1)<>0 then response.Write("checked") %>>
归档</td>
<td> </td>
<td></td>
</tr>
<tr>
<td rowspan="2" valign="middle"><input name="PopList" type="checkbox" value="P010700" <%if InStr(1, rs1("PopLIst"),"P010700" ,1)<>0 then response.Write("checked") %>>
<font color="#FF0000">下载列表</font></td>
<td height="20"><input name="PopList" type="checkbox" value="P010701" <%if InStr(1, rs1("PopLIst"),"P010701" ,1)<>0 then response.Write("checked") %>>
添加内容</td>
<td><input name="PopList" type="checkbox" value="P010702" <%if InStr(1, rs1("PopLIst"),"P010702" ,1)<>0 then response.Write("checked") %>>
修改内容</td>
<td><input name="PopList" type="checkbox" value="P010703" <%if InStr(1, rs1("PopLIst"),"P010703" ,1)<>0 then response.Write("checked") %>>
审核内容</td>
<td><input name="PopList" type="checkbox" value="P010704" <%if InStr(1, rs1("PopLIst"),"P010704" ,1)<>0 then response.Write("checked") %>>
删除内容</td>
<td> </td>
</tr>
<tr>
<td height="20"><input name="PopList" type="checkbox" value="P010705" <%if InStr(1, rs1("PopLIst"),"P010705" ,1)<>0 then response.Write("checked") %>>
预览</td>
<td><input name="PopList" type="checkbox" value="P010706" <%if InStr(1, rs1("PopLIst"),"P010706" ,1)<>0 then response.Write("checked") %>>
生成</td>
<td> </td>
<td> </td>
<td></td>
</tr>
<%
If HaveValueTF=1 then
%>
<tr>
<td rowspan="2" valign="middle"><input name="PopList" type="checkbox" value="P010800" <%if InStr(1, rs1("PopLIst"),"P010800" ,1)<>0 then response.Write("checked") %>>
<font color="#FF0000">商品列表</font></td>
<td height="20"><input name="PopList" type="checkbox" value="P010801" <%if InStr(1, rs1("PopLIst"),"P010801" ,1)<>0 then response.Write("checked") %>>
添加内容</td>
<td><input name="PopList" type="checkbox" value="P010802" <%if InStr(1, rs1("PopLIst"),"P010802" ,1)<>0 then response.Write("checked") %>>
修改内容</td>
<td><input name="PopList" type="checkbox" value="P010803" <%if InStr(1, rs1("PopLIst"),"P010803" ,1)<>0 then response.Write("checked") %>>
删除内容</td>
<td><input name="PopList" type="checkbox" value="P010804" <%if InStr(1, rs1("PopLIst"),"P010804" ,1)<>0 then response.Write("checked") %>>
加入专区</td>
<td></td>
</tr>
<tr>
<td height="20"><input name="PopList" type="checkbox" value="P010805" <%if InStr(1, rs1("PopLIst"),"P010805" ,1)<>0 then response.Write("checked") %>>
预览</td>
<td><input name="PopList" type="checkbox" value="P010806" <%if InStr(1, rs1("PopLIst"),"P010806" ,1)<>0 then response.Write("checked") %>>
生成</td>
<td> </td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -