<html>
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云网互动影视6.0--管理员组</title>
<LINK href="css/css.css" type=text/css rel=stylesheet>
</head>
<BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0">
<!--#include file="../Conn.asp" -->
<!--#include file="YWNT_TMS_inc/YWNT_TMS_Function.asp" -->
<script language="javascript">  
function CheckAll(v)
	{
		var i;
		for (i=0;i<document.form.elements.length;i++)
		{
			var e = document.form.elements[i];
		        e.checked = v;
		}
}
</script>
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net  All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net 
'郑重声明:
'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Call CheckLogin("Admin")
sub EditSave()
		Set Rs=Server.CreateObject(YWNT_TMS_RS)
		sql="select * from YWNT_TMS_AdminGroup where ID="&NoSqlHack(Request.Form("ID"))
		Rs.open sql,Conn,1,3
		RS("GroupName")=NoSqlHack(Request.Form("GroupName"))
		RS("Groupbox")=NoSqlHack(Request.Form("Groupbox"))
		RS("GroupNote")=NoSqlHack(Request.Form("GroupNote"))
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		Call AddLog("修改管理员组"&Request.Form("GroupName"),1)
		call Admin_ShowErr("<li>管理员组改成功</li>","Admin_AdminGroup.asp",1)
end sub
sub AddSave()
		Set Rs=Server.CreateObject(YWNT_TMS_RS)
		sql="select * from YWNT_TMS_AdminGroup"
		Rs.open sql,Conn,1,3
		Rs.addnew
		RS("GroupName")=NoSqlHack(Request.Form("GroupName"))
		RS("Groupbox")=NoSqlHack(Request.Form("Groupbox"))
		RS("GroupNote")=NoSqlHack(Request.Form("GroupNote"))
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		Call AddLog("添加管理员组"&Request.Form("GroupName"),1)
		call Admin_ShowErr("<li>管理员组添加成功</li>","Admin_AdminGroup.asp",1)
end sub
sub Del()
	conn.execute "delete from YWNT_TMS_AdminGroup WHERE ID="&NoSqlHack(Request("ID"))
	Call AddLog("删除管理员组",1)
	call Admin_ShowErr("<li>管理员组删除成功！</li>","Admin_AdminGroup.asp",1)
end sub %>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td align="center" class=xingmu>管理员组管理</td>
    </tr>
    <tr>
      <td class="hback"><A href="Admin_AdminGroup.asp">管理员组管理首页</a> | <A href="Admin_AdminGroup.asp?Action=Add">添加管理员</a></td>
    </tr>
  </tbody>
</table>
<%Action=Trim(request.QueryString("Action"))
Select Case Action
Case "Add"
	call Add()
Case "AddSave"
	call AddSave()
Case "Edit"
		Set Rs=Server.CreateObject(YWNT_TMS_RS)
		sql="select * from YWNT_TMS_AdminGroup where ID="&NoSqlHack(Request.QueryString("ID"))
		Rs.open sql,Conn,1,1
		YWNT_TMS_ID=RS("ID")
		YWNT_TMS_GroupName=RS("GroupName")
		YWNT_TMS_Groupbox=Replace(RS("Groupbox")," ","")
		YWNT_TMS_GroupNote=RS("GroupNote")
		RS.close   
      	set RS=nothing
	call Edit()
Case "EditSave"
	call EditSave()
Case "Del"
	call Del()
Case else
	call List()
End Select
sub List()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td width="5%" align="center" class=xingmu>ID</td>
      <td align="center" class=xingmu>管理员组名称</td>
      <td width="10%" align="center" class=xingmu>操作</td>
    </tr>
<%Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select ID,GroupName from YWNT_TMS_AdminGroup Order by ID desc"
Rs.open sql,Conn,1,1
do while not Rs.eof%>
    <tr>
      <td height=32 align="center" class="hback"><%=Rs("ID")%></td>
      <td height=32 class="hback"><%=Rs("GroupName")%></td>
      <td align="center" class="hback"><A href="Admin_AdminGroup.asp?Action=Edit&ID=<%=Rs("ID")%>">修改</A>｜<A onClick="{if(confirm('确定要删除吗?\n如果此管理员下有子管理员\n此管理员下的隶属管理员将重新指定父级管理员!!')){return true;}return false;}" href="Admin_AdminGroup.asp?Action=Del&ID=<%=Rs("ID")%>">删除</A></td>
    </tr>
