<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="../Inc/Conn.asp" -->
<!--#include file="../Inc/SK.Session.asp" -->
<!--#include file="../Inc/SK.Funtion.asp" -->
<%if Not (Session("Manager")="1" OR (JudgePopedomTF(Session("UserName"),"SK900000000") AND JudgePopedomTF(Session("UserName"),"SK910000006"))) then Call ReturnError1()%>
<%
if not isnumeric(JCID(F("ID"))) then Call ReturnError10()
set rs=server.createobject("adodb.recordset")
sql="SELECT * from SK_SystemDept where LID="&JCID(F("ID"))&""
rs.Open sql,conn,1,1
if rs.eof and rs.bof then Call ReturnError4()

'Mod
if RQ("Action")="Mod" and F("ID")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from SK_SystemDept where LID="&F("ID")&""
rs.open sql,conn,1,3
rs("SK_PopList")=F("Pop")
rs.Update
rs.close
Set rs=Nothing

'Event Begin
if getconfig("SK_Event")=0 then
set rsEvent=server.createobject("adodb.recordset")
sqlEvent="select * from SK_SystemEvent"
rsEvent.open sqlEvent,conn,1,3
rsEvent.AddNew
rsEvent("SK_Title")="修改用户部门权限"
rsEvent("SK_User")=Session("UserName")
rsEvent("SK_Time")=Now()
rsEvent("SK_IP")=request.ServerVariables("Remote_Addr")
rsEvent.Update
rsEvent.Close 
set rsEvent=Nothing
end if
'Event End
Response.Write("<script LANGUAGE='javascript'>alert('恭喜你,修改成功！');window.close();window.opener.location.reload();</script>")
Response.End
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>修改部门权限</title>
<META http-equiv=Page-Enter content=SKCRM>
<META http-equiv=Page-Exit content=SKCRM>
<META content="MSHTML 6.00.3790.2858" name=GENERATOR>
<LINK href="../images/style.css" type=text/css rel=stylesheet>
<script language="javascript" src="../Inc/Check.js"></script>
<script language="javascript" src="../Inc/Calendar.js"></script>
<script language="javascript" src="../Inc/jquery.js"></script>
<style type="text/css">
<!--
body {
margin: 5px 0px 5px 0px;
overflow-x: hidden;
}
-->
</style>
</head>
<body>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<TBODY>
<tr>
<td class="SK_Td_Top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12" height="25"><img src="../images/tab_03.gif" width="12" height="25" /></td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="46%" valign="middle">修改部门(<%=Rs("LName")%>)权限</td>
<td width="54%"></td>
</tr>
</table></td>
<td width="16"><img src="../images/tab_07.gif" width="16" height="25" /></td>
</tr>
</table></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8" background="../images/tab_12.gif"></td>
<td>

<form name="thisForm" id="form1" method="post" action="?Action=Mod"> 
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="b5d6e6">

<tr>
  <td class="SK_TitleQX"><input style="border:0" name="Pop" type="checkbox" value="SK000000001" <%if InStr(1,Rs("SK_PopList"),"SK000000001",1)<>0 then Response.Write("checked")%>> 修改资料 <input name="chkall" type="checkbox" id="chkall" value="select" onClick="CheckAll(this.form)" style="border:0" /> 全选</td>
</tr>
<%if Getconfig("SK_Client")="0" then%>
<tr>
  <td class="SK_TitleQX"><input style="border:0" name="Pop" type="checkbox" value="SK100000000" <%if InStr(1,Rs("SK_PopList"),"SK100000000",1)<>0 then Response.Write("checked")%>> 协同办公</td>
</tr>

<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK100000100" <%if InStr(1,Rs("SK_PopList"),"SK100000100",1)<>0 then Response.Write("checked")%>> 内部交流论坛 <input style="border:0" name="Pop" type="checkbox" value="SK100000101" <%if InStr(1,Rs("SK_PopList"),"SK100000101",1)<>0 then Response.Write("checked")%>> 发布论坛帖子 <input style="border:0" name="Pop" type="checkbox" value="SK100000102" <%if InStr(1,Rs("SK_PopList"),"SK100000102",1)<>0 then Response.Write("checked")%>> 修改论坛帖子 <input name="Pop" style="border:0" type="checkbox" value="SK100000103" <%if InStr(1,Rs("SK_PopList"),"SK100000103",1)<>0 then Response.Write("checked")%>> 删除论坛帖子 <input name="Pop" style="border:0" type="checkbox" value="SK100000104" <%if InStr(1,Rs("SK_PopList"),"SK100000104",1)<>0 then Response.Write("checked")%>> 回复论坛帖子</td>
  </tr>
