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

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

数据库编程

开发平台：

ASP/ASPX

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