<%Rs.movenext
loop
Rs.close
Set Rs=nothing%>
  </tbody>
</table>
<%end sub
sub Add()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td colspan="2" align="center" class=xingmu>添加管理员组</td>
    </tr>
    <form action="Admin_AdminGroup.asp?Action=AddSave" method="post" name="form" id="form">
    <tr>
      <td width="21%" height=32 align="right" class="hback">管理员组名称：</td>
      <td height=15 class="hback"><input name="GroupName" type="text" id="GroupName" size="40">
        <input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(document.form.chkall.checked);">
选择全部权限</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">系统设置：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="System">
      系统设置
      <input type="checkbox" name="Groupbox" value="Admin">
      管理员设置
      <input type="checkbox" name="Groupbox" value="Notice">
      公告管理
      <input type="checkbox" name="Groupbox" value="Data">
      数据库管理
      <input type="checkbox" name="Groupbox" value="Ip">
      IP策略
      <input type="checkbox" name="Groupbox" value="Log">
      日志管理
      <input type="checkbox" name="Groupbox" value="Space">
      空间管理</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">站点发布：</td>
      <td height=16 class="hback"><input name="Groupbox" type="checkbox" id="Groupbox" value="Htmlindex">
        发布首页
        <input name="Groupbox" type="checkbox" value="Htmltype">
        发布栏目
        <input type="checkbox" name="Groupbox" value="Htmlmovie">
        发布影片
        <input type="checkbox" name="Groupbox" value="Htmlfeature">
        发布专题
        <input type="checkbox" name="Groupbox" value="HtmlAllMovie">
        发布全部影片
        <input type="checkbox" name="Groupbox" value="HtmlFreeMovi">
      	发布免费试看</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">影片管理：</td>
      <td height=16 class="hback"><input name="Groupbox" type="checkbox" id="Groupbox" value="Sever">
        服务器管理
        <input type="checkbox" name="Groupbox" value="Type">
        栏目管理
        <input type="checkbox" name="Groupbox" value="Region">
        地区管理
        <input type="checkbox" name="Groupbox" value="Movie">
        影片管理
        <input type="checkbox" name="Groupbox" value="Recycling">
        影片回收站
        <input type="checkbox" name="Groupbox" value="Slide">
        幻灯设置
        <input type="checkbox" name="Groupbox" value="Sysplay">
      	播放设置</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">专题管理：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="FeatureType">
        专题栏目
        <input type="checkbox" name="Groupbox" value="FeatureMovie">
      专题电影</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">直播管理：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="LiveType">
        栏目管理
        <input type="checkbox" name="Groupbox" value="Live">
      	直播管理</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">模版管理：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Style">
        风格管理
        <input type="checkbox" name="Groupbox" value="Template">
        模版管理
        <input type="checkbox" name="Groupbox" value="Labeling">
        自由标签      </td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">会员管理：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="UsersGroup">
        会员组管理
        <input type="checkbox" name="Groupbox" value="Users">
        会员管理
		<input type="checkbox" name="Groupbox" value="UsersMsg">
		会员消息
        <input type="checkbox" name="Groupbox" value="UsersEmail">
        会员邮件通知
        <input type="checkbox" name="Groupbox" value="Wcafes">
        网吧管理
        <input type="checkbox" name="Groupbox" value="UsersOnline">
        在线会员
        <input type="checkbox" name="Groupbox" value="UsersMovieLog">
        点播记录
        <input type="checkbox" name="Groupbox" value="UsersErrors">
        会员报错
        <input type="checkbox" name="Groupbox" value="UsersComments">
        会员评论
        <input type="checkbox" name="Groupbox" value="UsersDemandMovie">
        会员求片
        <input type="checkbox" name="Groupbox" value="UsersCollection">
        会员收藏
        <input type="checkbox" name="Groupbox" value="UsersHelp">
        帮助管理
        <input type="checkbox" name="Groupbox" value="UsersRegNotice">
        注册协议
        <input type="checkbox" name="Groupbox" value="UsersSystem">
        会员设置</td>
    </tr>
	  <TR>
    <TD height=32 align="right" class="hback">财务管理：</TD>
    <TD class="hback"><input type="checkbox" name="Groupbox" value="UsersPay">
      价格设置
      <input type="checkbox" name="Groupbox" value="UsersCards">
      充值卡管理
      <input type="checkbox" name="Groupbox" value="UsersPayLog">
      充值记录
      <input type="checkbox" name="Groupbox" value="UsersPaySet">
      支付平台设置</TD>
	  </TR>
    <tr>
      <td height=32 align="right" class="hback">其他管理：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Collect">
        电影采集管理
        <input type="checkbox" name="Groupbox" value="Scanning">
        电影扫描管理
        <input type="checkbox" name="Groupbox" value="Vote">
        投票管理
        <input type="checkbox" name="Groupbox" value="Ad">
        广告管理
        <input type="checkbox" name="Groupbox" value="LinkSystem">
      友情链接管理</td>
    </tr>
	 <tr>
      <td height=32 align="right" class="hback">管理员组说明：</td>
      <td height=16 class="hback"><textarea name="GroupNote" cols="50" rows="5"></textarea></td>
	 </tr>
    <tr>
      <td height=32 colspan="2" align="center" class="hback"><input type="submit" name="Submit" value="添 加"></td>
    </tr>
    </form>
  </tbody>