<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK100000200" <%if InStr(1,Rs("SK_PopList"),"SK100000200",1)<>0 then Response.Write("checked")%>> 新闻信息中心 <input style="border:0" name="Pop" type="checkbox" value="SK100000201" <%if InStr(1,Rs("SK_PopList"),"SK100000201",1)<>0 then Response.Write("checked")%>> 新建新闻信息 <input style="border:0" name="Pop" type="checkbox" value="SK100000202" <%if InStr(1,Rs("SK_PopList"),"SK100000202",1)<>0 then Response.Write("checked")%>> 修改新闻信息 <input name="Pop" style="border:0" type="checkbox" value="SK100000203" <%if InStr(1,Rs("SK_PopList"),"SK100000203",1)<>0 then Response.Write("checked")%>> 删除新闻信息</td>
</tr>
<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK100000300" <%if InStr(1,Rs("SK_PopList"),"SK100000300",1)<>0 then Response.Write("checked")%>> 共享资源专区 <input style="border:0" name="Pop" type="checkbox" value="SK100000301" <%if InStr(1,Rs("SK_PopList"),"SK100000301",1)<>0 then Response.Write("checked")%>> 新建共享资源 <input style="border:0" name="Pop" type="checkbox" value="SK100000302" <%if InStr(1,Rs("SK_PopList"),"SK100000302",1)<>0 then Response.Write("checked")%>> 修改共享资源 <input name="Pop" style="border:0" type="checkbox" value="SK100000303" <%if InStr(1,Rs("SK_PopList"),"SK100000303",1)<>0 then Response.Write("checked")%>> 删除共享资源</td>
</tr>
<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK100000400" <%if InStr(1,Rs("SK_PopList"),"SK100000400",1)<>0 then Response.Write("checked")%>> 网址收藏专区 <input style="border:0" name="Pop" type="checkbox" value="SK100000401" <%if InStr(1,Rs("SK_PopList"),"SK100000401",1)<>0 then Response.Write("checked")%>> 新建网址收藏 <input style="border:0" name="Pop" type="checkbox" value="SK100000402" <%if InStr(1,Rs("SK_PopList"),"SK100000402",1)<>0 then Response.Write("checked")%>> 修改网址收藏 <input name="Pop" style="border:0" type="checkbox" value="SK100000403" <%if InStr(1,Rs("SK_PopList"),"SK100000403",1)<>0 then Response.Write("checked")%>> 删除网址收藏</td>
</tr>
<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK100000500" <%if InStr(1,Rs("SK_PopList"),"SK100000500",1)<>0 then Response.Write("checked")%>> 个人工作日志 <input style="border:0" name="Pop" type="checkbox" value="SK100000501" <%if InStr(1,Rs("SK_PopList"),"SK100000501",1)<>0 then Response.Write("checked")%>> 新建工作日志 <input style="border:0" name="Pop" type="checkbox" value="SK100000502" <%if InStr(1,Rs("SK_PopList"),"SK100000502",1)<>0 then Response.Write("checked")%>> 修改工作日志 <input name="Pop" style="border:0" type="checkbox" value="SK100000503" <%if InStr(1,Rs("SK_PopList"),"SK100000503",1)<>0 then Response.Write("checked")%>> 删除工作日志 <input name="Pop" style="border:0" type="checkbox" value="SK100000504" <%if InStr(1,Rs("SK_PopList"),"SK100000504",1)<>0 then Response.Write("checked")%>> 点评工作日志</td>
</tr>
<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK100000600" <%if InStr(1,Rs("SK_PopList"),"SK100000600",1)<>0 then Response.Write("checked")%>> 个人报销列表 <input style="border:0" name="Pop" type="checkbox" value="SK100000601" <%if InStr(1,Rs("SK_PopList"),"SK100000601",1)<>0 then Response.Write("checked")%>> 新建报销信息 <input style="border:0" name="Pop" type="checkbox" value="SK100000602" <%if InStr(1,Rs("SK_PopList"),"SK100000602",1)<>0 then Response.Write("checked")%>> 修改报销信息 <input name="Pop" style="border:0" type="checkbox" value="SK100000603" <%if InStr(1,Rs("SK_PopList"),"SK100000603",1)<>0 then Response.Write("checked")%>> 删除报销信息 <input name="Pop" style="border:0" type="checkbox" value="SK100000604" <%if InStr(1,Rs("SK_PopList"),"SK100000604",1)<>0 then Response.Write("checked")%>> 审核报销信息</td>
</tr>
<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK100000610" <%if InStr(1,Rs("SK_PopList"),"SK100000610",1)<>0 then Response.Write("checked")%>> 个人借款列表 <input style="border:0" name="Pop" type="checkbox" value="SK100000611" <%if InStr(1,Rs("SK_PopList"),"SK100000611",1)<>0 then Response.Write("checked")%>> 新建借款信息 <input style="border:0" name="Pop" type="checkbox" value="SK100000612" <%if InStr(1,Rs("SK_PopList"),"SK100000612",1)<>0 then Response.Write("checked")%>> 修改借款信息 <input name="Pop" style="border:0" type="checkbox" value="SK100000613" <%if InStr(1,Rs("SK_PopList"),"SK100000613",1)<>0 then Response.Write("checked")%>> 删除借款信息 <input name="Pop" style="border:0" type="checkbox" value="SK100000614" <%if InStr(1,Rs("SK_PopList"),"SK100000614",1)<>0 then Response.Write("checked")%>> 审核借款信息</td>
</tr>
<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK100000620" <%if InStr(1,Rs("SK_PopList"),"SK100000620",1)<>0 then Response.Write("checked")%>> 企业事务列表 <input style="border:0" name="Pop" type="checkbox" value="SK100000621" <%if InStr(1,Rs("SK_PopList"),"SK100000621",1)<>0 then Response.Write("checked")%>> 新建企业事务 <input style="border:0" name="Pop" type="checkbox" value="SK100000622" <%if InStr(1,Rs("SK_PopList"),"SK100000622",1)<>0 then Response.Write("checked")%>> 修改企业事务 <input name="Pop" style="border:0" type="checkbox" value="SK100000623" <%if InStr(1,Rs("SK_PopList"),"SK100000623",1)<>0 then Response.Write("checked")%>> 删除企业事务 <input name="Pop" style="border:0" type="checkbox" value="SK100000624" <%if InStr(1,Rs("SK_PopList"),"SK100000624",1)<>0 then Response.Write("checked")%>> 审核企业事务</td>
</tr>

