admin_admin.asp

个人网站比较简短

        ChannelName = Trim(rsChannel("ChannelName"))
        ChannelShortName = Trim(rsChannel("ChannelShortName"))
        ChannelDir = rsChannel("ChannelDir")

        Response.Write "<tr valign='top'><td>"
        Response.Write "<fieldset><legend>此管理员在【<font color='red'>" & ChannelName & "</font>】频道的权限：</legend><table width='100%'><tr>"
        If rsChannel("ModuleType") = 4 Then
            Response.Write "<td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='1' onclick=""table_" & ChannelDir & ".style.display='none';OtherPurview_" & ChannelDir & ".style.display='';"">频道管理员：拥有栏目总编的权限，并可以管理IP来访和屏蔽广告</td>"
            Response.Write "<td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='2' onclick=""table_" & ChannelDir & ".style.display='none';OtherPurview_" & ChannelDir & ".style.display='none';"">栏目总编：拥有所有栏目的管理权限，并可以管理留言类别</td></tr>"
            Response.Write "<tr><td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='3' onclick=""table_" & ChannelDir & ".style.display='';OtherPurview_" & ChannelDir & ".style.display='none';"">栏目管理员：只拥有部分留言类别管理权限</td>"
        ElseIf rsChannel("ModuleType") = 8 Then
            Response.Write "<td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='1' onclick=""OtherPurview_" & ChannelDir & ".style.display='';"">频道管理员：拥有所有人才招聘模块的管理权限，可以发布职位信息和管理人才</td>"
            Response.Write "<td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='2' onclick=""OtherPurview_" & ChannelDir & ".style.display='none';"">职位信息管理员：拥有职位信息的发布和修改权限，但不能管理人才和删除职位及相关信息(相关人才信息会一起被删除)</td></tr>"
            Response.Write "<tr><td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='3' onclick=""OtherPurview_" & ChannelDir & ".style.display='none';"">人才信息管理员：拥有所有人才信息的管理权限包括删除和修改应聘者的简历</td>"
        ElseIf rsChannel("ModuleType") = 7 Then
            Response.Write "<td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='1' onclick=""OtherPurview_" & ChannelDir & ".style.display='';table_" & ChannelDir & ".style.display='none'"">频道管理员：拥有所有栏目的管理权限</td>"
            Response.Write "<tr><td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='3' onclick=""table_" & ChannelDir & ".style.display='';OtherPurview_" & ChannelDir & ".style.display='none';"">栏目管理员：只拥有部分栏目管理权限</td>"
        ElseIf rsChannel("ModuleType") = 6 Then
            Response.Write "<td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='1' onclick=""OtherPurview_" & ChannelDir & ".style.display='';"">频道管理员：拥有所有栏目的管理权限，并可以添加栏目和专题</td>"
            Response.Write "<td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='2' onclick=""table_" & ChannelDir & ".style.display='none';OtherPurview_" & ChannelDir & ".style.display='none';"">栏目总编：拥有所有栏目的管理权限，但不能添加栏目和专题</td></tr>"
            Response.Write "<tr><td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='3' onclick=""table_" & ChannelDir & ".style.display='';OtherPurview_" & ChannelDir & ".style.display='none';"">栏目管理员：只拥有部分栏目管理权限</td>"
        Else
            Response.Write "<td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='1' onclick=""table_" & ChannelDir & ".style.display='none';OtherPurview_" & ChannelDir & ".style.display='';"">频道管理员：拥有所有栏目的管理权限，并可以添加栏目和专题</td>"
            Response.Write "<td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='2' onclick=""table_" & ChannelDir & ".style.display='none';OtherPurview_" & ChannelDir & ".style.display='none';"">栏目总编：拥有所有栏目的管理权限，但不能添加栏目和专题</td></tr>"
            Response.Write "<tr><td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='3' onclick=""table_" & ChannelDir & ".style.display='';OtherPurview_" & ChannelDir & ".style.display='none';"">栏目管理员：只拥有部分栏目管理权限</td>"
        End If
        Response.Write "<td width='50%'><input type='radio' name='AdminPurview_" & ChannelDir & "' value='4' checked onclick=""table_" & ChannelDir & ".style.display='none';OtherPurview_" & ChannelDir & ".style.display='none';"">在此频道里无任何管理权限</td></tr>"
        If rsChannel("ModuleType") = 4 Then
            Response.Write "<tr id='table_" & ChannelDir & "' style='display:none'><td width='60%'>"
            Response.Write "<iframe id='frm" & ChannelDir & "' height='200' width='100%' src='Admin_SetClassPurview.asp?ManageType=Admin&ChannelID=" & ChannelID & "'></iframe></td>"
            Response.Write "<td>"
            Response.Write "  <input name='arrKind_Modify_" & ChannelDir & "' type='hidden' id='arrKind_Modify_" & ChannelDir & "'>"
            Response.Write "  <input name='arrKind_Del_" & ChannelDir & "' type='hidden' id='arrKind_Del_" & ChannelDir & "'>"
            Response.Write "  <input name='arrKind_Move_" & ChannelDir & "' type='hidden' id='arrKind_Move_" & ChannelDir & "'>"
            Response.Write "  <input name='arrKind_Check_" & ChannelDir & "' type='hidden' id='arrKind_Check_" & ChannelDir & "'>"
            Response.Write "  <input name='arrKind_Quintessence_" & ChannelDir & "' type='hidden' id='arrKind_Quintessence_" & ChannelDir & "'>"
            Response.Write "  <input name='arrKind_SetOnTop_" & ChannelDir & "' type='hidden' id='arrKind_SetOnTop_" & ChannelDir & "'>"
            Response.Write "  <input name='arrKind_Reply_" & ChannelDir & "' type='hidden' id='arrKind_Reply_" & ChannelDir & "'>"
            Response.Write "</td></tr></table>"
            Response.Write "<table id='OtherPurview_" & ChannelDir & "' width='100%' border='0' cellspacing='1' cellpadding='2' style='display:none'><tr><td>"
            'Response.Write "<b>更多权限：</b>"
            'Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='AD_" & ChannelDir & "'>广告管理"
            Response.Write "</td></tr></table>"
            Response.Write "</fieldset></td></tr>"
        ElseIf rsChannel("ModuleType") = 8 Then
            Response.Write "</td></tr></table>"
            Response.Write "<table id='OtherPurview_" & ChannelDir & "' width='100%' border='0' cellspacing='1' cellpadding='2' style='display:none'><tr><td>"
            Response.Write "<b>更多权限：</b>"
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Template_" & ChannelDir & "'>模板管理&nbsp;"
            Response.Write "</td></tr></table>"
            Response.Write "</fieldset></td></tr>"
        ElseIf rsChannel("ModuleType") = 7 Then
            Response.Write "<tr id='table_" & ChannelDir & "' style='display:none'><td width='50%'>"
            Response.Write "<iframe id='frm" & ChannelDir & "' height='200' width='100%' src='Admin_SetClassPurview.asp?ManageType=Admin&ChannelID=" & ChannelID & "'></iframe></td>"
            Response.Write "<td><strong><font color='#0000FF'>注：</font></strong>栏目权限采用继承制度，即在某一栏目拥有某项管理权限，则在此栏目的所有子栏目中都拥有这项管理权限，并可在子栏目中指定更多的管理权限。"
            Response.Write "  <input name='arrHouseClass_View_" & ChannelDir & "' type='hidden' id='arrHouseClass_View_" & ChannelDir & "'>"
            Response.Write "  <input name='arrHouseClass_Input_" & ChannelDir & "' type='hidden' id='arrHouseClass_Input_" & ChannelDir & "'>"
            Response.Write "  <input name='arrHouseClass_Check_" & ChannelDir & "' type='hidden' id='arrHouseClass_Check_" & ChannelDir & "'>"
            Response.Write "  <input name='arrHouseClass_Manage_" & ChannelDir & "' type='hidden' id='arrHouseClass_Manage_" & ChannelDir & "'>"
            Response.Write "</td></tr></table>"
            Response.Write "<table id='OtherPurview_" & ChannelDir & "' width='100%' border='0' cellspacing='1' cellpadding='2' style='display:none'><tr><td>"
            Response.Write "<b>更多权限：</b>"
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='ClassConfig_" & ChannelDir & "'>房产栏目配置管理&nbsp;"
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Area_" & ChannelDir & "'>房产区域管理&nbsp;"
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Template_" & ChannelDir & "'>模板管理&nbsp;"
            Response.Write "</td></tr></table>"
            Response.Write "</fieldset></td></tr>"
        ElseIf rsChannel("ModuleType") = 6 Then
            Response.Write "</td></tr></table>"
            Response.Write "<table id='OtherPurview_" & ChannelDir & "' width='100%' border='0' cellspacing='1' cellpadding='2' style='display:none'><tr><td>"
            Response.Write "<b>更多权限：</b>"
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Template_" & ChannelDir & "'>模板管理&nbsp;"
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Menu_" & ChannelDir & "'>顶部菜单&nbsp;"
            Response.Write "</td></tr></table>"
            
            Response.Write "<Table>"
            Response.Write "<tr id='table_" & ChannelDir & "' style='display:none'><td width='50%'>"
            Response.Write "<iframe id='frm" & ChannelDir & "' height='200' width='100%' src='Admin_SetClassPurview.asp?ManageType=Admin&ChannelID=" & ChannelID & "'></iframe></td>"
            Response.Write "<td><strong><font color='#0000FF'>注：</font></strong>栏目权限采用继承制度，即在某一栏目拥有某项管理权限，则在此栏目的所有子栏目中都拥有这项管理权限，并可在子栏目中指定更多的管理权限。"
            Response.Write "  <input name='arrClass_View_" & ChannelDir & "' type='hidden' id='arrClass_View_" & ChannelDir & "'>"
            Response.Write "  <input name='arrClass_Input_" & ChannelDir & "' type='hidden' id='arrClass_Input_" & ChannelDir & "'>"
            Response.Write "  <input name='arrClass_Check_" & ChannelDir & "' type='hidden' id='arrClass_Check_" & ChannelDir & "'>"
            Response.Write "  <input name='arrClass_Manage_" & ChannelDir & "' type='hidden' id='arrClass_Manage_" & ChannelDir & "'>"
            Response.Write "</td></tr></Table>"

            Response.Write "</fieldset></td></tr>"

        Else
            Response.Write "<tr id='table_" & ChannelDir & "' style='display:none'><td width='50%'>"
            Response.Write "<iframe id='frm" & ChannelDir & "' height='200' width='100%' src='Admin_SetClassPurview.asp?ManageType=Admin&ChannelID=" & ChannelID & "'></iframe></td>"
            Response.Write "<td><strong><font color='#0000FF'>注：</font></strong>栏目权限采用继承制度，即在某一栏目拥有某项管理权限，则在此栏目的所有子栏目中都拥有这项管理权限，并可在子栏目中指定更多的管理权限。"
            Response.Write "  <input name='arrClass_View_" & ChannelDir & "' type='hidden' id='arrClass_View_" & ChannelDir & "'>"
            Response.Write "  <input name='arrClass_Input_" & ChannelDir & "' type='hidden' id='arrClass_Input_" & ChannelDir & "'>"
            Response.Write "  <input name='arrClass_Check_" & ChannelDir & "' type='hidden' id='arrClass_Check_" & ChannelDir & "'>"
            Response.Write "  <input name='arrClass_Manage_" & ChannelDir & "' type='hidden' id='arrClass_Manage_" & ChannelDir & "'>"
            Response.Write "</td></tr></table>"
            Response.Write "<table id='OtherPurview_" & ChannelDir & "' width='100%' border='0' cellspacing='1' cellpadding='2' style='display:none'><tr><td>"
            Response.Write "<b>更多权限：</b>"
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Template_" & ChannelDir & "'>模板管理&nbsp;"
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='JsFile_" & ChannelDir & "'>JS文件管理&nbsp;"
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Menu_" & ChannelDir & "'>顶部菜单&nbsp;"
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Keyword_" & ChannelDir & "'>关键字管理&nbsp;"
            If rsChannel("ModuleType") = 5 Then
                Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Producer_" & ChannelDir & "'>厂商管理&nbsp;"
                Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Trademark_" & ChannelDir & "'>品牌管理&nbsp;"
            Else
                Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Author_" & ChannelDir & "'>作者管理&nbsp;"
                Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Copyfrom_" & ChannelDir & "'>来源管理&nbsp;"
            End If
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='XML_" & ChannelDir & "'>更新XML&nbsp;"
            Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='Field_" & ChannelDir & "'>自定义字段&nbsp;"
            'Response.Write "<input name='ChannelPurview_Others' type='checkbox' id='AdminPurview_Others' value='AD_" & ChannelDir & "'>广告管理"
            Response.Write "</td></tr></table>"
            Response.Write "</fieldset></td></tr>"
        End If
        rsChannel.MoveNext
    Loop
    rsChannel.Close
    Set rsChannel = Nothing
    
    
    Response.Write "   <tr><td><fieldset><legend>此管理员的其他网站管理权限：<input name='chkAll' type='checkbox' id='chkAll' value='Yes' onclick='SelectAll(this.form)'>选中所有权限</legend>"
    Response.Write "        <table width='100%' border='0' cellspacing='1' cellpadding='2'>"
    Response.Write "          <tr>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='ModifyPwd' checked>修改自己密码</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Channel'>网站频道管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Collection'>采集管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Message'>短消息管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='MailList'>邮件列表管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='AD'>网站广告管理</td>"
    Response.Write "          </tr>"
    Response.Write "          <tr>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='FriendSite'>友情链接管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Announce'>网站公告管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Vote'>网站调查管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Counter'>网站统计管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Skin'>网站风格管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Template0'>通用模板管理</td>"
    Response.Write "          </tr>"
    Response.Write "          <tr>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Label'>自定义标签管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Cache'>网站缓存管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='KeyLink'>站内链接管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Rtext'>字符过滤管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='UserGroup'>会员组管理</td>"
    Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Card'>充值卡管理</td>"
    Response.Write "          </tr>"
    Response.Write "          <tr>"
    If FoundInArr(AllModules, "Classroom", ",") Then
        Response.Write "            <td width='16%'><input name='AdminPurview_Others' type='checkbox' id='AdminPurview_Others' value='Equipment'>室场登记管理</td>"
    End If
    If FoundInArr(AllModules, "Sdms", ",") Then