www.gusucode.com > CRM源码带手机版ASP源码程序 > System/GetLevel.asp
<!--#include file="../Data/Conn.asp"--><!--#include file="../data/EasyCrm.asp"--> <%Set EasyCrm = New EasyCRM_CRM%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"><head> <meta http-equiv="Content-Type" content="text/html; charset=GBK" /> <link href="<%=SiteUrl&skinurl%>Style/common.css" rel="stylesheet" type="text/css"> <script language="javascript" src="<%=SiteUrl&skinurl%>Js/Common.js"></script> <script language="javascript" src="<%=SiteUrl&skinurl%>Js/jquery.min.js"></script> <script language="javascript" src="<%=SiteUrl&skinurl%>Js/tips.js"></script> <script src="<%=SiteUrl&skinurl%>aridialog/jquery.artDialog.js?skin=default"></script> <script src="<%=SiteUrl&skinurl%>aridialog/iframeTools.js"></script> </head> <body> <style>body{padding-bottom:55px;}</style> <% action = Trim(Request("action")) sType = Trim(Request("sType")) tipinfo = Trim(Request("tipinfo")) Select Case action Case "Setting" Call Setting() Case "Products" Call Products() Case "AreaData" Call AreaData() Case "CustomField" Call CustomField() Case "SelectData" Call SelectData() Case "User" Call User() Case "Group" Call Group() Case "Level" Call Level() Case "InfoList" Call InfoList() End Select Sub Level() if tipinfo<>"" then Response.Write("<script>art.dialog({title: 'Error',time: 1.5,icon: 'warning',content: '"&tipinfo&"'});</script>") end if %> <style>body{padding:0 0 55px 0;}</style> <script language="JavaScript"> <!-- 必填项提示 function CheckInput() { if(document.getElementById('lId').value == ""){art.dialog({title: 'Error',time: 1,icon: 'warning',content: '权限值不能为空!'});document.getElementById('lId').focus();return false;} if(document.getElementById('lName').value == ""){art.dialog({title: 'Error',time: 1,icon: 'warning',content: '角色名称不能为空!'});document.getElementById('lName').focus();return false;} } --> </script> <script language=javascript> //全选/反选 function selectall(id){ //用id区分 var tform=document.forms['Level']; for(var i=0;i<tform.length;i++){ var e=tform.elements[i]; if(e.type=="checkbox" && e.id==id) e.checked=!e.checked; } } </script> <% if sType="Add" then %> <form name="Save" id="Level" action="GetLevel.asp?action=Level&sType=SaveAdd" method="post" onSubmit="return CheckInput();"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n pdl10 pdr10 pdt10"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="100" /> <tr class="tr_t"> <td class="td_l_l" COLSPAN="4"><B>新增角色 </B></td> </tr> <tr> <td class="td_l_r title"><font color="#FF0000">*</font> 权限值</td> <td class="td_l_l"><input name="lId" type="text" class="int" id="lId" size="10" maxlength="2" onkeyup='this.value=this.value.replace(/\D/gi,"")' > <span class="info_help help01">限:数字 2 - 8</span></td> <td class="td_l_r title"><font color="#FF0000">*</font> 角色名称</td> <td class="td_l_l"><input name="lName" type="text" class="int" id="lName" size="30" maxlength="16" > </td> </tr> </table> </td> </tr> <tr> <td valign="top" class="td_n pdl10 pdr10 pdt10"> <fieldset style="padding:10px;"> <legend> <B style="font-size:14px;">全局权限</B> </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="4%"><col width="11%"><col width="5%"> <col width="4%"><col width="11%"><col width="5%"> <col width="4%"><col width="11%"><col width="5%"> <col width="4%"><col width="11%"><col width="5%"> <col width="4%"><col width="11%"><col width="5%"> <tr> <td class="td_l_c fontbold">01.</td> <td class="td_l_r title">系统登录</td> <td class="td_r_c"><input type="checkbox" name="qxflag1" value="1" <%if mid(qxflag, 1, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">02.</td> <td class="td_l_r title">客户管理</td> <td class="td_r_c"><input type="checkbox" name="qxflag2" value="1" <%if mid(qxflag, 2, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">03.</td> <td class="td_l_r title">办公OA</td> <td class="td_r_c"><input type="checkbox" name="qxflag3" value="1" <%if mid(qxflag, 3, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">04.</td> <td class="td_l_r title">功能插件</td> <td class="td_r_c"><input type="checkbox" name="qxflag4" value="1" <%if mid(qxflag, 4, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">05.</td> <td class="td_l_r title" onmouseover="tip.start(this)" tips="超管权限!"><font color=red><B>系统设置</B></font></td> <td class="td_r_c"><input type="checkbox" name="qxflag5" value="1" <%if mid(qxflag, 5, 1) = "1" then Response.Write "checked"%>></td> </tr> <tr> <td class="td_l_c fontbold">06.</td> <td class="td_l_r title" onmouseover="tip.start(this)" tips="客户档案下拉框字段新增项目"><font color=red>新增下拉框</font></td> <td class="td_r_c"><input type="checkbox" name="qxflag6" value="1" <%if mid(qxflag, 6, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">07.</td> <td class="td_l_r title" onmouseover="tip.start(this)" tips="导出客户数据,有一定风险!"><font color=red>导出Excel</font></td> <td class="td_r_c"><input type="checkbox" name="qxflag7" value="1" <%if mid(qxflag, 7, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">08.</td> <td class="td_l_r title" onmouseover="tip.start(this)" tips="导入客户数据,有一定风险!"><font color=red>导入Excel</font></td> <td class="td_r_c"><input type="checkbox" name="qxflag8" value="1" <%if mid(qxflag, 8, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">09.</td> <td class="td_l_r title" onmouseover="tip.start(this)" tips="批量更新数据,有一定风险!"><font color=red>批量操作</font></td> <td class="td_r_c"><input type="checkbox" name="qxflag9" value="1" <%if mid(qxflag, 9, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">10.</td> <td class="td_l_r title"><font color=red>客户共享</font></td> <td class="td_r_c"><input type="checkbox" name="qxflag10" value="1" <%if mid(qxflag, 10, 1) = "1" then Response.Write "checked"%>></td> </tr> <tr> <td class="td_l_c fontbold">11.</td> <td class="td_l_r title">高级搜索</td> <td class="td_r_c"><input type="checkbox" name="qxflag11" value="1" <%if mid(qxflag, 11, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">12.</td> <td class="td_l_r title">客户转移</td> <td class="td_r_c"><input type="checkbox" name="qxflag12" value="1" <%if mid(qxflag, 12, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">13.</td> <td class="td_l_r title">售后处理</td> <td class="td_r_c"><input type="checkbox" name="qxflag13" value="1" <%if mid(qxflag, 13, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">14.</td> <td class="td_l_r title">合同审核</td> <td class="td_r_c"><input type="checkbox" name="qxflag14" value="1" <%if mid(qxflag, 14, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">15.</td> <td class="td_l_r title">公海审核</td> <td class="td_r_c"><input type="checkbox" name="qxflag15" value="1" <%if mid(qxflag, 15, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;padding:10px;"> <input type="button" class="button246" onclick="javascript:selectall('levelA')" value="全选/反选" style="margin-bottom:10px;" /> <legend> <B style="font-size:14px;">客户管理</B> </legend> <fieldset style="padding:10px;"> <legend> 客户档案 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">16.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag16" value="1" <%if mid(qxflag, 16, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">17.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag17" value="1" <%if mid(qxflag, 17, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">18.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag18" value="1" <%if mid(qxflag, 18, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">19.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag19" value="1" <%if mid(qxflag, 19, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">20.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag20" value="1" <%if mid(qxflag, 20, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 联系人 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">21.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag21" value="1" <%if mid(qxflag, 21, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">22.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag22" value="1" <%if mid(qxflag, 22, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">23.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag23" value="1" <%if mid(qxflag, 23, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">24.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag24" value="1" <%if mid(qxflag, 24, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">25.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag25" value="1" <%if mid(qxflag, 25, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 跟单管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">26.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag26" value="1" <%if mid(qxflag, 26, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">27.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag27" value="1" <%if mid(qxflag, 27, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">28.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag28" value="1" <%if mid(qxflag, 28, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">29.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag29" value="1" <%if mid(qxflag, 29, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">30.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag30" value="1" <%if mid(qxflag, 30, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 订单管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">31.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag31" value="1" <%if mid(qxflag, 31, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">32.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag32" value="1" <%if mid(qxflag, 32, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">33.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag33" value="1" <%if mid(qxflag, 33, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">34.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag34" value="1" <%if mid(qxflag, 34, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">35.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag35" value="1" <%if mid(qxflag, 35, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 合同管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">36.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag36" value="1" <%if mid(qxflag, 36, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">37.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag37" value="1" <%if mid(qxflag, 37, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">38.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag38" value="1" <%if mid(qxflag, 38, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">39.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag39" value="1" <%if mid(qxflag, 39, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">40.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag40" value="1" <%if mid(qxflag, 40, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 售后管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">41.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag41" value="1" <%if mid(qxflag, 41, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">42.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag42" value="1" <%if mid(qxflag, 42, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">43.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag43" value="1" <%if mid(qxflag, 43, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">44.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag44" value="1" <%if mid(qxflag, 44, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">45.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag45" value="1" <%if mid(qxflag, 45, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 费用管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">46.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag46" value="1" <%if mid(qxflag, 46, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">47.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag47" value="1" <%if mid(qxflag, 47, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">48.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag48" value="1" <%if mid(qxflag, 48, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">49.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag49" value="1" <%if mid(qxflag, 49, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">50.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag50" value="1" <%if mid(qxflag, 50, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 附件管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">51.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag51" value="1" <%if mid(qxflag, 51, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">52.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag52" value="1" <%if mid(qxflag, 52, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">53.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag53" value="1" <%if mid(qxflag, 53, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">54.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag54" value="1" <%if mid(qxflag, 54, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">55.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag55" value="1" <%if mid(qxflag, 55, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> </fieldset> <fieldset style="margin-top:10px;padding:10px;"> <input type="button" class="button246" onclick="javascript:selectall('levelB')" value="全选/反选" style="margin-bottom:10px;" /> <legend> <B style="font-size:14px;">办公OA</B> </legend> <fieldset style="padding:10px;"> <legend> 内部公文 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">56.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag56" value="1" <%if mid(qxflag, 56, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">57.</td> <td class="td_l_r title"><font color=red>新增</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag57" value="1" <%if mid(qxflag, 57, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">58.</td> <td class="td_l_r title"><font color=red>修改</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag58" value="1" <%if mid(qxflag, 58, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">59.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag59" value="1" <%if mid(qxflag, 59, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">60.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag60" value="1" <%if mid(qxflag, 60, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 站内短信 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">61.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag61" value="1" <%if mid(qxflag, 61, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">62.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag62" value="1" <%if mid(qxflag, 62, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">63.</td> <td class="td_l_r title">回复</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag63" value="1" <%if mid(qxflag, 63, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">64.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag64" value="1" <%if mid(qxflag, 64, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">65.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag65" value="1" <%if mid(qxflag, 65, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 工作报告 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">66.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag66" value="1" <%if mid(qxflag, 66, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">67.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag67" value="1" <%if mid(qxflag, 67, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">68.</td> <td class="td_l_r title"><font color=red>批注</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag68" value="1" <%if mid(qxflag, 68, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">69.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag69" value="1" <%if mid(qxflag, 69, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">70.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag70" value="1" <%if mid(qxflag, 70, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 其它 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">71.</td> <td class="td_l_r title">文件柜</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag71" value="1" <%if mid(qxflag, 71, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">72.</td> <td class="td_l_r title">通讯录</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag72" value="1" <%if mid(qxflag, 72, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">73.</td> <td class="td_l_r title">个人日历</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag73" value="1" <%if mid(qxflag, 73, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">74.</td> <td class="td_l_r title">内部聊天</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag74" value="1" <%if mid(qxflag, 74, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">75.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag75" value="1" <%if mid(qxflag, 75, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 预留权限 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">76.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag76" value="1" <%if mid(qxflag, 76, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">77.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag77" value="1" <%if mid(qxflag, 77, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">78.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag78" value="1" <%if mid(qxflag, 78, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">79.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag79" value="1" <%if mid(qxflag, 79, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">80.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag80" value="1" <%if mid(qxflag, 80, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> </fieldset> </td> </tr> </table> <div class="fixed_bg_B"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n Bottom_pd "> <input type="submit" name="Submit" class="button45" value="保存"> <input name="Back" type="button" id="Back" class="button43" value="关闭" onClick="art.dialog.close();"> </td> </tr> </table> </div> </form> <% elseif sType="SaveAdd" then lId = Trim(Request("lId")) lName = Trim(Request("lName")) qxflag = "" for i = 1 to 100 if Request("qxflag" & i) = "1" then qxflag = qxflag & "1" else qxflag = qxflag & "0" end if next Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From [system_Level] Where lId = " & lId & " Or lName = '" & lName & "' ",conn,3,1 If rs.RecordCount > 0 Then Response.Write("<script>location.href='GetLevel.asp?action=Level&sType=Add&tipinfo=权限值或角色名称有重复';</script>") Response.End() End If rs.Close rs.Open "Select Top 1 * From [system_Level]",conn,3,2 rs.AddNew rs("lId") = lId rs("lName") = lName rs("lQxfalg") = qxflag rs.Update rs.Close Set rs = Nothing Response.Write("<script>art.dialog.close();art.dialog.open.origin.location.reload();</script>") elseif sType="Edit" then Id = Request("Id") qxflag = EasyCrm.getNewItem("system_Level","lId",""&Id&"","lQxfalg") %> <form name="Save" id="Level" action="GetLevel.asp?action=Level&sType=SaveEdit" method="post" onSubmit="return CheckInput();"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n pdl10 pdr10 pdt10"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="100" /> <tr class="tr_t"> <td class="td_l_l" COLSPAN="4"><B>编辑角色 </B></td> </tr> <tr> <td class="td_l_r title"><font color="#FF0000">*</font> 权限值</td> <td class="td_l_l"><input name="lId" type="text" class="int" id="lId" size="10" maxlength="1" onkeyup='this.value=this.value.replace(/\D/gi,"")' value="<%=EasyCrm.getNewItem("system_Level","lId",""&Id&"","lId")%>" > <span class="info_help help01">限:数字 2 - 8</span></td> <td class="td_l_r title"><font color="#FF0000">*</font> 角色名称</td> <td class="td_l_l"><input name="lName" type="text" class="int" id="lName" size="30" maxlength="16" value="<%=EasyCrm.getNewItem("system_Level","lId",""&Id&"","lName")%>" > </td> </tr> <tr> <td class="td_l_r title" ><font color="#FF0000">*</font> 是否同步</td> <td class="td_l_l" colspan=3><input name="YnUpdate" type="radio" id="YnUpdate" value="1" > 是 <input name="YnUpdate" type="radio" id="YnUpdate" value="0" checked > 否 <span class="info_help help01">选中“是”,则更新当前角色内所有成员的权限</span></td> </tr> </table> </td> </tr> <tr> <td valign="top" class="td_n pdl10 pdr10 pdt10"> <fieldset style="padding:10px;"> <legend> <B style="font-size:14px;">全局权限</B> </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="4%"><col width="11%"><col width="5%"> <col width="4%"><col width="11%"><col width="5%"> <col width="4%"><col width="11%"><col width="5%"> <col width="4%"><col width="11%"><col width="5%"> <col width="4%"><col width="11%"><col width="5%"> <tr> <td class="td_l_c fontbold">01.</td> <td class="td_l_r title">系统登录</td> <td class="td_r_c"><input type="checkbox" name="qxflag1" value="1" <%if mid(qxflag, 1, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">02.</td> <td class="td_l_r title">客户管理</td> <td class="td_r_c"><input type="checkbox" name="qxflag2" value="1" <%if mid(qxflag, 2, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">03.</td> <td class="td_l_r title">办公OA</td> <td class="td_r_c"><input type="checkbox" name="qxflag3" value="1" <%if mid(qxflag, 3, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">04.</td> <td class="td_l_r title">功能插件</td> <td class="td_r_c"><input type="checkbox" name="qxflag4" value="1" <%if mid(qxflag, 4, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">05.</td> <td class="td_l_r title" onmouseover="tip.start(this)" tips="超管权限!"><font color=red><B>系统设置</B></font></td> <td class="td_r_c"><input type="checkbox" name="qxflag5" value="1" <%if mid(qxflag, 5, 1) = "1" then Response.Write "checked"%>></td> </tr> <tr> <td class="td_l_c fontbold">06.</td> <td class="td_l_r title" onmouseover="tip.start(this)" tips="客户档案下拉框字段新增项目"><font color=red>新增下拉框</font></td> <td class="td_r_c"><input type="checkbox" name="qxflag6" value="1" <%if mid(qxflag, 6, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">07.</td> <td class="td_l_r title" onmouseover="tip.start(this)" tips="导出客户数据,有一定风险!"><font color=red>导出Excel</font></td> <td class="td_r_c"><input type="checkbox" name="qxflag7" value="1" <%if mid(qxflag, 7, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">08.</td> <td class="td_l_r title" onmouseover="tip.start(this)" tips="导入客户数据,有一定风险!"><font color=red>导入Excel</font></td> <td class="td_r_c"><input type="checkbox" name="qxflag8" value="1" <%if mid(qxflag, 8, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">09.</td> <td class="td_l_r title" onmouseover="tip.start(this)" tips="批量更新数据,有一定风险!"><font color=red>批量操作</font></td> <td class="td_r_c"><input type="checkbox" name="qxflag9" value="1" <%if mid(qxflag, 9, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">10.</td> <td class="td_l_r title"><font color=red>客户共享</font></td> <td class="td_r_c"><input type="checkbox" name="qxflag10" value="1" <%if mid(qxflag, 10, 1) = "1" then Response.Write "checked"%>></td> </tr> <tr> <td class="td_l_c fontbold">11.</td> <td class="td_l_r title">高级搜索</td> <td class="td_r_c"><input type="checkbox" name="qxflag11" value="1" <%if mid(qxflag, 11, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">12.</td> <td class="td_l_r title">客户转移</td> <td class="td_r_c"><input type="checkbox" name="qxflag12" value="1" <%if mid(qxflag, 12, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">13.</td> <td class="td_l_r title">售后处理</td> <td class="td_r_c"><input type="checkbox" name="qxflag13" value="1" <%if mid(qxflag, 13, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">14.</td> <td class="td_l_r title">合同审核</td> <td class="td_r_c"><input type="checkbox" name="qxflag14" value="1" <%if mid(qxflag, 14, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">15.</td> <td class="td_l_r title">公海审核</td> <td class="td_r_c"><input type="checkbox" name="qxflag15" value="1" <%if mid(qxflag, 15, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;padding:10px;"> <input type="button" class="button246" onclick="javascript:selectall('levelA')" value="全选/反选" style="margin-bottom:10px;" /> <legend> <B style="font-size:14px;">客户管理</B> </legend> <fieldset style="padding:10px;"> <legend> 客户档案 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">16.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag16" value="1" <%if mid(qxflag, 16, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">17.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag17" value="1" <%if mid(qxflag, 17, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">18.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag18" value="1" <%if mid(qxflag, 18, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">19.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag19" value="1" <%if mid(qxflag, 19, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">20.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag20" value="1" <%if mid(qxflag, 20, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 联系人 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">21.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag21" value="1" <%if mid(qxflag, 21, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">22.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag22" value="1" <%if mid(qxflag, 22, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">23.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag23" value="1" <%if mid(qxflag, 23, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">24.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag24" value="1" <%if mid(qxflag, 24, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">25.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag25" value="1" <%if mid(qxflag, 25, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 跟单管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">26.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag26" value="1" <%if mid(qxflag, 26, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">27.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag27" value="1" <%if mid(qxflag, 27, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">28.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag28" value="1" <%if mid(qxflag, 28, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">29.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag29" value="1" <%if mid(qxflag, 29, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">30.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag30" value="1" <%if mid(qxflag, 30, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 订单管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">31.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag31" value="1" <%if mid(qxflag, 31, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">32.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag32" value="1" <%if mid(qxflag, 32, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">33.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag33" value="1" <%if mid(qxflag, 33, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">34.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag34" value="1" <%if mid(qxflag, 34, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">35.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag35" value="1" <%if mid(qxflag, 35, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 合同管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">36.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag36" value="1" <%if mid(qxflag, 36, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">37.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag37" value="1" <%if mid(qxflag, 37, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">38.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag38" value="1" <%if mid(qxflag, 38, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">39.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag39" value="1" <%if mid(qxflag, 39, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">40.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag40" value="1" <%if mid(qxflag, 40, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 售后管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">41.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag41" value="1" <%if mid(qxflag, 41, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">42.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag42" value="1" <%if mid(qxflag, 42, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">43.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag43" value="1" <%if mid(qxflag, 43, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">44.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag44" value="1" <%if mid(qxflag, 44, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">45.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag45" value="1" <%if mid(qxflag, 45, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 费用管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">46.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag46" value="1" <%if mid(qxflag, 46, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">47.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag47" value="1" <%if mid(qxflag, 47, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">48.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag48" value="1" <%if mid(qxflag, 48, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">49.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag49" value="1" <%if mid(qxflag, 49, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">50.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag50" value="1" <%if mid(qxflag, 50, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 附件管理 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">51.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag51" value="1" <%if mid(qxflag, 51, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">52.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag52" value="1" <%if mid(qxflag, 52, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">53.</td> <td class="td_l_r title">修改</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag53" value="1" <%if mid(qxflag, 53, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">54.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag54" value="1" <%if mid(qxflag, 54, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">55.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelA" name="qxflag55" value="1" <%if mid(qxflag, 55, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> </fieldset> <fieldset style="margin-top:10px;padding:10px;"> <input type="button" class="button246" onclick="javascript:selectall('levelB')" value="全选/反选" style="margin-bottom:10px;" /> <legend> <B style="font-size:14px;">办公OA</B> </legend> <fieldset style="padding:10px;"> <legend> 内部公文 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">56.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag56" value="1" <%if mid(qxflag, 56, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">57.</td> <td class="td_l_r title"><font color=red>新增</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag57" value="1" <%if mid(qxflag, 57, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">58.</td> <td class="td_l_r title"><font color=red>修改</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag58" value="1" <%if mid(qxflag, 58, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">59.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag59" value="1" <%if mid(qxflag, 59, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">60.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag60" value="1" <%if mid(qxflag, 60, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 站内短信 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">61.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag61" value="1" <%if mid(qxflag, 61, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">62.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag62" value="1" <%if mid(qxflag, 62, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">63.</td> <td class="td_l_r title">回复</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag63" value="1" <%if mid(qxflag, 63, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">64.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag64" value="1" <%if mid(qxflag, 64, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">65.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag65" value="1" <%if mid(qxflag, 65, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 工作报告 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">66.</td> <td class="td_l_r title">查看</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag66" value="1" <%if mid(qxflag, 66, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">67.</td> <td class="td_l_r title">新增</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag67" value="1" <%if mid(qxflag, 67, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">68.</td> <td class="td_l_r title"><font color=red>批注</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag68" value="1" <%if mid(qxflag, 68, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">69.</td> <td class="td_l_r title"><font color=red>删除</font></td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag69" value="1" <%if mid(qxflag, 69, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">70.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag70" value="1" <%if mid(qxflag, 70, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 其它 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">71.</td> <td class="td_l_r title">文件柜</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag71" value="1" <%if mid(qxflag, 71, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">72.</td> <td class="td_l_r title">通讯录</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag72" value="1" <%if mid(qxflag, 72, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">73.</td> <td class="td_l_r title">个人日历</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag73" value="1" <%if mid(qxflag, 73, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">74.</td> <td class="td_l_r title">内部聊天</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag74" value="1" <%if mid(qxflag, 74, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">75.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag75" value="1" <%if mid(qxflag, 75, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> <fieldset style="margin-top:10px;"> <legend> 预留权限 </legend> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <col width="5%"><col width="10%"><col width="5%"> <tr> <td class="td_l_c fontbold">76.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag76" value="1" <%if mid(qxflag, 76, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">77.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag77" value="1" <%if mid(qxflag, 77, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">78.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag78" value="1" <%if mid(qxflag, 78, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">79.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag79" value="1" <%if mid(qxflag, 79, 1) = "1" then Response.Write "checked"%>></td> <td class="td_l_c fontbold">80.</td> <td class="td_l_r title">预留</td> <td class="td_r_c"><input type="checkbox" id="levelB" name="qxflag80" value="1" <%if mid(qxflag, 80, 1) = "1" then Response.Write "checked"%>></td> </tr> </table> </fieldset> </fieldset> </td> </tr> </table> <div class="fixed_bg_B"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n Bottom_pd "> <input name="lIdOld" type="hidden" id="lIdOld" value="<%=Id%>"> <input name="lNameOld" type="hidden" id="lNameOld" value="<%=EasyCrm.getNewItem("system_Level","lId",""&Id&"","lName")%>"> <input type="submit" name="Submit" class="button45" value="保存"> <input name="Back" type="button" id="Back" class="button43" value="关闭" onClick="art.dialog.close();"> </td> </tr> </table> </div> </form> <% elseif sType="SaveEdit" then lId = Trim(Request("lId")) lIdOld = Trim(Request("lIdOld")) lName = Trim(Request("lName")) lNameOld = Trim(Request("lNameOld")) YnUpdate = Trim(Request("YnUpdate")) qxflag = "" for i = 1 to 100 if Request("qxflag" & i) = "1" then qxflag = qxflag & "1" else qxflag = qxflag & "0" end if next if lId = lIdOld then '如果没更新权限值 if lName <> lNameOld then '如果只修改角色名称,判断是否与其它角色名称重复 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From [system_level] Where lName = '" & lName & "' ",conn,1,1 If rs.RecordCount > 0 Then Response.Write("<script>location.href='GetLevel.asp?action=Level&sType=Edit&Id="&lId&"&tipinfo=角色名称有重复';</script>") Response.End() else conn.execute("update [system_level] set lName = '"&lName&"' where lName = '"&lNameOld&"' ") End If rs.Close end if conn.execute("update [system_level] set lQxfalg = '"&qxflag&"' where lId = "&lId&" ") if YnUpdate = "1" then '同步更新用户权限 conn.execute("update [User] set uQxflag = '"&qxflag&"' where uLevel = "&lId&" ") end if else '如果更新了权限值,同步更新用户表 '如果权限值与其它角色重复 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From [system_level] Where lId = " & lId & " and lName <> '" & lNameOld & "' ",conn,1,1 If rs.RecordCount > 0 Then Response.Write("<script>location.href='GetLevel.asp?action=Level&sType=Edit&Id="&lIdOld&"&tipinfo=权限值有重复';</script>") Response.End() End If rs.Close if lName <> lNameOld then '如果更改了角色名称,则判断角色名称是否与别的角色重复 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From [system_level] Where lName = '" & lName & "' and lId="&lId&" ",conn,1,1 If rs.RecordCount > 0 Then Response.Write("<script>location.href='GetLevel.asp?action=Level&sType=Edit&Id="&lId&"&tipinfo=角色名称有重复';</script>") Response.End() else conn.execute("update [system_level] set lId = '"&lId&"',lName='"&lName&"' where lId = "&lIdOld&" ") End If rs.Close else '如果只修改权限值,则不考虑角色名称 conn.execute("update [system_level] set lId = '"&lId&"' where lId = "&lIdOld&" ") end if conn.execute("update [system_level] set lQxfalg = '"&qxflag&"' where lId = "&lIdOld&" ") if YnUpdate = "1" then '同步更新用户权限 conn.execute("update [User] set uQxflag = '"&qxflag&"' where uLevel = "&lIdOld&" ") end if end if Response.Write("<script>art.dialog.close();art.dialog.open.origin.location.reload();</script>") end if End Sub %> <div id="mjs:tip" class="tip" style="position:absolute;left:0;top:0;display:none;margin-left:10px;"></div> <script src="../data/calendar/WdatePicker.js"></script> </body><% Set EasyCrm = nothing %>