<tr>
  <td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK100000700" <%if InStr(1,Rs("SK_PopList"),"SK100000700",1)<>0 then Response.Write("checked")%>> 内部员工通讯 
<input style="border:0" name="Pop" type="checkbox" value="SK100000701" <%if InStr(1,Rs("SK_PopList"),"SK100000701",1)<>0 then Response.Write("checked")%>> 电子地图查询 
<input style="border:0" name="Pop" type="checkbox" value="SK100000702" <%if InStr(1,Rs("SK_PopList"),"SK100000702",1)<>0 then Response.Write("checked")%>> 内部消息系统 
<input name="Pop" style="border:0" type="checkbox" value="SK100000704" <%if InStr(1,Rs("SK_PopList"),"SK100000704",1)<>0 then Response.Write("checked")%>> 我的工资查询 
<input name="Pop" style="border:0" type="checkbox" value="SK100000705" <%if InStr(1,Rs("SK_PopList"),"SK100000705",1)<>0 then Response.Write("checked")%>> 短信群发系统
</td>
</tr>
<%end if%>

<%if Getconfig("SK_Client")="0" then%>
<tr>
  <td class="SK_TitleQX"><input style="border:0" name="Pop" type="checkbox" value="SK200000000" <%if InStr(1,Rs("SK_PopList"),"SK200000000",1)<>0 then Response.Write("checked")%>> 客户管理</td>
</tr>
<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK200000100" <%if InStr(1,Rs("SK_PopList"),"SK200000100",1)<>0 then Response.Write("checked")%>> 我的客户信息 <input style="border:0" name="Pop" type="checkbox" value="SK200000101" <%if InStr(1,Rs("SK_PopList"),"SK200000101",1)<>0 then Response.Write("checked")%>> 新建客户信息 <input style="border:0" name="Pop" type="checkbox" value="SK200000102" <%if InStr(1,Rs("SK_PopList"),"SK200000102",1)<>0 then Response.Write("checked")%>> 修改客户信息 <input name="Pop" style="border:0" type="checkbox" value="SK200000103" <%if InStr(1,Rs("SK_PopList"),"SK200000103",1)<>0 then Response.Write("checked")%>> 删除客户信息 <input name="Pop" style="border:0" type="checkbox" value="SK200000104" <%if InStr(1,Rs("SK_PopList"),"SK200000104",1)<>0 then Response.Write("checked")%>> 导出客户信息 <input style="border:0" name="Pop" type="checkbox" value="SK200000105" <%if InStr(1,Rs("SK_PopList"),"SK200000105",1)<>0 then Response.Write("checked")%>> 客户信息回收 <input style="border:0" name="Pop" type="checkbox" value="SK200000106" <%if InStr(1,Rs("SK_PopList"),"SK200000106",1)<>0 then Response.Write("checked")%>> 彻底删除客户 <input style="border:0" name="Pop" type="checkbox" value="SK200000107" <%if InStr(1,Rs("SK_PopList"),"SK200000107",1)<>0 then Response.Write("checked")%>> 恢复客户信息<br><input style="border:0" name="Pop" type="checkbox" value="SK200000108" <%if InStr(1,Rs("SK_PopList"),"SK200000108",1)<>0 then Response.Write("checked")%>> 我共享的客户 <input style="border:0" name="Pop" type="checkbox" value="SK200000109" <%if InStr(1,Rs("SK_PopList"),"SK200000109",1)<>0 then Response.Write("checked")%>> 他人共享客户</td>
</tr>

<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK200000200" <%if InStr(1,Rs("SK_PopList"),"SK200000200",1)<>0 then Response.Write("checked")%>> 客户联系人员 <input style="border:0" name="Pop" type="checkbox" value="SK200000201" <%if InStr(1,Rs("SK_PopList"),"SK200000201",1)<>0 then Response.Write("checked")%>> 新建联系人员 <input style="border:0" name="Pop" type="checkbox" value="SK200000202" <%if InStr(1,Rs("SK_PopList"),"SK200000202",1)<>0 then Response.Write("checked")%>> 修改联系人员 <input name="Pop" style="border:0" type="checkbox" value="SK200000203" <%if InStr(1,Rs("SK_PopList"),"SK200000203",1)<>0 then Response.Write("checked")%>> 删除联系人员 <input name="Pop" style="border:0" type="checkbox" value="SK200000204" <%if InStr(1,Rs("SK_PopList"),"SK200000204",1)<>0 then Response.Write("checked")%>> 导出联系人员 <input style="border:0" name="Pop" type="checkbox" value="SK200000205" <%if InStr(1,Rs("SK_PopList"),"SK200000205",1)<>0 then Response.Write("checked")%>> 联系人员回收 <input style="border:0" name="Pop" type="checkbox" value="SK200000206" <%if InStr(1,Rs("SK_PopList"),"SK200000206",1)<>0 then Response.Write("checked")%>> 彻删联系人员 <input style="border:0" name="Pop" type="checkbox" value="SK200000207" <%if InStr(1,Rs("SK_PopList"),"SK200000207",1)<>0 then Response.Write("checked")%>> 恢复联系人员</td>
</tr>