</table>
<%end sub
sub Edit()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td colspan="2" align="center" class=xingmu>修改管理员组</td>
    </tr>
    <form action="Admin_AdminGroup.asp?Action=EditSave" method="post" name="form">
    <tr>
      <td width="21%" height=32 align="right" class="hback">管理员组名称：</td>
      <td height=15 class="hback"><input name="GroupName" type="text" id="GroupName" value="<%=YWNT_TMS_GroupName%>" size="40">
        <input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(document.form.chkall.checked);">
选择全部权限</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">系统设置：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="System" <%call AdminGroupBox(YWNT_TMS_Groupbox,"System")%>>
      系统设置
      <input type="checkbox" name="Groupbox" value="Admin" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Admin")%>>
      管理员设置
      <input type="checkbox" name="Groupbox" value="Notice" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Notice")%>>
      公告管理
      <input type="checkbox" name="Groupbox" value="Data" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Data")%>>
      数据库管理
      <input type="checkbox" name="Groupbox" value="Ip" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Ip")%>>
      IP策略
      <input type="checkbox" name="Groupbox" value="Log" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Log")%>>
      日志管理
      <input type="checkbox" name="Groupbox" value="Space" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Space")%>>
      空间管理</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">站点发布：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Htmlindex" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Htmlindex")%>>
        发布首页
        <input type="checkbox" name="Groupbox" value="Htmltype" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Htmltype")%>>
        发布栏目
        <input type="checkbox" name="Groupbox" value="Htmlmovie" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Htmlmovie")%>>
        发布影片
        <input type="checkbox" name="Groupbox" value="Htmlfeature" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Htmlfeature")%>>
        发布专题
        <input type="checkbox" name="Groupbox" value="HtmlAllMovie" <%call AdminGroupBox(YWNT_TMS_Groupbox,"HtmlAllMovie")%>>
        发布全部影片
        <input type="checkbox" name="Groupbox" value="HtmlFreeMovi" <%call AdminGroupBox(YWNT_TMS_Groupbox,"HtmlFreeMovi")%>>
      	发布免费试看</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">影片管理：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Sever" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Sever")%>>
        服务器管理
        <input type="checkbox" name="Groupbox" value="Type" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Type")%>>
        栏目管理
        <input type="checkbox" name="Groupbox" value="Region" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Region")%>>
        地区管理
        <input type="checkbox" name="Groupbox" value="Movie" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Movie")%>>
        影片管理
        <input type="checkbox" name="Groupbox" value="Recycling" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Recycling")%>>
        影片回收站
        <input type="checkbox" name="Groupbox" value="Slide" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Slide")%>>
        幻灯设置
        <input type="checkbox" name="Groupbox" value="Sysplay" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Sysplay")%>>
      	播放设置</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">专题管理：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="FeatureType" <%call AdminGroupBox(YWNT_TMS_Groupbox,"FeatureType")%>>
        专题栏目
        <input type="checkbox" name="Groupbox" value="FeatureMovie" <%call AdminGroupBox(YWNT_TMS_Groupbox,"FeatureMovie")%>>
      专题电影</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">直播管理：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="LiveType" <%call AdminGroupBox(YWNT_TMS_Groupbox,"LiveType")%>>
        栏目管理
        <input type="checkbox" name="Groupbox" value="Live" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Live")%>>
      	直播管理</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">模版管理：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Style" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Style")%>>
        风格管理
        <input type="checkbox" name="Groupbox" value="Template" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Template")%>>
        模版管理
        <input type="checkbox" name="Groupbox" value="Labeling" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Labeling")%>>
        自由标签      </td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">会员管理：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="UsersGroup" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersGroup")%>>
        会员组管理
        <input type="checkbox" name="Groupbox" value="Users" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Users")%>>
        会员管理
		<input type="checkbox" name="Groupbox" value="UsersMsg" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersMsg")%>>
		会员消息
        <input type="checkbox" name="Groupbox" value="UsersEmail" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersEmail")%>>
        会员邮件通知
        <input type="checkbox" name="Groupbox" value="Wcafes" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Wcafes")%>>
        网吧管理
        <input type="checkbox" name="Groupbox" value="UsersOnline" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersOnline")%>>
        在线会员
        <input type="checkbox" name="Groupbox" value="UsersMovieLog" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersMovieLog")%>>
        点播记录
        <input type="checkbox" name="Groupbox" value="UsersErrors" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersErrors")%>>
        会员报错
        <input type="checkbox" name="Groupbox" value="UsersComments" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersComments")%>>
        会员评论
        <input type="checkbox" name="Groupbox" value="UsersDemandMovie" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersDemandMovie")%>>
        会员求片
        <input type="checkbox" name="Groupbox" value="UsersCollection" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersCollection")%>>
        会员收藏
        <input type="checkbox" name="Groupbox" value="UsersHelp" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersHelp")%>>
        帮助管理
        <input type="checkbox" name="Groupbox" value="UsersRegNotice" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersRegNotice")%>>
        注册协议
        <input type="checkbox" name="Groupbox" value="UsersSystem" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersSystem")%>>
        会员设置</td>
    </tr>
	  <TR>
    <TD height=32 align="right" class="hback">财务管理：</TD>
    <TD class="hback"><input type="checkbox" name="Groupbox" value="UsersPay" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersPay")%>>
      价格设置
      <input type="checkbox" name="Groupbox" value="UsersCards" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersCards")%>>
      充值卡管理
      <input type="checkbox" name="Groupbox" value="UsersPayLog" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersPayLog")%>>
      充值记录
      <input type="checkbox" name="Groupbox" value="UsersPaySet" <%call AdminGroupBox(YWNT_TMS_Groupbox,"UsersPaySet")%>>
      支付平台设置</TD>
	  </TR>
    <tr>
      <td height=32 align="right" class="hback">其他管理：</td>
      <td height=16 class="hback"><input type="checkbox" name="Groupbox" value="Collect" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Collect")%>>
        电影采集管理
        <input type="checkbox" name="Groupbox" value="Scanning" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Scanning")%>>
        电影扫描管理
        <input type="checkbox" name="Groupbox" value="Vote" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Vote")%>>
        投票管理
        <input type="checkbox" name="Groupbox" value="Ad" <%call AdminGroupBox(YWNT_TMS_Groupbox,"Ad")%>>
        广告管理
        <input type="checkbox" name="Groupbox" value="LinkSystem" <%call AdminGroupBox(YWNT_TMS_Groupbox,"LinkSystem")%>>
      友情链接管理</td>
    </tr>
	 <tr>
      <td height=32 align="right" class="hback">管理员组说明：</td>
      <td height=16 class="hback"><textarea name="GroupNote" cols="50" rows="5"><%=YWNT_TMS_GroupNote%></textarea></td>
	 </tr>
    <tr>
      <td height=32 colspan="2" align="center" class="hback"><input name="ID" type="hidden" value="<%=YWNT_TMS_ID%>"><input type="submit" name="Submit" value="修 改"></td>
    </tr>
    </form>
  </tbody>
</table>
<%end sub
call connclose()%>
</BODY></HTML>
