开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
SysAdmin_SetPop.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：95k
源码类别：

数据库编程

开发平台：

ASP/ASPX

SysAdmin_SetPop.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp" -->
  3. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../FS_Inc/Function.asp" -->
  5. <!--#include file="../FS_Inc/Cls_Cache.asp" -->
  6. <!--#include file="../FS_Inc/Func_page.asp" -->
  7. <%
  8. Dim Conn,strShowErr,rs,ar_admin,str_PopList
  9. MF_Default_Conn
  10. MF_Session_TF
  11. if not MF_Check_Pop_TF("MF_Pop") then Err_Show
  12. set rs= Server.CreateObject(G_FS_RS)
  13. rs.open "select Admin_Add_Admin,Admin_Is_Super,Admin_Name,Admin_Pop_List From FS_MF_Admin where Id="&NoSqlHack(Request.QueryString("AdminId")),Conn,1,3
  14. ar_admin = rs(2)
  15. str_PopList=rs(3)
  16. if session("Admin_Is_Super")<>1 then
  17. if rs("Admin_Name")<>session("Admin_Name") then
  18. if rs("Admin_Is_Super")=1 then
  19. strShowErr = "<li>您不能操作系统管理员</li>"
  20. Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
  21. Response.end
  22. end if
  23. if rs("Admin_Add_Admin")<>session("Admin_Name") then
  24. strShowErr = "<li>您不能操作别人的子管理员。</li>"
  25. Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
  26. Response.end
  27. end if
  28. end if
  29. end if
  30. rs.close:set rs=nothing
  31. if Request.Form("Action")="Save" then
  32. if trim(Request.Form("AdminId"))="" then
  33. strShowErr = "<li>错误的参数。</li>"
  34. Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  35. Response.end
  36. else
  37. dim pop_rs
  38. set rs= Server.CreateObject(G_FS_RS)
  39. rs.open "select Admin_Pop_List,Admin_PopGroup From FS_MF_Admin where id="&Request.Form("AdminId"),conn,1,3
  40. select case int(Request.Form("Group_n"))
  41. case 0
  42. set pop_rs = Conn.execute("select PopList From FS_MF_AdminGroup where Levels=0")
  43. if not pop_rs.eof then
  44. rs("Admin_Pop_List")=pop_rs("PopList")
  45. end if
  46. pop_rs.close:set pop_rs = nothing
  47. case 1
  48. set pop_rs = Conn.execute("select PopList From FS_MF_AdminGroup where Levels=1")
  49. if not pop_rs.eof then
  50. rs("Admin_Pop_List")=pop_rs("PopList")
  51. end if
  52. pop_rs.close:set pop_rs = nothing
  53. case 2
  54. set pop_rs = Conn.execute("select PopList From FS_MF_AdminGroup where Levels=2")
  55. if not pop_rs.eof then
  56. rs("Admin_Pop_List")=pop_rs("PopList")
  57. end if
  58. pop_rs.close:set pop_rs = nothing
  59. case 3
  60. set pop_rs = Conn.execute("select PopList From FS_MF_AdminGroup where Levels=3")
  61. if not pop_rs.eof then
  62. rs("Admin_Pop_List")=pop_rs("PopList")
  63. end if
  64. pop_rs.close:set pop_rs = nothing
  65. case 4
  66. set pop_rs = Conn.execute("select PopList From FS_MF_AdminGroup where Levels=4")
  67. if not pop_rs.eof then
  68. rs("Admin_Pop_List")=pop_rs("PopList")
  69. end if
  70. pop_rs.close:set pop_rs = nothing
  71. case 5
  72. rs("Admin_Pop_List")= Replace(Request.Form("PopList_MF")&","&Request.Form("PopList_NS")&","&Request.Form("PopList_MS")&","&Request.Form("PopList_DS")&","&Request.Form("PopList_ME")&","&Request.Form("PopList_AP")&","&Request.Form("PopList_SD")&","&Request.Form("PopList_CS")&","&Request.Form("PopList_SS")&","&Request.Form("PopList_HS")&","&Request.Form("PopList_VS")&","&Request.Form("PopList_AS")&","&Request.Form("PopList_WS")&","&Request.Form("PopList_FL")&","&Request.Form("PopList")," ","")
  73. end select
  74. rs("Admin_PopGroup")=int(Request.Form("Group_n"))
  75. rs.update
  76. rs.close:set rs=nothing
  77. strShowErr = "<li>设置权限成功</li>"
  78. Response.Redirect("Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  79. Response.end
  80. end if
  81. end if
  82. %>
  83. <html xmlns="http://www.w3.org/1999/xhtml">
  84. <HEAD>
  85. <TITLE>FoosunCMS</TITLE>
  86. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  87. </HEAD>
  88. <script language="JavaScript" src="../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  89. <script language="JavaScript" src="../FS_Inc/Prototype.js" type="text/JavaScript"></script>
  90. <script language="JavaScript" src="../FS_Inc/CheckJs.js" type="text/JavaScript"></script>
  91. <link href="images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  92. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes>
  94.   
  95. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  96.     <tr class="xingmu"> 
  97.       <td colspan="2" class="xingmu"><a href="#" onmouseover="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align='center'>FoosunCMS4.0<br> Code by 谢赖堂 <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong>设置管理员</strong></a><span class="tx"><b><%=ar_admin%></b></span>的权限</td>
  98.     </tr>
  99.     <tr class="hback"> 
  100.       <td colspan="2"><a href="SysAdmin_List.asp">返回管理员列表</a><a href="SysAdmin_List.asp?my=1"></a> 
  101.       </td>
  102.     </tr>
  103. </table>
  104. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  105.   <form name="PopForm" method="post" action="">
  106.     <tr> 
  107.       <td width="13%" class="hback"><div align="right"> 
  108.           <input name="AdminId" type="hidden" id="AdminId3" value="<%=Request.QueryString("AdminId")%>">
  109.           <input name="Action" type="hidden" id="Action3" value="Save">
  110.           管理员类型</div></td>
  111.       <td width="32%" class="hback">
  112.      <select name="Group_n" onChange="ChooseadminType(this.options[this.selectedIndex].value);">
  113.           <option value="0">超级管理员</option>
  114.           <option value="1">普通管理员</option>
  115.           <option value="2">总编辑</option>
  116.           <option value="3">责任编辑</option>
  117.           <option value="4">记者</option>
  118.           <option value="5" selected>自定义管理员</option>
  119.         </select> <input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(this.form);">
  120.         选中/取消所有　　　　</td>
  121.       <td width="55%" class="hback"> 
  122.         <table width="100%" border="0" cellspacing="0" cellpadding="0">
  123.           <tr>
  124.             <td width="4%"><img src="../sys_images/icon.gif" width="18" height="16"></td>
  125.             <td width="96%"><a href="SysAdmin_SetPop_Group.asp">定义固定管理员权限</a> 
  126.             </td>
  127.           </tr>
  128.         </table></td>
  129.     </tr>
  130.     <tr> 
  131.       <td colspan="3" class="hback"> <table width="100%" border="0" cellspacing="1" cellpadding="5" style="display:;" id="all_id">
  132.          <%if Request.Cookies("FoosunSUBCookie")("FoosunSUBMF")=1 then%>
  133.   <tr> 
  134.             <td colspan="2" class="hback_1"> <div align="left">
  135.                 <input name="PopList_MF" type="checkbox" id="PopList" onClick="SwitchPopType('MF_Pop');"   value="MF_Pop" <%if InStr(1,str_PopList,"MF_Pop",1)<>0 then response.Write("checked")%>>
  136.                 MF主系统 </div></td>
  137.           </tr>
  138.           <tr> 
  139.             <td colspan="2" class="hback">
  140.  <table width="100%" border="0" cellpadding="4" cellspacing="0" style="display: <%if InStr(1,str_PopList,"MF_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>"  id="MF_ID">
  141.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  142.                   <td width="14%" class="hback"> <div align="left"> 
  143.                       <input name="PopList" type="checkbox"  value="MF_Templet" <%if InStr(1,str_PopList,"MF_Templet",1)<>0 then:response.Write("checked")%>>
  144.                       模板管理 </div></td>
  145.                   <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  146.                       <tr> 
  147.                         <td><input name="PopList" type="checkbox" value="MF001" <%if InStr(1,str_PopList,"MF001",1)>0 then response.Write "checked"%>>
  148.                           修改文件 
  149.                           <input name="PopList" type="checkbox" id="PopList" value="MF002"  <%if InStr(1,str_PopList,"MF002",1)>0 then response.Write "checked"%>>
  150.                           改名文件 
  151.                           <input name="PopList" type="checkbox" id="PopList" value="MF003" <%if InStr(1,str_PopList,"MF003",1)>0 then response.Write "checked"%>>
  152.                           删除文件 
  153.                           <input name="PopList" type="checkbox" id="PopList" value="MF004" <%if InStr(1,str_PopList,"MF004",1)>0 then response.Write "checked"%>>
  154.                           创建目录 
  155.                           <input name="PopList" type="checkbox" id="PopList" value="MF005" <%if InStr(1,str_PopList,"MF005",1)>0 then response.Write "checked"%>>
  156.                           导入文件 
  157.                           <input name="PopList" type="checkbox" id="PopList" value="MF006" <%if InStr(1,str_PopList,"MF006",1)>0 then response.Write "checked"%>>
  158.                           在线编辑(修改模板) </td>
  159.                       </tr>
  160.                     </table></td>
  161.                 </tr>
  162.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  163.                   <td class="hback"> <div align="left"> 
  164.                       <input name="PopList" type="checkbox" id="PopList" value="MF_Style"  <%if InStr(1,str_PopList,"MF_Style",1)>0 then response.Write "checked"%>>
  165.                       标签样式</div></td>
  166.                   <td class="hback"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
  167.                       <tr> 
  168.                         <td><input name="PopList" type="checkbox" id="PopList" value="MF007" <%if InStr(1,str_PopList,"MF007",1)>0 then response.Write "checked"%>>
  169.                           增加样式 
  170.                           <input name="PopList" type="checkbox" id="PopList" value="MF008" <%if InStr(1,str_PopList,"MF008",1)>0 then response.Write "checked"%>>
  171.                           修改样式 </td>
  172.                       </tr>
  173.                     </table></td>
  174.                 </tr>
  175.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  176.                   <td class="hback"> <div align="left"> 
  177.                       <input name="PopList" type="checkbox" id="PopList" value="MF_Public" <%if InStr(1,str_PopList,"MF_Public",1)>0 then response.Write "checked"%>>
  178.                       发布管理</div></td>
  179.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  180.                       <tr> 
  181.                         <td><input name="PopList" type="checkbox" id="PopList" value="MF009" <%if InStr(1,str_PopList,"MF009",1)>0 then response.Write "checked"%>>
  182.                           开启 </td>
  183.                       </tr>
  184.                     </table></td>
  185.                 </tr>
  186.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  187.                   <td class="hback"> <div align="left"> 
  188.                       <input name="PopList" type="checkbox" id="PopList" value="MF_sPublic" <%if InStr(1,str_PopList,"MF_Public",1)>0 then response.Write "checked"%>>
  189.                       标签管理</div></td>
  190.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  191.                       <tr> 
  192.                         <td><input name="PopList" type="checkbox" id="PopList" value="MF025" <%if InStr(1,str_PopList,"MF025",1)>0 then response.Write "checked"%>>
  193.                           创建标签 </td>
  194.                       </tr>
  195.                     </table></td>
  196.                 </tr>
  197.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  198.                   <td class="hback"> <div align="left"> 
  199.                       <input name="PopList" type="checkbox" id="PopList" value="MF_SysSet" <%if InStr(1,str_PopList,"MF_SysSet",1)>0 then response.Write "checked"%>>
  200.                       参数设置</div></td>
  201.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  202.                       <tr> 
  203.                         <td><input name="PopList" type="checkbox" id="PopList" value="MF010" <%if InStr(1,str_PopList,"MF010",1)>0 then response.Write "checked"%>>
  204.                           开启 </td>
  205.                       </tr>
  206.                     </table></td>
  207.                 </tr>
  208.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  209.                   <td class="hback"> <div align="left"> 
  210.                       <input name="PopList" type="checkbox" id="PopList" value="MF_Const" <%if InStr(1,str_PopList,"MF_Const",1)>0 then response.Write "checked"%>>
  211.                       配置文件</div></td>
  212.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  213.                       <tr> 
  214.                         <td><input name="PopList" type="checkbox" id="PopList" value="MF011" <%if InStr(1,str_PopList,"MF011",1)>0 then response.Write "checked"%>>
  215.                           全局变量设置 
  216.                           <input name="PopList" type="checkbox" id="PopList" value="MF012" <%if InStr(1,str_PopList,"MF012",1)>0 then response.Write "checked"%>>
  217.                           自动刷新配置文件</td>
  218.                       </tr>
  219.                     </table></td>
  220.                 </tr>
  221.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  222.                   <td class="hback"> <div align="left"> 
  223.                       <input name="PopList" type="checkbox" id="PopList" value="MF_SubSite" <%if InStr(1,str_PopList,"MF_SubSite",1)>0 then response.Write "checked"%>>
  224.                       子系统维护</div></td>
  225.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  226.                       <tr> 
  227.                         <td><input name="PopList" type="checkbox" id="PopList" value="MF013" <%if InStr(1,str_PopList,"MF013",1)>0 then response.Write "checked"%>>
  228.                           开启 </td>
  229.                       </tr>
  230.                     </table></td>
  231.                 </tr>
  232.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  233.                   <td class="hback"> <input name="PopList" type="checkbox" id="PopList" value="MF_DataFix" <%if InStr(1,str_PopList,"MF_DataFix",1)>0 then response.Write "checked"%>>
  234.                     数据库维护</td>
  235.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  236.                       <tr> 
  237.                         <td><input name="PopList" type="checkbox" id="PopList" value="MF015" <%if InStr(1,str_PopList,"MF015",1)>0 then response.Write "checked"%>>
  238.                           数据库压缩 
  239.                           <input name="PopList" type="checkbox" id="PopList" value="MF016" <%if InStr(1,str_PopList,"MF016",1)>0 then response.Write "checked"%>>
  240.                           数据库备份 
  241.                           <input name="PopList" type="checkbox" id="PopList" value="MF017" <%if InStr(1,str_PopList,"MF017",1)>0 then response.Write "checked"%>>
  242.                           SQL语句查询操作</td>
  243.                       </tr>
  244.                     </table></td>
  245.                 </tr>
  246.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  247.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="MF_Log" <%if InStr(1,str_PopList,"MF_Log",1)>0 then response.Write "checked"%>>
  248.                     日志管理</td>
  249.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  250.                       <tr> 
  251.                         <td><input name="PopList" type="checkbox" id="PopList" value="MF018" <%if InStr(1,str_PopList,"MF018",1)>0 then response.Write "checked"%>>
  252.                           操作日志 
  253.                           <input name="PopList" type="checkbox" id="PopList" value="MF019" <%if InStr(1,str_PopList,"MF019",1)>0 then response.Write "checked"%>>
  254.                           安全日志 
  255.                           <input name="PopList" type="checkbox" id="PopList" value="MF020" <%if InStr(1,str_PopList,"MF020",1)>0 then response.Write "checked"%>>
  256.                           删除日志</td>
  257.                       </tr>
  258.                     </table></td>
  259.                 </tr>
  260.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  261.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="MF_Define" <%if InStr(1,str_PopList,"MF_Define",1)>0 then response.Write "checked"%>>
  262.                     自定义字段</td>
  263.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  264.                       <tr> 
  265.                         <td> <input name="PopList" type="checkbox" id="PopList" value="MF021" <%if InStr(1,str_PopList,"MF021",1)>0 then response.Write "checked"%>>
  266.                           增加 
  267.                           <input name="PopList" type="checkbox" id="PopList" value="MF022" <%if InStr(1,str_PopList,"MF022",1)>0 then response.Write "checked"%>>
  268.                           删除</td>
  269.                       </tr>
  270.                     </table></td>
  271.                 </tr>
  272.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  273.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="MF_other" <%if InStr(1,str_PopList,"MF_other",1)>0 then response.Write "checked"%>>
  274.                     其他</td>
  275.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  276.                       <tr> 
  277.                         <td> <input name="PopList" type="checkbox" id="PopList" value="MF024" <%if InStr(1,str_PopList,"MF024",1)>0 then response.Write "checked"%>>
  278.                           修改密码<input name="PopList" type="checkbox" id="PopList" value="MF025" <%if InStr(1,str_PopList,"MF025",1)>0 then response.Write "checked"%>>
  279.                           上传文件<input name="PopList" type="checkbox" id="PopList" value="MF026" <%if InStr(1,str_PopList,"MF026",1)>0 then response.Write "checked"%>>
  280.                           重命名文件/文件夹<input name="PopList" type="checkbox" id="PopList" value="MF027" <%if InStr(1,str_PopList,"MF027",1)>0 then response.Write "checked"%>>
  281.                           删除文件/目录<input name="PopList" type="checkbox" id="PopList" value="MF028" <%if InStr(1,str_PopList,"MF028",1)>0 then response.Write "checked"%>>
  282.                           新建目录</td>
  283.                       </tr>
  284.                     </table></td>
  285.                 </tr>
  286.               </table></td>
  287.           </tr>
  288.   <%
  289. end if
  290. if Request.Cookies("FoosunSUBCookie")("FoosunSUBNS")=1 then
  291.   %>
  292.           <tr  class="hback_1"> 
  293.             <td colspan="2" class="hback_1"> <div align="left"> <strong> 
  294.                 <input name="PopList_NS" type="checkbox" id="PopList" value="NS_Pop"  onClick="SwitchPopType('NS_Pop');" <%if InStr(1,str_PopList,"NS_Pop",1)>0 then response.Write "checked"%>>
  295.                 </strong>NS新闻系统</div></td>
  296.           </tr>
  297.           <tr  class="hback"> 
  298.             <td colspan="2" class="hback">
  299. <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"NS_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="NS_ID">
  300.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  301.                   <td width="14%" class="hback"><div align="left"> 
  302.                       <input name="PopList" type="checkbox" id="PopList" value="NS_News" <%if InStr(1,str_PopList,"NS_News",1)>0 then response.Write "checked"%>>
  303.                       新闻管理</div></td>
  304.                   <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2" <%if InStr(1,str_PopList,"MF010",1)>0 then response.Write "checked"%>>
  305.                       <tr> 
  306.                         <td><input name="PopList" type="checkbox" id="PopList" value="NS001" <%if InStr(1,str_PopList,"NS001",1)>0 then response.Write "checked"%>>
  307.                           添加 
  308.                           <input name="PopList" type="checkbox" id="PopList" value="NS002" <%if InStr(1,str_PopList,"NS002",1)>0 then response.Write "checked"%>>
  309.                           修改 
  310.                           <input name="PopList" type="checkbox" id="PopList" value="NS003" <%if InStr(1,str_PopList,"NS003",1)>0 then response.Write "checked"%>>
  311.                           删除 
  312.                           <input name="PopList" type="checkbox" id="PopList" value="NS004" <%if InStr(1,str_PopList,"NS004",1)>0 then response.Write "checked"%>>
  313.                           审核 
  314.                           <input name="PopList" type="checkbox" id="PopList" value="NS005" <%if InStr(1,str_PopList,"NS005",1)>0 then response.Write "checked"%>>
  315.                           锁定 
  316.                           <input name="PopList" type="checkbox" id="PopList" value="NS006" <%if InStr(1,str_PopList,"NS006",1)>0 then response.Write "checked"%>>
  317.                           设置权重 
  318.                           <input name="PopList" type="checkbox" id="PopList" value="NS007" <%if InStr(1,str_PopList,"NS007",1)>0 then response.Write "checked"%>>
  319. 复制
  320. <input name="PopList" type="checkbox" id="PopList" value="NS008" <%if InStr(1,str_PopList,"NS008",1)>0 then response.Write "checked"%>>
  321.                            解锁
  322.                           <input name="PopList" type="checkbox" id="PopList" value="NS009" <%if InStr(1,str_PopList,"NS009",1)>0 then response.Write "checked"%>>
  323.                           移动 
  324.                           <input name="PopList" type="checkbox" id="PopList" value="NS010" <%if InStr(1,str_PopList,"NS010",1)>0 then response.Write "checked"%>>
  325.                           替换 
  326.                           <input name="PopList" type="checkbox" id="PopList" value="NS011" <%if InStr(1,str_PopList,"NS011",1)>0 then response.Write "checked"%>>
  327.                           生成 
  328.                           <input name="PopList" type="checkbox" id="PopList" value="NS012" <%if InStr(1,str_PopList,"NS012",1)>0 then response.Write "checked"%>>
  329.                           加入JS
  330.                           <input name="PopList" type="checkbox" id="PopList" value="NS013" <%if InStr(1,str_PopList,"NS013",1)>0 then response.Write "checked"%>>
  331.                           <strong>管理所有栏目</strong></td>
  332.                       </tr>
  333.                     </table></td>
  334.                 </tr>
  335.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  336.                   <td class="hback"><div align="left"> 
  337.                       <input name="PopList" type="checkbox" id="PopList" value="NS_Class" <%if InStr(1,str_PopList,"NS_Class",1)>0 then response.Write "checked"%>>
  338.                       栏目管理</div></td>
  339.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  340.                       <tr> 
  341.                         <td><input name="PopList" type="checkbox" id="PopList" value="NS016" <%if InStr(1,str_PopList,"NS016",1)>0 then response.Write "checked"%>>
  342.                           添加 
  343.                           <input name="PopList" type="checkbox" id="PopList" value="NS017" <%if InStr(1,str_PopList,"NS017",1)>0 then response.Write "checked"%>>
  344.                           修改 
  345.                           <input name="PopList" type="checkbox" id="PopList" value="NS018" <%if InStr(1,str_PopList,"NS018",1)>0 then response.Write "checked"%>>
  346.                           复位 
  347.                           <input name="PopList" type="checkbox" id="PopList" value="NS019" <%if InStr(1,str_PopList,"NS019",1)>0 then response.Write "checked"%>>
  348.                           合并 
  349.                           <input name="PopList" type="checkbox" id="PopList" value="NS020" <%if InStr(1,str_PopList,"NS020",1)>0 then response.Write "checked"%>>
  350.                           转移 
  351.                           <input name="PopList" type="checkbox" id="PopList" value="NS021" <%if InStr(1,str_PopList,"NS021",1)>0 then response.Write "checked"%>>
  352.                           删除 
  353.                           <input name="PopList" type="checkbox" id="PopList" value="NS022" <%if InStr(1,str_PopList,"NS022",1)>0 then response.Write "checked"%>>
  354.                           xml(RSS) 
  355.                           
  356.                           <input name="PopList" type="checkbox" id="PopList" value="NS023" <%if InStr(1,str_PopList,"NS023",1)>0 then response.Write "checked"%>> 
  357.                           清空
  358.                           <input name="PopList" type="checkbox" id="PopList" value="NS024" <%if InStr(1,str_PopList,"NS024",1)>0 then response.Write "checked"%>>
  359.                           排序</td>
  360.                       </tr>
  361.                     </table></td>
  362.                 </tr>
  363.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  364.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="NS_Special" <%if InStr(1,str_PopList,"NS_Special",1)>0 then response.Write "checked"%>>
  365.                     专题管理</td>
  366.                   <td class="hback"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
  367.                       <tr> 
  368.                         <td><input name="PopList" type="checkbox" id="PopList" value="NS026" <%if InStr(1,str_PopList,"NS026",1)>0 then response.Write "checked"%>>
  369.                           添加 
  370.                             <input name="PopList" type="checkbox" id="PopList" value="NS027" <%if InStr(1,str_PopList,"NS027",1)>0 then response.Write "checked"%>>
  371.                           修改 
  372.                           <input name="PopList" type="checkbox" id="PopList" value="NS028" <%if InStr(1,str_PopList,"NS028",1)>0 then response.Write "checked"%>>
  373.                           锁定 </td>
  374.                       </tr>
  375.                     </table></td>
  376.                 </tr>
  377.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  378.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="NS_Constr" <%if InStr(1,str_PopList,"NS_Constr",1)>0 then response.Write "checked"%>>
  379.                     投稿管理</td>
  380.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  381.                       <tr> 
  382.                         <td><input name="PopList" type="checkbox" id="PopList" value="NS030" <%if InStr(1,str_PopList,"NS030",1)>0 then response.Write "checked"%>>
  383.                           审核 
  384.                           <input name="PopList" type="checkbox" id="PopList" value="NS031" <%if InStr(1,str_PopList,"NS031",1)>0 then response.Write "checked"%>>
  385.                           锁定 
  386.                           <input name="PopList" type="checkbox" id="PopList" value="NS032" <%if InStr(1,str_PopList,"NS032",1)>0 then response.Write "checked"%>>
  387.                           删除 
  388.                           <input name="PopList" type="checkbox" id="PopList" value="NS033" <%if InStr(1,str_PopList,"NS033",1)>0 then response.Write "checked"%>>
  389.                           退稿
  390.                           <input name="PopList" type="checkbox" id="PopList" value="NS034" <%if InStr(1,str_PopList,"NS034",1)>0 then response.Write "checked"%>>
  391. 统计</td>
  392.                       </tr>
  393.                     </table></td>
  394.                 </tr>
  395.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  396.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="NS_Templet" <%if InStr(1,str_PopList,"NS_Templet",1)>0 then response.Write "checked"%>>
  397.                     捆绑模板</td>
  398.                   <td class="hback"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
  399.                       <tr> 
  400.                         <td><input name="PopList" type="checkbox" id="PopList" value="NS036" <%if InStr(1,str_PopList,"NS036",1)>0 then response.Write "checked"%>>
  401.                           开启</td>
  402.                       </tr>
  403.                     </table></td>
  404.                 </tr>
  405.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  406.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="NS_Freejs" <%if InStr(1,str_PopList,"NS_Freejs",1)>0 then response.Write "checked"%>>
  407.                     自由JS管理</td>
  408.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  409.                       <tr> 
  410.                         <td><input name="PopList" type="checkbox" id="PopList" value="NS037" <%if InStr(1,str_PopList,"NS037",1)>0 then response.Write "checked"%>>
  411.                           增加 
  412.                           <input name="PopList" type="checkbox" id="PopList" value="NS038" <%if InStr(1,str_PopList,"NS038",1)>0 then response.Write "checked"%>>
  413.                           修改 
  414.                           <input name="PopList" type="checkbox" id="PopList" value="NS039" <%if InStr(1,str_PopList,"NS039",1)>0 then response.Write "checked"%>>
  415.                           删除                          </td>
  416.                       </tr>
  417.                     </table></td>
  418.                 </tr>
  419.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  420.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="NS_Sysjs" <%if InStr(1,str_PopList,"NS_Sysjs",1)>0 then response.Write "checked"%>>
  421.                     系统JS管理</td>
  422.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  423.                       <tr> 
  424.                         <td><input name="PopList" type="checkbox" id="PopList" value="NS040" <%if InStr(1,str_PopList,"NS040",1)>0 then response.Write "checked"%>>
  425.                           增加 
  426.                           <input name="PopList" type="checkbox" id="PopList" value="NS041" <%if InStr(1,str_PopList,"NS041",1)>0 then response.Write "checked"%>>
  427.                           修改 
  428.                           <input name="PopList" type="checkbox" id="PopList" value="NS042" <%if InStr(1,str_PopList,"NS042",1)>0 then response.Write "checked"%>>
  429.                           删除                          </td>
  430.                       </tr>
  431.                     </table></td>
  432.                 </tr>
  433.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  434.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="NS_Recyle" <%if InStr(1,str_PopList,"NS_Recyle",1)>0 then response.Write "checked"%>>
  435.                     回收站管理</td>
  436.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  437.                       <tr> 
  438.                         <td><input name="PopList" type="checkbox" id="PopList" value="NS043" <%if InStr(1,str_PopList,"NS043",1)>0 then response.Write "checked"%>>
  439.                           恢复 
  440.                           <input name="PopList" type="checkbox" id="PopList" value="NS044" <%if InStr(1,str_PopList,"NS044",1)>0 then response.Write "checked"%>>
  441.                           删除 </td>
  442.                       </tr>
  443.                     </table></td>
  444.                 </tr>
  445.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  446.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="NS_UnRl" <%if InStr(1,str_PopList,"NS_UnRl",1)>0 then response.Write "checked"%>>
  447.                     不规则新闻</td>
  448.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  449.                       <tr> 
  450.                         <td><input name="PopList" type="checkbox" id="PopList" value="NS045" <%if InStr(1,str_PopList,"NS045",1)>0 then response.Write "checked"%>>
  451.                           增加 
  452.                           <input name="PopList" type="checkbox" id="PopList" value="NS046" <%if InStr(1,str_PopList,"NS046",1)>0 then response.Write "checked"%>>
  453.                           修改 
  454.                           <input name="PopList" type="checkbox" id="PopList" value="NS047" <%if InStr(1,str_PopList,"NS047",1)>0 then response.Write "checked"%>>
  455.                           删除</td>
  456.                       </tr>
  457.                     </table></td>
  458.                 </tr>
  459.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  460.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="NS_Genal" <%if InStr(1,str_PopList,"NS_Genal",1)>0 then response.Write "checked"%>>
  461.                     常规管理</td>
  462.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  463.                       <tr> 
  464.                         <td><input name="PopList" type="checkbox" id="PopList" value="NS048" <%if InStr(1,str_PopList,"NS048",1)>0 then response.Write "checked"%>>
  465.                           开启</td>
  466.                       </tr>
  467.                     </table></td>
  468.                 </tr>
  469.                 <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  470.                   <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="NS_Param" <%if InStr(1,str_PopList,"NS_Param",1)>0 then response.Write "checked"%>>
  471.                     系统参数设置</td>
  472.                   <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  473.                       <tr> 
  474.                         <td><input name="PopList" type="checkbox" id="PopList" value="NS049" <%if InStr(1,str_PopList,"NS049",1)>0 then response.Write "checked"%>>
  475.                           开启</td>
  476.                       </tr>
  477.                     </table></td>
  478.                 </tr>
  479.               </table></td>
  480.           </tr>
  481.   <%
  482. end if
  483. if Request.Cookies("FoosunSUBCookie")("FoosunSUBMS")=1 then
  484.   %>
  485.           <tr  class="hback_1"> 
  486.             <td colspan="2" class="hback_1"> <div align="left"> <strong> 
  487.                 <input name="PopList_MS" type="checkbox" id="PopList" value="MS_Pop"  onClick="SwitchPopType('MS_Pop');"  <%if InStr(1,str_PopList,"MS_Pop",1)>0 then response.Write "checked"%>>
  488.                 </strong>MS商城系统</div></td>
  489.           </tr>
  490.           <tr class="hback"> 
  491.             <td colspan="2" class="hback"><div align="left"> 
  492.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"MS_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="MS_ID">
  493.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  494.                     <td width="14%" class="hback"><div align="left"> 
  495.                         <input name="PopList" type="checkbox" id="PopList" value="MS_Products" <%if InStr(1,str_PopList,"MS_Products",1)>0 then response.Write "checked"%>>
  496.                         商品管理</div></td>
  497.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  498.                         <tr> 
  499.                           <td><input name="PopList" type="checkbox" id="PopList" value="MS001" <%if InStr(1,str_PopList,"MS001",1)>0 then response.Write "checked"%>>
  500.                             添加 
  501.                             <input name="PopList" type="checkbox" id="PopList" value="MS002" <%if InStr(1,str_PopList,"MS002",1)>0 then response.Write "checked"%>>
  502.                             修改 
  503.                             <input name="PopList" type="checkbox" id="PopList" value="MS003" <%if InStr(1,str_PopList,"MS003",1)>0 then response.Write "checked"%>>
  504.                             删除 
  505.                             <input name="PopList" type="checkbox" id="PopList" value="MS004" <%if InStr(1,str_PopList,"MS004",1)>0 then response.Write "checked"%>>
  506.                             审核 
  507.                             <input name="PopList" type="checkbox" id="PopList" value="MS005" <%if InStr(1,str_PopList,"MS005",1)>0 then response.Write "checked"%>>
  508.                             锁定 
  509.                             <input name="PopList" type="checkbox" id="PopList" value="MS006" <%if InStr(1,str_PopList,"MS006",1)>0 then response.Write "checked"%>> 
  510.                             置顶
  511.                             <input name="PopList" type="checkbox" id="PopList" value="MS007" <%if InStr(1,str_PopList,"MS007",1)>0 then response.Write "checked"%>>
  512. 热点推荐</td>
  513.                         </tr>
  514.                       </table></td>
  515.                   </tr>
  516.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  517.                     <td class="hback"><div align="left"> 
  518.                         <input name="PopList" type="checkbox" id="PopList" value="MS_Class" <%if InStr(1,str_PopList,"MS_Class",1)>0 then response.Write "checked"%>>
  519.                         类别栏目</div></td>
  520.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  521.                         <tr> 
  522.                           <td><input name="PopList" type="checkbox" id="PopList" value="MS010" <%if InStr(1,str_PopList,"MS010",1)>0 then response.Write "checked"%>>
  523.                             添加 
  524.                             <input name="PopList" type="checkbox" id="PopList" value="MS011" <%if InStr(1,str_PopList,"MS011",1)>0 then response.Write "checked"%>>
  525.                             修改 
  526.                             <input name="PopList" type="checkbox" id="PopList" value="MS012" <%if InStr(1,str_PopList,"MS012",1)>0 then response.Write "checked"%>>
  527.                             删除 
  528.                             <input name="PopList" type="checkbox" id="PopList" value="MS013" <%if InStr(1,str_PopList,"MS013",1)>0 then response.Write "checked"%>>
  529. 排序 
  530. <input name="PopList" type="checkbox" id="PopList" value="MS014" <%if InStr(1,str_PopList,"MS014",1)>0 then response.Write "checked"%>>
  531. 复位 
  532. <input name="PopList" type="checkbox" id="PopList" value="MS015" <%if InStr(1,str_PopList,"MS015",1)>0 then response.Write "checked"%>>
  533. 合并 
  534. <input name="PopList" type="checkbox" id="PopList" value="MS016" <%if InStr(1,str_PopList,"MS016",1)>0 then response.Write "checked"%>>
  535. 清空 </td>
  536.                         </tr>
  537.                       </table></td>
  538.                   </tr>
  539.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  540.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="MS_Special" <%if InStr(1,str_PopList,"MS_Special",1)>0 then response.Write "checked"%>>
  541.                     专区管理</td>
  542.                     <td class="hback"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
  543.                         <tr> 
  544.                           <td><input name="PopList" type="checkbox" id="PopList" value="MS017" <%if InStr(1,str_PopList,"MS017",1)>0 then response.Write "checked"%>>
  545.                             添加 
  546.                             <input name="PopList" type="checkbox" id="PopList" value="MS018" <%if InStr(1,str_PopList,"MS018",1)>0 then response.Write "checked"%>>
  547.                             修改
  548.                             <input name="PopList" type="checkbox" id="PopList" value="MS019" <%if InStr(1,str_PopList,"MS019",1)>0 then response.Write "checked"%>>
  549. 删除
  550. <input name="PopList" type="checkbox" id="PopList" value="MS020" <%if InStr(1,str_PopList,"MS020",1)>0 then response.Write "checked"%>>
  551. 锁定</td>
  552.                         </tr>
  553.                       </table></td>
  554.                   </tr>
  555.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  556.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="MS_order" <%if InStr(1,str_PopList,"MS_order",1)>0 then response.Write "checked"%>>
  557.                     定单管理</td>
  558.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  559.                         <tr> 
  560.                           <td><input name="PopList" type="checkbox" id="PopList" value="MS021" <%if InStr(1,str_PopList,"MS021",1)>0 then response.Write "checked"%>>
  561.                             开启</td>
  562.                         </tr>
  563.                       </table></td>
  564.                   </tr>
  565.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  566.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="MS_WrOut" <%if InStr(1,str_PopList,"MS_WrOut",1)>0 then response.Write "checked"%>>
  567.                     退货管理</td>
  568.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  569.                         <tr> 
  570.                           <td><input name="PopList" type="checkbox" id="PopList" value="MS022" <%if InStr(1,str_PopList,"MS022",1)>0 then response.Write "checked"%>>
  571.                             开启</td>
  572.                         </tr>
  573.                       </table></td>
  574.                   </tr>
  575.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  576.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="MS_Company" <%if InStr(1,str_PopList,"MS_Company",1)>0 then response.Write "checked"%>>
  577.                     物流公司/商家</td>
  578.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  579.                         <tr> 
  580.                           <td><input name="PopList" type="checkbox" id="PopList" value="MS023" <%if InStr(1,str_PopList,"MS023",1)>0 then response.Write "checked"%>>
  581.                             开启</td>
  582.                         </tr>
  583.                       </table></td>
  584.                   </tr>
  585.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  586.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="MS_Recycle" <%if InStr(1,str_PopList,"MS_Recycle",1)>0 then response.Write "checked"%>>
  587.                     回收站管理</td>
  588.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  589.                         <tr> 
  590.                           <td><input name="PopList" type="checkbox" id="PopList" value="MS024" <%if InStr(1,str_PopList,"MS024",1)>0 then response.Write "checked"%>>
  591.                             开启</td>
  592.                         </tr>
  593.                       </table></td>
  594.                   </tr>
  595.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  596.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="MS_Param" <%if InStr(1,str_PopList,"MS_Param",1)>0 then response.Write "checked"%>>
  597.                     系统参数</td>
  598.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  599.                         <tr> 
  600.                           <td><input name="PopList" type="checkbox" id="PopList" value="MS025" <%if InStr(1,str_PopList,"MS025",1)>0 then response.Write "checked"%>>
  601.                             开启</td>
  602.                         </tr>
  603.                       </table></td>
  604.                   </tr>
  605.                 </table>
  606.               </div></td>
  607.           </tr>
  608.   <%
  609. end if
  610. if Request.Cookies("FoosunSUBCookie")("FoosunSUBDS")=1 then
  611.   %>
  612.           <tr  class="hback_1"> 
  613.             <td colspan="2" class="hback_1"> <div align="left"><strong>
  614.               <input name="PopList_DS" type="checkbox" id="PopList_DS" value="DS_Pop"  onClick="SwitchPopType('DS_Pop');" <%if InStr(1,str_PopList,"DS_Pop",1)>0 then response.Write "checked"%>>
  615.             </strong>DS下载系统</div></td>
  616.           </tr>
  617.           <tr class="hback"> 
  618.             <td colspan="2" class="hback"><div align="left"> 
  619.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"DS_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="DS_ID">
  620.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  621.                     <td width="14%" class="hback"><div align="left"> 
  622.                         <input name="PopList" type="checkbox" id="PopList" value="Down_List" <%if InStr(1,str_PopList,"Down_List",1)>0 then response.Write "checked"%>>
  623.                         下载管理</div></td>
  624.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  625.                         <tr> 
  626.                           <td><input name="PopList" type="checkbox" id="PopList" value="DS001" <%if InStr(1,str_PopList,"DS001",1)>0 then response.Write "checked"%>>
  627.                             添加 
  628.                             <input name="PopList" type="checkbox" id="PopList" value="DS002" <%if InStr(1,str_PopList,"DS002",1)>0 then response.Write "checked"%>>
  629.                             修改 
  630.                             <input name="PopList" type="checkbox" id="PopList" value="DS003" <%if InStr(1,str_PopList,"DS003",1)>0 then response.Write "checked"%>>
  631.                             删除 
  632.                              
  633.                             <input name="PopList" type="checkbox" id="PopList" value="DS005" <%if InStr(1,str_PopList,"DS005",1)>0 then response.Write "checked"%>>
  634.                             锁定                          </td>
  635.                         </tr>
  636.                       </table></td>
  637.                   </tr>
  638.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  639.                     <td class="hback"><div align="left"> 
  640.                         <input name="PopList" type="checkbox" id="PopList" value="DS_Class" <%if InStr(1,str_PopList,"DS_Class",1)>0 then response.Write "checked"%>>
  641.                         栏目管理</div></td>
  642.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  643.                         <tr> 
  644.                           <td><input name="PopList" type="checkbox" id="PopList" value="DS010" <%if InStr(1,str_PopList,"DS010",1)>0 then response.Write "checked"%>>
  645.                             添加 
  646.                             <input name="PopList" type="checkbox" id="PopList" value="DS011" <%if InStr(1,str_PopList,"DS011",1)>0 then response.Write "checked"%>>
  647.                             修改 
  648.                             <input name="PopList" type="checkbox" id="PopList" value="DS012" <%if InStr(1,str_PopList,"DS012",1)>0 then response.Write "checked"%>>
  649.                             删除 
  650.                             <input name="PopList" type="checkbox" id="PopList" value="DS013" <%if InStr(1,str_PopList,"DS013",1)>0 then response.Write "checked"%>>
  651. 排序 
  652. <input name="PopList" type="checkbox" id="PopList" value="DS014" <%if InStr(1,str_PopList,"DS014",1)>0 then response.Write "checked"%>>
  653. 复位 
  654. <input name="PopList" type="checkbox" id="PopList" value="DS015"  <%if InStr(1,str_PopList,"DS015",1)>0 then response.Write "checked"%>>
  655. 合并 
  656. <input name="PopList" type="checkbox" id="PopList" value="DS016"  <%if InStr(1,str_PopList,"DS016",1)>0 then response.Write "checked"%>>
  657. 清空 </td>
  658.                         </tr>
  659.                       </table></td>
  660.                   </tr>
  661.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  662.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="DS_Param" <%if InStr(1,str_PopList,"DS_Param",1)>0 then response.Write "checked"%>>
  663.                     参数设置</td>
  664.                     <td class="hback"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
  665.                         <tr> 
  666.                           <td><input name="PopList" type="checkbox" id="PopList" value="DS017" <%if InStr(1,str_PopList,"DS017",1)>0 then response.Write "checked"%>>
  667.                             开启</td>
  668.                         </tr>
  669.                       </table></td>
  670.                   </tr>
  671.                 </table>
  672.               </div></td>
  673.           </tr>
  674.   <%
  675. end if
  676. if Request.Cookies("FoosunSUBCookie")("FoosunSUBME")=1 then
  677.   %>
  678.           <tr  class="hback_1"> 
  679.             <td colspan="2" class="hback_1"> <div align="left"> <strong> 
  680.                 <input name="PopList_ME" type="checkbox" id="PopList" value="ME_Pop"  onClick="SwitchPopType('ME_Pop');"  <%if InStr(1,str_PopList,"ME_Pop",1)>0 then response.Write "checked"%>>
  681.                 </strong>ME会员系统</div></td>
  682.           </tr>
  683.           <tr class="hback"> 
  684.             <td colspan="2" class="hback"><div align="left"> 
  685.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"ME_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="ME_ID">
  686.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  687.                     <td width="14%" class="hback"><div align="left"> 
  688.                         <input name="PopList" type="checkbox" id="PopList" value="ME_List" <%if InStr(1,str_PopList,"ME_List",1)>0 then response.Write "checked"%>>
  689.                         会员管理</div></td>
  690.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  691.                         <tr> 
  692.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME001" <%if InStr(1,str_PopList,"ME001",1)>0 then response.Write "checked"%>>
  693.                             开启</td>
  694.                         </tr>
  695.                       </table></td>
  696.                   </tr>
  697.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  698.                     <td class="hback"><div align="left"> 
  699.                         <input name="PopList" type="checkbox" id="PopList" value="ME_Intergel" <%if InStr(1,str_PopList,"ME_Intergel",1)>0 then response.Write "checked"%>>
  700.                         积分管理</div></td>
  701.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  702.                         <tr> 
  703.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME002" <%if InStr(1,str_PopList,"ME002",1)>0 then response.Write "checked"%>>
  704.                           开启</td>
  705.                         </tr>
  706.                       </table></td>
  707.                   </tr>
  708.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  709.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_Card" <%if InStr(1,str_PopList,"ME_Card",1)>0 then response.Write "checked"%>>
  710.                     点卡管理</td>
  711.                     <td class="hback"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
  712.                         <tr> 
  713.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME017" <%if InStr(1,str_PopList,"ME017",1)>0 then response.Write "checked"%>>
  714.                             添加 
  715.                             <input name="PopList" type="checkbox" id="PopList" value="ME018" <%if InStr(1,str_PopList,"ME018",1)>0 then response.Write "checked"%>>
  716.                             修改
  717.                             <input name="PopList" type="checkbox" id="PopList" value="ME019" <%if InStr(1,str_PopList,"ME019",1)>0 then response.Write "checked"%>>
  718. 删除</td>
  719.                         </tr>
  720.                       </table></td>
  721.                   </tr>
  722.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  723.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_News" <%if InStr(1,str_PopList,"ME_News",1)>0 then response.Write "checked"%>>
  724.                     公告管理</td>
  725.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  726.                         <tr> 
  727.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME021" <%if InStr(1,str_PopList,"ME021",1)>0 then response.Write "checked"%>>
  728.                             开启</td>
  729.                         </tr>
  730.                       </table></td>
  731.                   </tr>
  732.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  733.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_Form" <%if InStr(1,str_PopList,"ME_Form",1)>0 then response.Write "checked"%>>
  734.                     社群管理</td>
  735.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  736.                         <tr> 
  737.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME022" <%if InStr(1,str_PopList,"ME022",1)>0 then response.Write "checked"%>>
  738.                             新建
  739.                               <input name="PopList" type="checkbox" id="PopList" value="ME023" <%if InStr(1,str_PopList,"ME023",1)>0 then response.Write "checked"%>>
  740.                             修改
  741.                             <input name="PopList" type="checkbox" id="PopList" value="ME024" <%if InStr(1,str_PopList,"ME024",1)>0 then response.Write "checked"%>>
  742. 删除<input name="PopList" type="checkbox" id="PopList" value="ME025"  <%if InStr(1,str_PopList,"ME025",1)>0 then response.Write "checked"%>>
  743. 锁定</td>
  744.                         </tr>
  745.                       </table></td>
  746.                   </tr>
  747.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  748.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_HY" <%if InStr(1,str_PopList,"ME_HY",1)>0 then response.Write "checked"%>>
  749.                     行业管理</td>
  750.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  751.                         <tr> 
  752.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME026" <%if InStr(1,str_PopList,"ME026",1)>0 then response.Write "checked"%>>
  753.                             开启</td>
  754.                         </tr>
  755.                       </table></td>
  756.                   </tr>
  757.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  758.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_award" <%if InStr(1,str_PopList,"ME_award",1)>0 then response.Write "checked"%>>
  759.                     抽奖管理</td>
  760.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  761.                         <tr> 
  762.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME027" <%if InStr(1,str_PopList,"ME027",1)>0 then response.Write "checked"%>>
  763.                             新建
  764.                               <input name="PopList" type="checkbox" id="PopList" value="ME028" <%if InStr(1,str_PopList,"ME028",1)>0 then response.Write "checked"%>>
  765.                             修改
  766.                             <input name="PopList" type="checkbox" id="PopList" value="ME029" <%if InStr(1,str_PopList,"ME029",1)>0 then response.Write "checked"%>>
  767. 删除<input name="PopList" type="checkbox" id="PopList" value="ME030"  <%if InStr(1,str_PopList,"ME030",1)>0 then response.Write "checked"%>>
  768. 开奖</td>
  769.                         </tr>
  770.                       </table></td>
  771.                   </tr>
  772.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  773.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_Order" <%if InStr(1,str_PopList,"ME_Order",1)>0 then response.Write "checked"%>>
  774.                     定单管理(在线支付)</td>
  775.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  776.                         <tr> 
  777.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME031" <%if InStr(1,str_PopList,"ME031",1)>0 then response.Write "checked"%>>
  778.                             开启</td>
  779.                         </tr>
  780.                       </table></td>
  781.                   </tr>
  782.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  783.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_Mproducts" <%if InStr(1,str_PopList,"ME_Mproducts",1)>0 then response.Write "checked"%>>
  784.                     添加会员商品</td>
  785.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  786.                         <tr> 
  787.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME032" <%if InStr(1,str_PopList,"ME032",1)>0 then response.Write "checked"%>>
  788.                           开启</td>
  789.                         </tr>
  790.                       </table></td>
  791.                   </tr>
  792.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  793.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_Horder" <%if InStr(1,str_PopList,"ME_Horder",1)>0 then response.Write "checked"%>>
  794.                     交易明晰</td>
  795.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  796.                         <tr> 
  797.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME033" <%if InStr(1,str_PopList,"ME033",1)>0 then response.Write "checked"%>>
  798.                           开启</td>
  799.                         </tr>
  800.                       </table></td>
  801.                   </tr>
  802.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  803.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_GUser" <%if InStr(1,str_PopList,"ME_GUser",1)>0 then response.Write "checked"%>>
  804.                     会员组</td>
  805.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  806.                         <tr> 
  807.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME034" <%if InStr(1,str_PopList,"ME034",1)>0 then response.Write "checked"%>>
  808.                             新建
  809.                               <input name="PopList" type="checkbox" id="PopList" value="ME035" <%if InStr(1,str_PopList,"ME035",1)>0 then response.Write "checked"%>>
  810.                             修改
  811.                             <input name="PopList" type="checkbox" id="PopList" value="ME036" <%if InStr(1,str_PopList,"ME036",1)>0 then response.Write "checked"%>>
  812. 删除</td>
  813.                         </tr>
  814.                       </table></td>
  815.                   </tr>
  816.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  817.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_Jubao" <%if InStr(1,str_PopList,"ME_Jubao",1)>0 then response.Write "checked"%>>
  818.                     举报管理</td>
  819.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  820.                         <tr> 
  821.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME037" <%if InStr(1,str_PopList,"ME037",1)>0 then response.Write "checked"%>>
  822.                             开启</td>
  823.                         </tr>
  824.                       </table></td>
  825.                   </tr>
  826.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  827.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_Review" <%if InStr(1,str_PopList,"ME_Review",1)>0 then response.Write "checked"%>>
  828.                     评论管理</td>
  829.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  830.                         <tr> 
  831.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME038" <%if InStr(1,str_PopList,"ME038",1)>0 then response.Write "checked"%>>
  832.                           开启</td>
  833.                         </tr>
  834.                       </table></td>
  835.                   </tr>
  836.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  837.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_Log" <%if InStr(1,str_PopList,"ME_Log",1)>0 then response.Write "checked"%>>
  838.                     日志管理</td>
  839.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  840.                         <tr> 
  841.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME039" <%if InStr(1,str_PopList,"ME039",1)>0 then response.Write "checked"%>>
  842.                           开启</td>
  843.                         </tr>
  844.                       </table></td>
  845.                   </tr>
  846.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  847.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_Photo" <%if InStr(1,str_PopList,"ME_Photo",1)>0 then response.Write "checked"%>>
  848.                     相册管理</td>
  849.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  850.                         <tr> 
  851.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME040" <%if InStr(1,str_PopList,"ME040",1)>0 then response.Write "checked"%>>
  852.                             开启</td>
  853.                         </tr>
  854.                       </table></td>
  855.                   </tr>
  856.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  857.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_Param" <%if InStr(1,str_PopList,"ME_Param",1)>0 then response.Write "checked"%>>
  858.                     参数设置</td>
  859.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  860.                         <tr> 
  861.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME041" <%if InStr(1,str_PopList,"ME041",1)>0 then response.Write "checked"%>>
  862.                             开启</td>
  863.                         </tr>
  864.                       </table></td>
  865.                   </tr>
  866.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  867.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="ME_Pay" <%if InStr(1,str_PopList,"ME_Pay",1)>0 then response.Write "checked"%>>
  868.                     在线支付</td>
  869.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  870.                         <tr> 
  871.                           <td><input name="PopList" type="checkbox" id="PopList" value="ME042" <%if InStr(1,str_PopList,"ME042",1)>0 then response.Write "checked"%>>
  872.                             开启</td>
  873.                         </tr>
  874.                       </table></td>
  875.                   </tr>
  876.                 </table>
  877.               </div></td>
  878.           </tr>
  879.   <%
  880. end if
  881. if Request.Cookies("FoosunSUBCookie")("FoosunSUBAP")=1 then
  882.   %>
  883.           <tr  class="hback_1"> 
  884.             <td colspan="2" class="hback_1"> <div align="left"><strong>
  885.               <input name="PopList_AP" type="checkbox" id="PopList_AP" value="AP_Pop"  onClick="SwitchPopType('AP_Pop');" <%if InStr(1,str_PopList,"AP_Pop",1)>0 then response.Write "checked"%>>
  886.             </strong>AP招聘求职系统</div></td>
  887.           </tr>
  888.           <tr class="hback"> 
  889.             <td colspan="2" class="hback"><div align="left"> 
  890.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"AP_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="AP_ID">
  891.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  892.                     <td width="14%" class="hback"><div align="left"> 
  893.                         <input name="PopList" type="checkbox" id="PopList" value="AP_Param" <%if InStr(1,str_PopList,"AP_Param",1)>0 then response.Write "checked"%>>
  894.                         系统参数设置</div></td>
  895.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  896.                         <tr> 
  897.                           <td><input name="PopList" type="checkbox" id="PopList" value="AP001" <%if InStr(1,str_PopList,"AP001",1)>0 then response.Write "checked"%>>
  898.                             开启</td>
  899.                         </tr>
  900.                       </table></td>
  901.                   </tr>
  902.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  903.                     <td class="hback"><div align="left"> 
  904.                         <input name="PopList" type="checkbox" id="PopList" value="AP_Province" <%if InStr(1,str_PopList,"AP_Province",1)>0 then response.Write "checked"%>>
  905.                         省份设置</div></td>
  906.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  907.                         <tr> 
  908.                           <td><input name="PopList" type="checkbox" id="PopList" value="AP002" <%if InStr(1,str_PopList,"AP002",1)>0 then response.Write "checked"%>>
  909.                             开启</td>
  910.                         </tr>
  911.                       </table></td>
  912.                   </tr>
  913.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  914.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="AP_city" <%if InStr(1,str_PopList,"AP_city",1)>0 then response.Write "checked"%>>
  915.                     城市设置</td>
  916.                     <td class="hback"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
  917.                         <tr> 
  918.                           <td><input name="PopList" type="checkbox" id="PopList" value="AP003" <%if InStr(1,str_PopList,"AP003",1)>0 then response.Write "checked"%>>
  919.                             开启</td>
  920.                         </tr>
  921.                       </table></td>
  922.                   </tr>
  923. <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  924.                     <td width="14%" class="hback"><div align="left"> 
  925.                         <input name="PopList" type="checkbox" id="PopList" value="AP_Search" <%if InStr(1,str_PopList,"AP_Search",1)>0 then response.Write "checked"%>>
  926.                         会员记录查询</div></td>
  927.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  928.                         <tr> 
  929.                           <td><input name="PopList" type="checkbox" id="PopList" value="AP004" <%if InStr(1,str_PopList,"AP004",1)>0 then response.Write "checked"%>>
  930.                             开启</td>
  931.                         </tr>
  932.                       </table></td>
  933.                   </tr><tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  934.                     <td width="14%" class="hback"><div align="left"> 
  935.                         <input name="PopList" type="checkbox" id="PopList" value="AP_check" <%if InStr(1,str_PopList,"AP_check",1)>0 then response.Write "checked"%>>
  936.                         注册信息审核</div></td>
  937.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  938.                         <tr> 
  939.                           <td><input name="PopList" type="checkbox" id="PopList" value="AP005" <%if InStr(1,str_PopList,"AP005",1)>0 then response.Write "checked"%>>
  940.                             开启</td>
  941.                         </tr>
  942.                       </table></td>
  943.                   </tr>   
  944.                 </table>
  945.               </div></td>
  946.           </tr>
  947.   <%
  948. end if
  949. if Request.Cookies("FoosunSUBCookie")("FoosunSUBSD")=1 then
  950.   %>
  951.           <tr  class="hback_1"> 
  952.             <td colspan="2" class="hback_1"> <div align="left"><strong>
  953.               <input name="PopList_SD" type="checkbox" id="PopList_SD" value="SD_Pop"  onClick="SwitchPopType('SD_Pop');" <%if InStr(1,str_PopList,"SD_Pop",1)>0 then response.Write "checked"%>>
  954.             </strong>SD供求系统</div></td>
  955.           </tr>
  956.           <tr class="hback"> 
  957.             <td colspan="2" class="hback"><div align="left"> 
  958.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"SD_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="SD_ID">
  959.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  960.                     <td width="14%" class="hback"><div align="left"> 
  961.                         <input name="PopList" type="checkbox" id="PopList" value="SD_List" <%if InStr(1,str_PopList,"SD_List",1)>0 then response.Write "checked"%>>
  962.                         供求信息</div></td>
  963.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  964.                         <tr> 
  965.                           <td><input name="PopList" type="checkbox" id="PopList" value="SD001" <%if InStr(1,str_PopList,"SD001",1)>0 then response.Write "checked"%>>
  966.                             新建
  967.                             <input name="PopList" type="checkbox" id="PopList" value="SD002" <%if InStr(1,str_PopList,"SD002",1)>0 then response.Write "checked"%>>
  968. 修改
  969. <input name="PopList" type="checkbox" id="PopList" value="SD003" <%if InStr(1,str_PopList,"SD003",1)>0 then response.Write "checked"%>>
  970. 删除
  971. <input name="PopList" type="checkbox" id="PopList" value="SD004" <%if InStr(1,str_PopList,"SD004",1)>0 then response.Write "checked"%>>
  972. 审核</td>
  973.                         </tr>
  974.                       </table></td>
  975.                   </tr>
  976.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  977.                     <td class="hback"><div align="left"> 
  978.                         <input name="PopList" type="checkbox" id="PopList" value="SD_Class" <%if InStr(1,str_PopList,"SD_Class",1)>0 then response.Write "checked"%>>
  979.                         类别栏目</div></td>
  980.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  981.                         <tr> 
  982.                           <td><input name="PopList" type="checkbox" id="PopList" value="SD005" <%if InStr(1,str_PopList,"SD005",1)>0 then response.Write "checked"%>>
  983. 新建
  984.   <input name="PopList" type="checkbox" id="PopList" value="SD006" <%if InStr(1,str_PopList,"SD006",1)>0 then response.Write "checked"%>>
  985. 修改
  986. <input name="PopList" type="checkbox" id="PopList" value="SD007" <%if InStr(1,str_PopList,"SD007",1)>0 then response.Write "checked"%>>
  987. 删除</td>
  988.                         </tr>
  989.                       </table></td>
  990.                   </tr>
  991.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  992.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="AP_area" <%if InStr(1,str_PopList,"AP_area",1)>0 then response.Write "checked"%>>
  993.                     区域管理</td>
  994.                     <td class="hback"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
  995.                         <tr> 
  996.                           <td><input name="PopList" type="checkbox" id="PopList" value="SD008" <%if InStr(1,str_PopList,"SD008",1)>0 then response.Write "checked"%>>
  997.                             开启</td>
  998.                         </tr>
  999.                       </table></td>
  1000.                   </tr>
  1001. <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1002.                     <td width="14%" class="hback"><div align="left"> 
  1003.                         <input name="PopList" type="checkbox" id="PopList" value="AP_param" <%if InStr(1,str_PopList,"AP_param",1)>0 then response.Write "checked"%>>
  1004.                         系统设置</div></td>
  1005.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1006.                         <tr> 
  1007.                           <td><input name="PopList" type="checkbox" id="PopList" value="SD009" <%if InStr(1,str_PopList,"SD009",1)>0 then response.Write "checked"%>>
  1008.                             开启</td>
  1009.                         </tr>
  1010.                       </table></td>
  1011.                   </tr>   
  1012.                 </table>
  1013.               </div></td>
  1014.           </tr>
  1015.   <%
  1016. end if
  1017. if Request.Cookies("FoosunSUBCookie")("FoosunSUBCS")=1 then
  1018.   %>
  1019.           <tr  class="hback_1"> 
  1020.             <td colspan="2" class="hback_1"> <div align="left"><strong>
  1021.               <input name="PopList_CS" type="checkbox" id="PopList_CS" value="CS_Pop"  onClick="SwitchPopType('CS_Pop');" <%if InStr(1,str_PopList,"CS_Pop",1)>0 then response.Write "checked"%>>
  1022.             </strong>CS采集系统</div></td>
  1023.           </tr>
  1024.           <tr class="hback"> 
  1025.             <td colspan="2" class="hback"><div align="left"> 
  1026.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"CS_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="CS_ID">
  1027.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1028.                     <td width="14%" class="hback"><div align="left"> 
  1029.                         <input name="PopList" type="checkbox" id="PopList" value="CS_site" <%if InStr(1,str_PopList,"CS_site",1)>0 then response.Write "checked"%>>
  1030.                         设置站点</div></td>
  1031.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1032.                         <tr> 
  1033.                           <td><input name="PopList" type="checkbox" id="PopList" value="CS001" <%if InStr(1,str_PopList,"CS001",1)>0 then response.Write "checked"%>>
  1034.                             开启</td>
  1035.                         </tr>
  1036.                       </table></td>
  1037.                   </tr>
  1038.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1039.                     <td class="hback"><div align="left"> 
  1040.                         <input name="PopList" type="checkbox" id="PopList" value="CS_collect" <%if InStr(1,str_PopList,"CS_collect",1)>0 then response.Write "checked"%>>
  1041.                         采集</div></td>
  1042.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1043.                         <tr> 
  1044.                           <td><input name="PopList" type="checkbox" id="PopList" value="CS002" <%if InStr(1,str_PopList,"CS002",1)>0 then response.Write "checked"%>>
  1045.                           开启</td>
  1046.                         </tr>
  1047.                       </table></td>
  1048.                   </tr>
  1049.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1050.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="CS_Ink" <%if InStr(1,str_PopList,"CS_Ink",1)>0 then response.Write "checked"%>>
  1051.                     采入数据库</td>
  1052.                     <td class="hback"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
  1053.                         <tr> 
  1054.                           <td><input name="PopList" type="checkbox" id="PopList" value="CS003" <%if InStr(1,str_PopList,"CS003",1)>0 then response.Write "checked"%>>
  1055.                             开启</td>
  1056.                         </tr>
  1057.                       </table></td>
  1058.                   </tr>
  1059.                 </table>
  1060.               </div></td>
  1061.           </tr>
  1062.   <%
  1063. end if
  1064. if Request.Cookies("FoosunSUBCookie")("FoosunSUBSS")=1 then
  1065.   %>
  1066.           <tr  class="hback_1"> 
  1067.             <td colspan="2" class="hback_1"> <div align="left"><strong>
  1068.               <input name="PopList_SS" type="checkbox" id="PopList_SS" value="SS_Pop"  onClick="SwitchPopType('SS_Pop');"  <%if InStr(1,str_PopList,"SS_Pop",1)>0 then response.Write "checked"%>>
  1069.             </strong>SS站点统计</div></td>
  1070.           </tr>
  1071.           <tr class="hback"> 
  1072.             <td colspan="2" class="hback"><div align="left"> 
  1073.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"SS_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="SS_ID">
  1074.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1075.                     <td width="14%" class="hback"><div align="left"> 
  1076.                         <input name="PopList" type="checkbox" id="PopList" value="SS_site" <%if InStr(1,str_PopList,"SS_site",1)>0 then response.Write "checked"%>>
  1077.                         站点统计</div></td>
  1078.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1079.                         <tr> 
  1080.                           <td><input name="PopList" type="checkbox" id="PopList" value="SS001" <%if InStr(1,str_PopList,"SS001",1)>0 then response.Write "checked"%>>
  1081.                             开启</td>
  1082.                         </tr>
  1083.                       </table></td>
  1084.                   </tr>
  1085.                 </table>
  1086.               </div></td>
  1087.           </tr>
  1088.   <%
  1089. end if
  1090. if Request.Cookies("FoosunSUBCookie")("FoosunSUBHS")=1 then
  1091.   %>
  1092.           <tr  class="hback_1"> 
  1093.             <td colspan="2" class="hback_1"> <div align="left"><strong>
  1094.               <input name="PopList_HS" type="checkbox" id="PopList_HS" value="HS_Pop"  onClick="SwitchPopType('HS_Pop');" <%if InStr(1,str_PopList,"HS_Pop",1)>0 then response.Write "checked"%>>
  1095.             </strong>HS房产楼盘系统</div></td>
  1096.           </tr>
  1097.           <tr class="hback"> 
  1098.             <td colspan="2" class="hback"><div align="left"> 
  1099.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"HS_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="HS_ID">
  1100.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1101.                     <td width="14%" class="hback"><div align="left"> 
  1102.                         <input name="PopList" type="checkbox" id="PopList" value="HS_Loup" <%if InStr(1,str_PopList,"HS_Loup",1)>0 then response.Write "checked"%>>
  1103.                         楼盘管理</div></td>
  1104.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1105.                         <tr> 
  1106.                           <td><input name="PopList" type="checkbox" id="PopList" value="HS001" <%if InStr(1,str_PopList,"HS001",1)>0 then response.Write "checked"%>>
  1107.                             新建
  1108.                             <input name="PopList" type="checkbox" id="PopList" value="HS002" <%if InStr(1,str_PopList,"HS002",1)>0 then response.Write "checked"%>>
  1109. 修改
  1110. <input name="PopList" type="checkbox" id="PopList" value="HS003" <%if InStr(1,str_PopList,"HS003",1)>0 then response.Write "checked"%>>
  1111. 删除
  1112. <input name="PopList" type="checkbox" id="PopList" value="HS004" <%if InStr(1,str_PopList,"HS004",1)>0 then response.Write "checked"%>>
  1113. 审核</td>
  1114.                         </tr>
  1115.                       </table></td>
  1116.                   </tr>
  1117.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1118.                     <td class="hback"><div align="left"> 
  1119.                         <input name="PopList" type="checkbox" id="PopList" value="HS_Ero" <%if InStr(1,str_PopList,"HS_Ero",1)>0 then response.Write "checked"%>>
  1120.                         二手房</div></td>
  1121.                     <td class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1122.                         <tr> 
  1123.                           <td><input name="PopList" type="checkbox" id="PopList" value="HS005" <%if InStr(1,str_PopList,"HS005",1)>0 then response.Write "checked"%>>
  1124. 新建
  1125.   <input name="PopList" type="checkbox" id="PopList" value="HS006" <%if InStr(1,str_PopList,"HS006",1)>0 then response.Write "checked"%>>
  1126. 修改
  1127. <input name="PopList" type="checkbox" id="PopList" value="HS007" <%if InStr(1,str_PopList,"HS007",1)>0 then response.Write "checked"%>>
  1128. 删除</td>
  1129.                         </tr>
  1130.                       </table></td>
  1131.                   </tr>
  1132.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1133.                     <td class="hback"><input name="PopList" type="checkbox" id="PopList" value="HS_Zu" <%if InStr(1,str_PopList,"HS_Zu",1)>0 then response.Write "checked"%>>
  1134.                     租赁信息</td>
  1135.                     <td class="hback"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
  1136.                         <tr> 
  1137.                           <td><input name="PopList" type="checkbox" id="PopList" value="HS008" <%if InStr(1,str_PopList,"HS008",1)>0 then response.Write "checked"%>>
  1138.                             开启</td>
  1139.                         </tr>
  1140.                       </table></td>
  1141.                   </tr>
  1142. <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1143.                     <td width="14%" class="hback"><div align="left"> 
  1144.                         <input name="PopList" type="checkbox" id="PopList" value="HS_param" <%if InStr(1,str_PopList,"HS_param",1)>0 then response.Write "checked"%>>
  1145.                         系统设置</div></td>
  1146.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1147.                         <tr> 
  1148.                           <td><input name="PopList" type="checkbox" id="PopList" value="HS009" <%if InStr(1,str_PopList,"HS009",1)>0 then response.Write "checked"%>>
  1149.                             开启</td>
  1150.                         </tr>
  1151.                       </table></td>
  1152.                   </tr>   
  1153. <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1154.                     <td width="14%" class="hback"><div align="left"> 
  1155.                         <input name="PopList" type="checkbox" id="PopList" value="HS_FY" <%if InStr(1,str_PopList,"HS_FY",1)>0 then response.Write "checked"%>>
  1156.                         房源审核</div></td>
  1157.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1158.                         <tr> 
  1159.                           <td><input name="PopList" type="checkbox" id="PopList" value="HS010" <%if InStr(1,str_PopList,"HS010",1)>0 then response.Write "checked"%>>
  1160.                             开启</td>
  1161.                         </tr>
  1162.                       </table></td>
  1163.                   </tr>   
  1164. <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1165.                     <td width="14%" class="hback"><div align="left"> 
  1166.                         <input name="PopList" type="checkbox" id="PopList" value="HS_Search" <%if InStr(1,str_PopList,"HS_Search",1)>0 then response.Write "checked"%>>
  1167.                         查询统计</div></td>
  1168.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1169.                         <tr> 
  1170.                           <td><input name="PopList" type="checkbox" id="PopList" value="HS011" <%if InStr(1,str_PopList,"HS011",1)>0 then response.Write "checked"%>>
  1171.                             开启</td>
  1172.                         </tr>
  1173.                       </table></td>
  1174.                   </tr>   
  1175. <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1176.                     <td width="14%" class="hback"><div align="left"> 
  1177.                         <input name="PopList" type="checkbox" id="PopList" value="HS_CJ" <%if InStr(1,str_PopList,"HS_CJ",1)>0 then response.Write "checked"%>>
  1178.                         厂商管理</div></td>
  1179.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1180.                         <tr> 
  1181.                           <td><input name="PopList" type="checkbox" id="PopList" value="HS012" <%if InStr(1,str_PopList,"HS012",1)>0 then response.Write "checked"%>>
  1182.                             开启</td>
  1183.                         </tr>
  1184.                       </table></td>
  1185.                   </tr>   
  1186. <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1187.                     <td width="14%" class="hback"><div align="left"> 
  1188.                         <input name="PopList" type="checkbox" id="PopList" value="HS_Other" <%if InStr(1,str_PopList,"HS_Other",1)>0 then response.Write "checked"%>>
  1189.                         其他</div></td>
  1190.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1191.                         <tr> 
  1192.                           <td><input name="PopList" type="checkbox" id="PopList" value="HS013" <%if InStr(1,str_PopList,"HS013",1)>0 then response.Write "checked"%>>
  1193.                             回收站管理
  1194.                             <input name="PopList" type="checkbox" id="PopList" value="HS014" <%if InStr(1,str_PopList,"HS014",1)>0 then response.Write "checked"%>>
  1195.                             清理过期房源
  1196.                             <input name="PopList" type="checkbox" id="PopList" value="HS015" <%if InStr(1,str_PopList,"HS015",1)>0 then response.Write "checked"%>>
  1197.                           捆绑模板</td>
  1198.                         </tr>
  1199.                       </table></td>
  1200.                   </tr>   
  1201.                 </table>
  1202.               </div></td>
  1203.           </tr>   
  1204.   <%
  1205. end if
  1206. if Request.Cookies("FoosunSUBCookie")("FoosunSUBVS")=1 then
  1207.   %>
  1208.           <tr  class="hback_1"> 
  1209.             <td colspan="2" class="hback_1"> <div align="left"><strong>
  1210.               <input name="PopList_VS" type="checkbox" id="PopList_VS" value="VS_Pop"  onClick="SwitchPopType('VS_Pop');" <%if InStr(1,str_PopList,"VS_Pop",1)>0 then response.Write "checked"%>>
  1211.             </strong>VS投票管理</div></td>
  1212.           </tr>
  1213.           <tr class="hback"> 
  1214.             <td colspan="2" class="hback"><div align="left"> 
  1215.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"VS_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="VS_ID">
  1216.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1217.                     <td width="14%" class="hback"><div align="left"> 
  1218.                         <input name="PopList" type="checkbox" id="PopList" value="VS_site" <%if InStr(1,str_PopList,"VS_site",1)>0 then response.Write "checked"%>>
  1219.                         开启
  1220.                     </div></td>
  1221.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1222.                         <tr> 
  1223.                           <td><input name="PopList" type="checkbox" id="PopList" value="VS001" <%if InStr(1,str_PopList,"VS001",1)>0 then response.Write "checked"%>>
  1224.                             参数设置
  1225.                               <input name="PopList" type="checkbox" id="PopList" value="VS002" <%if InStr(1,str_PopList,"VS002",1)>0 then response.Write "checked"%>>
  1226. 管理
  1227. <input name="PopList" type="checkbox" id="PopList" value="VS003" <%if InStr(1,str_PopList,"VS003",1)>0 then response.Write "checked"%>>
  1228. 查看</td>
  1229.                         </tr>
  1230.                       </table></td>
  1231.                   </tr>
  1232.                 </table>
  1233.               </div></td>
  1234.           </tr>
  1235.   <%
  1236. end if
  1237. if Request.Cookies("FoosunSUBCookie")("FoosunSUBAS")=1 then
  1238.   %>
  1239.           <tr  class="hback_1"> 
  1240.             <td colspan="2" class="hback_1"> <div align="left"><strong>
  1241.               <input name="PopList_AS" type="checkbox" id="PopList_AS" value="AS_Pop"  onClick="SwitchPopType('AS_Pop');" <%if InStr(1,str_PopList,"AS_Pop",1)>0 then response.Write "checked"%>>
  1242.             </strong>AS广告管理系统</div></td>
  1243.           </tr>
  1244.           <tr class="hback"> 
  1245.             <td colspan="2" class="hback"><div align="left"> 
  1246.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"AS_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="AS_ID">
  1247.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1248.                     <td width="14%" class="hback"><div align="left"> 
  1249.                         <input name="PopList" type="checkbox" id="PopList" value="AS_site" <%if InStr(1,str_PopList,"AS_site",1)>0 then response.Write "checked"%>>
  1250.                         开启</div></td>
  1251.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1252.                         <tr> 
  1253.                           <td><input name="PopList" type="checkbox" id="PopList" value="AS001" <%if InStr(1,str_PopList,"AS001",1)>0 then response.Write "checked"%>>
  1254. 管理
  1255.   <input name="PopList" type="checkbox" id="PopList" value="AS002" <%if InStr(1,str_PopList,"AS002",1)>0 then response.Write "checked"%>>
  1256. 统计
  1257. <input name="PopList" type="checkbox" id="PopList" value="AS003" <%if InStr(1,str_PopList,"AS003",1)>0 then response.Write "checked"%>>
  1258. 分类</td>
  1259.                         </tr>
  1260.                       </table></td>
  1261.                   </tr>
  1262.                 </table>
  1263.               </div></td>
  1264.           </tr>
  1265.   <%
  1266. end if
  1267. if Request.Cookies("FoosunSUBCookie")("FoosunSUBWS")=1 then
  1268.   %>
  1269.           <tr  class="hback_1"> 
  1270.             <td colspan="2" class="hback_1"> <div align="left"><strong>
  1271.               <input name="PopList_WS" type="checkbox" id="PopList_WS" value="WS_Pop"  onClick="SwitchPopType('WS_Pop');" <%if InStr(1,str_PopList,"WS_Pop",1)>0 then response.Write "checked"%>>
  1272.             </strong>WS留言系统</div></td>
  1273.           </tr>
  1274.           <tr class="hback"> 
  1275.             <td colspan="2" class="hback"><div align="left"> 
  1276.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"WS_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="WS_ID">
  1277.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1278.                     <td width="14%" class="hback"><div align="left"> 
  1279.                         <input name="PopList" type="checkbox" id="PopList" value="WS_site" <%if InStr(1,str_PopList,"WS_site",1)>0 then response.Write "checked"%>>
  1280.                         开启</div></td>
  1281.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1282.                         <tr> 
  1283.                           <td><input name="PopList" type="checkbox" id="PopList" value="WS001" <%if InStr(1,str_PopList,"WS001",1)>0 then response.Write "checked"%>>
  1284.                             查看
  1285.                               <input name="PopList" type="checkbox" id="PopList" value="WS002" <%if InStr(1,str_PopList,"WS002",1)>0 then response.Write "checked"%>>
  1286. 管理</td>
  1287.                         </tr>
  1288.                       </table></td>
  1289.                   </tr>
  1290.                 </table>
  1291.               </div></td>
  1292.           </tr>
  1293.   <%
  1294. end if
  1295. if Request.Cookies("FoosunSUBCookie")("FoosunSUBFL")=1 then
  1296.   %>
  1297.           <tr  class="hback_1"> 
  1298.             <td colspan="2" class="hback_1"> <div align="left"><strong>
  1299.               <input name="PopList_FL" type="checkbox" id="PopList_FL" value="FL_Pop"  onClick="SwitchPopType('FL_Pop');" <%if InStr(1,str_PopList,"FL_Pop",1)>0 then response.Write "checked"%>>
  1300.             </strong>FL友情联接系统</div></td>
  1301.           </tr>
  1302.           <tr class="hback"> 
  1303.             <td colspan="2" class="hback"><div align="left"> 
  1304.                 <table width="100%" border="0" cellspacing="0" cellpadding="4" style="display: <%if InStr(1,str_PopList,"FL_Pop",1)<>0 then:response.Write(";"):else:Response.Write("none"):end if%>" id="FL_ID">
  1305.                   <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  1306.                     <td width="14%" class="hback"><div align="left"> 
  1307.                         <input name="PopList" type="checkbox" id="PopList" value="FL_site" <%if InStr(1,str_PopList,"FL_site",1)>0 then response.Write "checked"%>>
  1308.                         开启</div></td>
  1309.                     <td width="86%" class="hback"><table width="98%" border="0" cellspacing="0" cellpadding="2">
  1310.                         <tr> 
  1311.                           <td><input name="PopList" type="checkbox" id="PopList" value="FL001" <%if InStr(1,str_PopList,"FL001",1)>0 then response.Write "checked"%>>
  1312.                             查看
  1313.                               <input name="PopList" type="checkbox" id="PopList" value="FL002" <%if InStr(1,str_PopList,"FL002",1)>0 then response.Write "checked"%>>
  1314. 管理</td>
  1315.                         </tr>
  1316.                       </table></td>
  1317.                   </tr>
  1318.                 </table>
  1319.               </div></td>
  1320.           </tr>
  1321.   <%end if%>
  1322.        </table></td>
  1323.     </tr>
  1324.     <tr > 
  1325.       <td colspan="3" class="hback"><div align="left"></div>
  1326.         <input type="submit" name="Submit" value="确定设置权限"> <input type="reset" name="Submit2" value="重置"></td>
  1327.     </tr>
  1328.   </form>
  1329. </table>
  1330. <script language="javascript" type="text/javascript" src="../../FS_Inc/wz_tooltip.js"></script>
  1331. </body>
  1332. </html>
  1333. <script language="JavaScript" type="text/JavaScript">
  1334. function SwitchPopType(Html_express)
  1335. {
  1336. //alert(Html_express);
  1337. //return false;
  1338. switch (Html_express)
  1339. {
  1340. case "MF_Pop":
  1341. if (document.PopForm.PopList_MF.checked==true){document.getElementById('MF_ID').style.display='';}
  1342. else{document.getElementById('MF_ID').style.display='none';}
  1343. break;
  1344. case "NS_Pop":
  1345. if (document.PopForm.PopList_NS.checked==true){document.getElementById('NS_ID').style.display='';}
  1346. else{document.getElementById('NS_ID').style.display='none';}
  1347. break;
  1348. case "MS_Pop":
  1349. if (document.PopForm.PopList_MS.checked==true){document.getElementById('MS_ID').style.display='';}
  1350. else{document.getElementById('MS_ID').style.display='none';}
  1351. break;
  1352. case "DS_Pop":
  1353. if (document.PopForm.PopList_DS.checked==true){document.getElementById('DS_ID').style.display='';}
  1354. else{document.getElementById('DS_ID').style.display='none';}
  1355. break;
  1356. case "ME_Pop":
  1357. if (document.PopForm.PopList_ME.checked==true){document.getElementById('ME_ID').style.display='';}
  1358. else{document.getElementById('ME_ID').style.display='none';}
  1359. break;
  1360. case "AP_Pop":
  1361. if (document.PopForm.PopList_AP.checked==true){document.getElementById('AP_ID').style.display='';}
  1362. else{document.getElementById('AP_ID').style.display='none';}
  1363. break;
  1364. case "SD_Pop":
  1365. if (document.PopForm.PopList_SD.checked==true){document.getElementById('SD_ID').style.display='';}
  1366. else{document.getElementById('SD_ID').style.display='none';}
  1367. break;
  1368. case "CS_Pop":
  1369. if (document.PopForm.PopList_CS.checked==true){document.getElementById('CS_ID').style.display='';}
  1370. else{document.getElementById('CS_ID').style.display='none';}
  1371. break;
  1372. case "SS_Pop":
  1373. if (document.PopForm.PopList_SS.checked==true){document.getElementById('SS_ID').style.display='';}
  1374. else{document.getElementById('SS_ID').style.display='none';}
  1375. break;
  1376. case "HS_Pop":
  1377. if (document.PopForm.PopList_HS.checked==true){document.getElementById('HS_ID').style.display='';}
  1378. else{document.getElementById('HS_ID').style.display='none';}
  1379. break;
  1380. case "VS_Pop":
  1381. if (document.PopForm.PopList_VS.checked==true){document.getElementById('VS_ID').style.display='';}
  1382. else{document.getElementById('VS_ID').style.display='none';}
  1383. break;
  1384. case "AS_Pop":
  1385. if (document.PopForm.PopList_AS.checked==true){document.getElementById('AS_ID').style.display='';}
  1386. else{document.getElementById('AS_ID').style.display='none';}
  1387. break;
  1388. case "WS_Pop":
  1389. if (document.PopForm.PopList_WS.checked==true){document.getElementById('WS_ID').style.display='';}
  1390. else{document.getElementById('WS_ID').style.display='none';}
  1391. break;
  1392. case "FL_Pop":
  1393. if (document.PopForm.PopList_FL.checked==true){document.getElementById('FL_ID').style.display='';}
  1394. else{document.getElementById('FL_ID').style.display='none';}
  1395. break;
  1396. }
  1397. }
  1398. function CheckAll(form)  
  1399.   {  
  1400.   for (var i=0;i<form.elements.length;i++)  
  1401.     {  
  1402.     var e = PopForm.elements[i];  
  1403.     if (e.name != 'chkall')  
  1404.        {
  1405.    e.checked = PopForm.chkall.checked;  
  1406.    document.getElementById('MF_ID').style.display='';
  1407.    }
  1408. }  
  1409. }
  1410. function ChooseadminType(Type)
  1411. {
  1412. switch (Type)
  1413. {
  1414. case "5":
  1415. document.getElementById('all_id').style.display='';
  1416. break;
  1417. default:
  1418. document.getElementById('all_id').style.display='none';
  1419. break;
  1420. }
  1421. }
  1422. </script>
  1423. <%
  1424. Set Conn = Nothing
  1425. %>