<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK200000300" <%if InStr(1,Rs("SK_PopList"),"SK200000300",1)<>0 then Response.Write("checked")%>> 客户跟进管理 <input style="border:0" name="Pop" type="checkbox" value="SK200000301" <%if InStr(1,Rs("SK_PopList"),"SK200000301",1)<>0 then Response.Write("checked")%>> 新建客户跟进 <input style="border:0" name="Pop" type="checkbox" value="SK200000302" <%if InStr(1,Rs("SK_PopList"),"SK200000302",1)<>0 then Response.Write("checked")%>> 修改客户跟进 <input name="Pop" style="border:0" type="checkbox" value="SK200000303" <%if InStr(1,Rs("SK_PopList"),"SK200000303",1)<>0 then Response.Write("checked")%>> 删除客户跟进 <input name="Pop" style="border:0" type="checkbox" value="SK200000304" <%if InStr(1,Rs("SK_PopList"),"SK200000304",1)<>0 then Response.Write("checked")%>> 点评客户跟进 <input style="border:0" name="Pop" type="checkbox" value="SK200000305" <%if InStr(1,Rs("SK_PopList"),"SK200000305",1)<>0 then Response.Write("checked")%>> 客户跟进回收 <input style="border:0" name="Pop" type="checkbox" value="SK200000306" <%if InStr(1,Rs("SK_PopList"),"SK200000306",1)<>0 then Response.Write("checked")%>> 彻删客户跟进 <input style="border:0" name="Pop" type="checkbox" value="SK200000307" <%if InStr(1,Rs("SK_PopList"),"SK200000307",1)<>0 then Response.Write("checked")%>> 恢复客户跟进</td>
</tr>
<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK200000400" <%if InStr(1,Rs("SK_PopList"),"SK200000400",1)<>0 then Response.Write("checked")%>> 全部客户管理 <input style="border:0" name="Pop" type="checkbox" value="SK200000401" <%if InStr(1,Rs("SK_PopList"),"SK200000401",1)<>0 then Response.Write("checked")%>> 导入客户信息 <input style="border:0" name="Pop" type="checkbox" value="SK200000402" <%if InStr(1,Rs("SK_PopList"),"SK200000402",1)<>0 then Response.Write("checked")%>> 分配客户信息 </td>
</tr>
<%end if%>

<%if Getconfig("SK_Sales")="0" then%>
<tr>
  <td class="SK_TitleQX"><input style="border:0" name="Pop" type="checkbox" value="SK300000000" <%if InStr(1,Rs("SK_PopList"),"SK300000000",1)<>0 then Response.Write("checked")%>> 销售管理</td>
</tr>

<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK300000100" <%if InStr(1,Rs("SK_PopList"),"SK300000100",1)<>0 then Response.Write("checked")%>> 市场活动信息 <input style="border:0" name="Pop" type="checkbox" value="SK300000101" <%if InStr(1,Rs("SK_PopList"),"SK300000101",1)<>0 then Response.Write("checked")%>> 新建市场活动 <input style="border:0" name="Pop" type="checkbox" value="SK300000102" <%if InStr(1,Rs("SK_PopList"),"SK300000102",1)<>0 then Response.Write("checked")%>> 修改市场活动 <input name="Pop" style="border:0" type="checkbox" value="SK300000103" <%if InStr(1,Rs("SK_PopList"),"SK300000103",1)<>0 then Response.Write("checked")%>> 删除市场活动
</td></tr>

<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK300000200" <%if InStr(1,Rs("SK_PopList"),"SK300000200",1)<>0 then Response.Write("checked")%>> 销售知识文库 <input style="border:0" name="Pop" type="checkbox" value="SK300000201" <%if InStr(1,Rs("SK_PopList"),"SK300000201",1)<>0 then Response.Write("checked")%>> 新建销售知识 <input style="border:0" name="Pop" type="checkbox" value="SK300000202" <%if InStr(1,Rs("SK_PopList"),"SK300000202",1)<>0 then Response.Write("checked")%>> 修改销售知识 <input name="Pop" style="border:0" type="checkbox" value="SK300000203" <%if InStr(1,Rs("SK_PopList"),"SK300000203",1)<>0 then Response.Write("checked")%>> 删除销售知识
</td></tr>

<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK300000300" <%if InStr(1,Rs("SK_PopList"),"SK300000300",1)<>0 then Response.Write("checked")%>> 产品销售报价 <input style="border:0" name="Pop" type="checkbox" value="SK300000301" <%if InStr(1,Rs("SK_PopList"),"SK300000301",1)<>0 then Response.Write("checked")%>> 新建产品报价 <input style="border:0" name="Pop" type="checkbox" value="SK300000302" <%if InStr(1,Rs("SK_PopList"),"SK300000302",1)<>0 then Response.Write("checked")%>> 修改产品报价 <input name="Pop" style="border:0" type="checkbox" value="SK300000303" <%if InStr(1,Rs("SK_PopList"),"SK300000303",1)<>0 then Response.Write("checked")%>> 删除产品报价 <input name="Pop" style="border:0" type="checkbox" value="SK300000304" <%if InStr(1,Rs("SK_PopList"),"SK300000304",1)<>0 then Response.Write("checked")%>> 导出产品报价 <input name="Pop" style="border:0" type="checkbox" value="SK300000305" <%if InStr(1,Rs("SK_PopList"),"SK300000305",1)<>0 then Response.Write("checked")%>> 产品报价回收 <input name="Pop" style="border:0" type="checkbox" value="SK300000306" <%if InStr(1,Rs("SK_PopList"),"SK300000306",1)<>0 then Response.Write("checked")%>> 彻底删除报价 <input name="Pop" style="border:0" type="checkbox" value="SK300000307" <%if InStr(1,Rs("SK_PopList"),"SK300000307",1)<>0 then Response.Write("checked")%>> 恢复产品报价
</td></tr>

<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK300000400" <%if InStr(1,Rs("SK_PopList"),"SK300000400",1)<>0 then Response.Write("checked")%>> 产品销售订单 <input style="border:0" name="Pop" type="checkbox" value="SK300000401" <%if InStr(1,Rs("SK_PopList"),"SK300000401",1)<>0 then Response.Write("checked")%>> 新建产品订单 <input style="border:0" name="Pop" type="checkbox" value="SK300000402" <%if InStr(1,Rs("SK_PopList"),"SK300000402",1)<>0 then Response.Write("checked")%>> 修改产品订单 <input name="Pop" style="border:0" type="checkbox" value="SK300000403" <%if InStr(1,Rs("SK_PopList"),"SK300000403",1)<>0 then Response.Write("checked")%>> 删除产品订单 <input name="Pop" style="border:0" type="checkbox" value="SK300000404" <%if InStr(1,Rs("SK_PopList"),"SK300000404",1)<>0 then Response.Write("checked")%>> 导出产品订单 <input name="Pop" style="border:0" type="checkbox" value="SK300000405" <%if InStr(1,Rs("SK_PopList"),"SK300000405",1)<>0 then Response.Write("checked")%>> 产品订单回收 <input name="Pop" style="border:0" type="checkbox" value="SK300000406" <%if InStr(1,Rs("SK_PopList"),"SK300000406",1)<>0 then Response.Write("checked")%>> 彻底删除订单 <input name="Pop" style="border:0" type="checkbox" value="SK300000407" <%if InStr(1,Rs("SK_PopList"),"SK300000407",1)<>0 then Response.Write("checked")%>> 恢复产品订单 <input name="Pop" style="border:0" type="checkbox" value="SK300000408" <%if InStr(1,Rs("SK_PopList"),"SK300000408",1)<>0 then Response.Write("checked")%>> 审核产品订单
</td></tr>

<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK300000500" <%if InStr(1,Rs("SK_PopList"),"SK300000500",1)<>0 then Response.Write("checked")%>> 产品销售回款 <input style="border:0" name="Pop" type="checkbox" value="SK300000501" <%if InStr(1,Rs("SK_PopList"),"SK300000501",1)<>0 then Response.Write("checked")%>> 新建产品回款 <input style="border:0" name="Pop" type="checkbox" value="SK300000502" <%if InStr(1,Rs("SK_PopList"),"SK300000502",1)<>0 then Response.Write("checked")%>> 修改产品回款 <input name="Pop" style="border:0" type="checkbox" value="SK300000503" <%if InStr(1,Rs("SK_PopList"),"SK300000503",1)<>0 then Response.Write("checked")%>> 删除产品回款 <input name="Pop" style="border:0" type="checkbox" value="SK300000504" <%if InStr(1,Rs("SK_PopList"),"SK300000504",1)<>0 then Response.Write("checked")%>> 导出产品回款 <input name="Pop" style="border:0" type="checkbox" value="SK300000305" <%if InStr(1,Rs("SK_PopList"),"SK300000505",1)<>0 then Response.Write("checked")%>> 产品回款回收 <input name="Pop" style="border:0" type="checkbox" value="SK300000506" <%if InStr(1,Rs("SK_PopList"),"SK300000506",1)<>0 then Response.Write("checked")%>> 彻底删除回款 <input name="Pop" style="border:0" type="checkbox" value="SK300000507" <%if InStr(1,Rs("SK_PopList"),"SK300000507",1)<>0 then Response.Write("checked")%>> 恢复产品回款
</td></tr>

<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK300000700" <%if InStr(1,Rs("SK_PopList"),"SK300000700",1)<>0 then Response.Write("checked")%>> 产品销售退货 <input style="border:0" name="Pop" type="checkbox" value="SK300000701" <%if InStr(1,Rs("SK_PopList"),"SK300000701",1)<>0 then Response.Write("checked")%>> 新建产品退货 <input style="border:0" name="Pop" type="checkbox" value="SK300000702" <%if InStr(1,Rs("SK_PopList"),"SK300000702",1)<>0 then Response.Write("checked")%>> 修改产品退货 <input name="Pop" style="border:0" type="checkbox" value="SK300000703" <%if InStr(1,Rs("SK_PopList"),"SK300000703",1)<>0 then Response.Write("checked")%>> 删除产品退货 <input name="Pop" style="border:0" type="checkbox" value="SK300000704" <%if InStr(1,Rs("SK_PopList"),"SK300000704",1)<>0 then Response.Write("checked")%>> 导出产品退货 <input name="Pop" style="border:0" type="checkbox" value="SK300000705" <%if InStr(1,Rs("SK_PopList"),"SK300000705",1)<>0 then Response.Write("checked")%>> 产品退货回收 <input name="Pop" style="border:0" type="checkbox" value="SK300000706" <%if InStr(1,Rs("SK_PopList"),"SK300000706",1)<>0 then Response.Write("checked")%>> 彻底删除退货 <input name="Pop" style="border:0" type="checkbox" value="SK300000707" <%if InStr(1,Rs("SK_PopList"),"SK300000707",1)<>0 then Response.Write("checked")%>> 恢复产品退货 <input name="Pop" style="border:0" type="checkbox" value="SK300000708" <%if InStr(1,Rs("SK_PopList"),"SK300000708",1)<>0 then Response.Write("checked")%>> 审核产品退货
</td></tr>

<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK300000800" <%if InStr(1,Rs("SK_PopList"),"SK300000800",1)<>0 then Response.Write("checked")%>> 产品销售退款 <input style="border:0" name="Pop" type="checkbox" value="SK300000801" <%if InStr(1,Rs("SK_PopList"),"SK300000801",1)<>0 then Response.Write("checked")%>> 新建产品退款 <input style="border:0" name="Pop" type="checkbox" value="SK300000802" <%if InStr(1,Rs("SK_PopList"),"SK300000802",1)<>0 then Response.Write("checked")%>> 修改产品退款 <input name="Pop" style="border:0" type="checkbox" value="SK300000803" <%if InStr(1,Rs("SK_PopList"),"SK300000803",1)<>0 then Response.Write("checked")%>> 删除产品退款 <input name="Pop" style="border:0" type="checkbox" value="SK300000804" <%if InStr(1,Rs("SK_PopList"),"SK300000804",1)<>0 then Response.Write("checked")%>> 导出产品退款 <input name="Pop" style="border:0" type="checkbox" value="SK300000805" <%if InStr(1,Rs("SK_PopList"),"SK300000805",1)<>0 then Response.Write("checked")%>> 产品退款回收 <input name="Pop" style="border:0" type="checkbox" value="SK300000806" <%if InStr(1,Rs("SK_PopList"),"SK300000806",1)<>0 then Response.Write("checked")%>> 彻底删除退款 <input name="Pop" style="border:0" type="checkbox" value="SK300000807" <%if InStr(1,Rs("SK_PopList"),"SK300000807",1)<>0 then Response.Write("checked")%>> 恢复产品退款 
</td></tr>

<%end if%>


<%if Getconfig("SK_Service")="0" then%>
<tr><td class="SK_TitleQX"><input style="border:0" name="Pop" type="checkbox" value="SK600000000" <%if InStr(1,Rs("SK_PopList"),"SK600000000",1)<>0 then Response.Write("checked")%>> 客服管理</td></tr>
<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK600000100" <%if InStr(1,Rs("SK_PopList"),"SK600000100",1)<>0 then Response.Write("checked")%>> 客户服务列表 <input style="border:0" name="Pop" type="checkbox" value="SK600000101" <%if InStr(1,Rs("SK_PopList"),"SK600000101",1)<>0 then Response.Write("checked")%>> 新建客户服务 <input style="border:0" name="Pop" type="checkbox" value="SK600000102" <%if InStr(1,Rs("SK_PopList"),"SK600000102",1)<>0 then Response.Write("checked")%>> 修改客户服务 <input name="Pop" style="border:0" type="checkbox" value="SK600000103" <%if InStr(1,Rs("SK_PopList"),"SK600000103",1)<>0 then Response.Write("checked")%>> 删除客户服务 <input name="Pop" style="border:0" type="checkbox" value="SK600000104" <%if InStr(1,Rs("SK_PopList"),"SK600000104",1)<>0 then Response.Write("checked")%>> 导出客户服务 <input name="Pop" style="border:0" type="checkbox" value="SK600000105" <%if InStr(1,Rs("SK_PopList"),"SK600000105",1)<>0 then Response.Write("checked")%>> 客户服务回收 <input name="Pop" style="border:0" type="checkbox" value="SK600000106" <%if InStr(1,Rs("SK_PopList"),"SK600000106",1)<>0 then Response.Write("checked")%>> 彻底删除客服 <input name="Pop" style="border:0" type="checkbox" value="SK600000107" <%if InStr(1,Rs("SK_PopList"),"SK600000107",1)<>0 then Response.Write("checked")%>> 恢复客户服务
</td></tr>
<%end if%>

<%if Getconfig("SK_Finance")="0" then%>
<tr>
  <td class="SK_TitleQX"><input style="border:0" name="Pop" type="checkbox" value="SK700000000" <%if InStr(1,Rs("SK_PopList"),"SK700000000",1)<>0 then Response.Write("checked")%>> 财务管理</td>
</tr>
<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK700000100" <%if InStr(1,Rs("SK_PopList"),"SK700000100",1)<>0 then Response.Write("checked")%>> 银行账户列表 <input style="border:0" name="Pop" type="checkbox" value="SK700000101" <%if InStr(1,Rs("SK_PopList"),"SK700000101",1)<>0 then Response.Write("checked")%>> 新建银行账户 <input style="border:0" name="Pop" type="checkbox" value="SK700000102" <%if InStr(1,Rs("SK_PopList"),"SK700000102",1)<>0 then Response.Write("checked")%>> 修改客户服务 <input name="Pop" style="border:0" type="checkbox" value="SK700000103" <%if InStr(1,Rs("SK_PopList"),"SK700000103",1)<>0 then Response.Write("checked")%>> 删除银行账户
</td></tr>
<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK700000200" <%if InStr(1,Rs("SK_PopList"),"SK700000200",1)<>0 then Response.Write("checked")%>> 账户收支列表 <input style="border:0" name="Pop" type="checkbox" value="SK700000201" <%if InStr(1,Rs("SK_PopList"),"SK700000201",1)<>0 then Response.Write("checked")%>> 新建账户收支 <input style="border:0" name="Pop" type="checkbox" value="SK700000202" <%if InStr(1,Rs("SK_PopList"),"SK700000202",1)<>0 then Response.Write("checked")%>> 修改账户收支 <input name="Pop" style="border:0" type="checkbox" value="SK700000203" <%if InStr(1,Rs("SK_PopList"),"SK700000203",1)<>0 then Response.Write("checked")%>> 删除账户收支 <input name="Pop" style="border:0" type="checkbox" value="SK700000204" <%if InStr(1,Rs("SK_PopList"),"SK700000204",1)<>0 then Response.Write("checked")%>> 导出账户收支 <input name="Pop" style="border:0" type="checkbox" value="SK700000205" <%if InStr(1,Rs("SK_PopList"),"SK700000205",1)<>0 then Response.Write("checked")%>> 账户收支回收 <input name="Pop" style="border:0" type="checkbox" value="SK700000206" <%if InStr(1,Rs("SK_PopList"),"SK700000206",1)<>0 then Response.Write("checked")%>> 彻底删除收支 <input name="Pop" style="border:0" type="checkbox" value="SK700000207" <%if InStr(1,Rs("SK_PopList"),"SK700000207",1)<>0 then Response.Write("checked")%>> 恢复账户收支 <input name="Pop" style="border:0" type="checkbox" value="SK700000208" <%if InStr(1,Rs("SK_PopList"),"SK700000208",1)<>0 then Response.Write("checked")%>> 确定收支信息
</td></tr>
<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK700000300" <%if InStr(1,Rs("SK_PopList"),"SK700000300",1)<>0 then Response.Write("checked")%>> 订单回款管理 <input style="border:0" name="Pop" type="checkbox" value="SK700000301" <%if InStr(1,Rs("SK_PopList"),"SK700000301",1)<>0 then Response.Write("checked")%>> 确定订单回款 <input style="border:0" name="Pop" type="checkbox" value="SK700000302" <%if InStr(1,Rs("SK_PopList"),"SK700000302",1)<>0 then Response.Write("checked")%>> 导出订单回款 <input style="border:0" name="Pop" type="checkbox" value="SK700000303" <%if InStr(1,Rs("SK_PopList"),"SK700000303",1)<>0 then Response.Write("checked")%>> 订单退款管理 <input style="border:0" name="Pop" type="checkbox" value="SK700000304" <%if InStr(1,Rs("SK_PopList"),"SK700000304",1)<>0 then Response.Write("checked")%>> 确定订单退款 <input style="border:0" name="Pop" type="checkbox" value="SK700000305" <%if InStr(1,Rs("SK_PopList"),"SK700000305",1)<>0 then Response.Write("checked")%>> 导出订单退款 
</td></tr>

<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK700000700" <%if InStr(1,Rs("SK_PopList"),"SK700000700",1)<>0 then Response.Write("checked")%>> 员工工资列表 <input style="border:0" name="Pop" type="checkbox" value="SK700000701" <%if InStr(1,Rs("SK_PopList"),"SK700000701",1)<>0 then Response.Write("checked")%>> 新建员工工资 <input style="border:0" name="Pop" type="checkbox" value="SK700000702" <%if InStr(1,Rs("SK_PopList"),"SK700000702",1)<>0 then Response.Write("checked")%>> 修改员工工资  <input style="border:0" name="Pop" type="checkbox" value="SK700000703" <%if InStr(1,Rs("SK_PopList"),"SK700000703",1)<>0 then Response.Write("checked")%>> 删除员工工资 <input style="border:0" name="Pop" type="checkbox" value="SK700000704" <%if InStr(1,Rs("SK_PopList"),"SK700000704",1)<>0 then Response.Write("checked")%>> 导出员工工资 <input style="border:0" name="Pop" type="checkbox" value="SK700000705" <%if InStr(1,Rs("SK_PopList"),"SK700000705",1)<>0 then Response.Write("checked")%>> 员工工资回收 <input style="border:0" name="Pop" type="checkbox" value="SK700000706" <%if InStr(1,Rs("SK_PopList"),"SK700000706",1)<>0 then Response.Write("checked")%>> 彻底删除工资 <input style="border:0" name="Pop" type="checkbox" value="SK700000707" <%if InStr(1,Rs("SK_PopList"),"SK700000707",1)<>0 then Response.Write("checked")%>> 恢复员工工资 <input style="border:0" name="Pop" type="checkbox" value="SK700000708" <%if InStr(1,Rs("SK_PopList"),"SK700000708",1)<>0 then Response.Write("checked")%>> 工资选项设置
</td></tr>
<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK700000800" <%if InStr(1,Rs("SK_PopList"),"SK700000800",1)<>0 then Response.Write("checked")%>> 员工报销列表 <input style="border:0" name="Pop" type="checkbox" value="SK700000801" <%if InStr(1,Rs("SK_PopList"),"SK700000801",1)<>0 then Response.Write("checked")%>> 确认员工报销 <input style="border:0" name="Pop" type="checkbox" value="SK700000802" <%if InStr(1,Rs("SK_PopList"),"SK700000802",1)<>0 then Response.Write("checked")%>> 导出员工报销</td>
</tr>
<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK700000900" <%if InStr(1,Rs("SK_PopList"),"SK700000900",1)<>0 then Response.Write("checked")%>> 员工借款列表 <input style="border:0" name="Pop" type="checkbox" value="SK700000901" <%if InStr(1,Rs("SK_PopList"),"SK700000901",1)<>0 then Response.Write("checked")%>> 确认员工借款 <input style="border:0" name="Pop" type="checkbox" value="SK700000902" <%if InStr(1,Rs("SK_PopList"),"SK700000902",1)<>0 then Response.Write("checked")%>> 导出员工借款</td>
</tr>

<%end if%>

<%if Getconfig("SK_Product")="0" then%>
<tr>
  <td class="SK_TitleQX"><input style="border:0" name="Pop" type="checkbox" value="SK800000000" <%if InStr(1,Rs("SK_PopList"),"SK800000000",1)<>0 then Response.Write("checked")%>> 产品管理</td>
</tr>
<tr><td class="SK_TextQx">
<input style="border:0" name="Pop" type="checkbox" value="SK800000100" <%if InStr(1,Rs("SK_PopList"),"SK800000100",1)<>0 then Response.Write("checked")%>> 产品信息列表 <input style="border:0" name="Pop" type="checkbox" value="SK800000101" <%if InStr(1,Rs("SK_PopList"),"SK800000101",1)<>0 then Response.Write("checked")%>> 新建产品信息 <input style="border:0" name="Pop" type="checkbox" value="SK800000102" <%if InStr(1,Rs("SK_PopList"),"SK800000102",1)<>0 then Response.Write("checked")%>> 修改产品信息 <input name="Pop" style="border:0" type="checkbox" value="SK800000103" <%if InStr(1,Rs("SK_PopList"),"SK800000103",1)<>0 then Response.Write("checked")%>> 删除产品信息 <input name="Pop" style="border:0" type="checkbox" value="SK800000104" <%if InStr(1,Rs("SK_PopList"),"SK800000104",1)<>0 then Response.Write("checked")%>> 导出产品信息  <input name="Pop" style="border:0" type="checkbox" value="SK800000105" <%if InStr(1,Rs("SK_PopList"),"SK800000105",1)<>0 then Response.Write("checked")%>> 查看产品成本
</td></tr>
<%end if%>

<tr>
  <td class="SK_TitleQX"><input style="border:0" name="Pop" type="checkbox" value="SK900000000" <%if InStr(1,Rs("SK_PopList"),"SK900000000",1)<>0 then Response.Write("checked")%>> 系统管理</td>
</tr>
<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK900000001" <%if InStr(1,Rs("SK_PopList"),"SK900000001",1)<>0 then Response.Write("checked")%>> 办公选项设置 <input style="border:0" name="Pop" type="checkbox" value="SK900000002" <%if InStr(1,Rs("SK_PopList"),"SK900000002",1)<>0 then Response.Write("checked")%>> 客户选项设置 <input style="border:0" name="Pop" type="checkbox" value="SK900000003" <%if InStr(1,Rs("SK_PopList"),"SK900000003",1)<>0 then Response.Write("checked")%>> 销售选项设置 <input style="border:0" name="Pop" type="checkbox" value="SK900000006" <%if InStr(1,Rs("SK_PopList"),"SK900000006",1)<>0 then Response.Write("checked")%>> 客服选项设置 <input style="border:0" name="Pop" type="checkbox" value="SK900000007" <%if InStr(1,Rs("SK_PopList"),"SK900000007",1)<>0 then Response.Write("checked")%>> 财务选项设置 <input style="border:0" name="Pop" type="checkbox" value="SK900000008" <%if InStr(1,Rs("SK_PopList"),"SK900000008",1)<>0 then Response.Write("checked")%>> 产品选项设置 </td>
</tr>
<tr>
  <td class="SK_TextQx"><input style="border:0" name="Pop" type="checkbox" value="SK910000000" <%if InStr(1,Rs("SK_PopList"),"SK910000000",1)<>0 then Response.Write("checked")%>> 系统基本设置 <input style="border:0" name="Pop" type="checkbox" value="SK910000001" <%if InStr(1,Rs("SK_PopList"),"SK910000001",1)<>0 then Response.Write("checked")%>> 城市区域管理 <input style="border:0" name="Pop" type="checkbox" value="SK910000002" <%if InStr(1,Rs("SK_PopList"),"SK910000002",1)<>0 then Response.Write("checked")%>> 用户登录日志 <input style="border:0" name="Pop" type="checkbox" value="SK910000003" <%if InStr(1,Rs("SK_PopList"),"SK910000003",1)<>0 then Response.Write("checked")%>> 系统安全日志 <input style="border:0" name="Pop" type="checkbox" value="SK910000004" <%if InStr(1,Rs("SK_PopList"),"SK910000004",1)<>0 then Response.Write("checked")%>> 用户操作日志 <input style="border:0" name="Pop" type="checkbox" value="SK910000005" <%if InStr(1,Rs("SK_PopList"),"SK910000005",1)<>0 then Response.Write("checked")%>> 用户角色管理 <input style="border:0" name="Pop" type="checkbox" value="SK910000006" <%if InStr(1,Rs("SK_PopList"),"SK910000006",1)<>0 then Response.Write("checked")%>> 部门信息管理 <input style="border:0" name="Pop" type="checkbox" value="SK910000007" <%if InStr(1,Rs("SK_PopList"),"SK910000007",1)<>0 then Response.Write("checked")%>> 用户信息管理 <input style="border:0" name="Pop" type="checkbox" value="SK910000008" <%if InStr(1,Rs("SK_PopList"),"SK910000008",1)<>0 then Response.Write("checked")%>> 帮助文档管理</td>
</tr>

<tr>
<td class="SK_Text">
<input type="hidden" name="ID" value="<%=Rs("LID")%>">
<INPUT class="button1" type="submit" value=" 保存 "> 
<input type="button" value=" 关闭 " onClick="window.close();" class="button1" /></td>
</tr>
</table>
</form>

</td>
<td width="8" background="../images/tab_15.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td class="SK_Td_Foot">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" height="20"><img src="../images/tab_18.gif" width="12" height="20" /></td>
<td width="98%" class="SK_Td_Page"></td>
<td width="1%"><img src="../images/tab_20.gif" width="16" height="20" /></td>
</tr>
</table>

</td>
</tr>
</TBODY>
</table>
</body>
<%
Call CloseDB()
%>
</html>