admin_index_left.asp

个人网站比较简短

                    If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Menu_" & ChannelDir) = True Then
                        Response.Write "<tr><td height=20><a href='Admin_RootClass_Menu.asp?ChannelID=" & ChannelID & "' target=main>顶部菜单设置</a> | <a href='Admin_RootClass_Menu.asp?Action=ShowCreate&ChannelID=" & ChannelID & "' target=main>生成</a></td></tr>" & vbCrLf
                    End If
                    If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Template_" & ChannelDir) = True Or CheckPurview_Other(AdminPurview_Others, "JsFile_" & ChannelDir) = True Then
                        If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Template_" & ChannelDir) = True Then
                            Response.Write "<tr><td height=20><a href='Admin_Template.asp?ChannelID=" & ChannelID & "' target=main>" & ChannelShortName & "模板页管理</a></td></tr>" & vbCrLf
                        End If
                        If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "JsFile_" & ChannelDir) = True And ObjInstalled_FSO = True) And (rsChannel("ModuleType") <> 6) Then
                            Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & "JS.asp?ChannelID=" & ChannelID & "' target=main>" & ChannelShortName & "JS文件管理</a></td></tr>" & vbCrLf
                        End If
                    End If
                    If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Keyword_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
                        Response.Write "<tr><td height=20><a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Keyword' target='main'>" & ChannelShortName & "关键字管理</a></td></tr>"
                    End If
                    If rsChannel("ModuleType") = 5 Then
                        If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Producer_" & ChannelDir) = True Then
                            Response.Write "<tr><td height=20><a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Producer' target='main'>厂商管理</a></td></tr>"
                        End If
                        If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Trademark_" & ChannelDir) = True Then
                            Response.Write "<tr><td height=20><a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Trademark' target='main'>品牌管理</a></td></tr>"
                        End If
                    Else
                        If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Author_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
                            Response.Write "<tr><td height=20><a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Author' target='main'>作者管理</a>"
                        End If
                        If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Copyfrom_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
                            Response.Write " | <a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=CopyFrom' target='main'>来源管理</a></td></tr>"
                        End If
                    End If
                    If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "XML_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
                        Response.Write "<tr><td height=20><a href='Admin_CreateXml.asp?Action=GreatNav&ChannelID=" & ChannelID & "' target=main>更新栏目XML数据</a></td></tr>" & vbCrLf
                    End If
                    If rsChannel("ModuleType") = 2 Then
                        Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Other' target=main>其他管理</a></td></tr>" & vbCrLf
                        Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=DownError' target=main>错误信息管理</a></td></tr>" & vbCrLf
                        Response.Write "<tr><td height=20><a href='Admin_DownServer.asp?ChannelID=" & ChannelID & "' target=main>镜像服务器管理</a></td></tr>" & vbCrLf
                    End If
                    If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Field_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
                        Response.Write "<tr><td height=20><a href='Admin_Field.asp?ChannelID=" & ChannelID & "' target=main>自定义字段管理</a></td></tr>" & vbCrLf
                    End If
                    If rsChannel("ModuleType") = 1 Then
                        If FoundInArr(rsChannel("arrEnabledTabs"), "Copyfee", ",") = True Then
                            Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&ManageType=PayMoney&PayStatus=False' target=main>稿费管理</a></td></tr>"
                        End If
                    End If
                End If
                Response.Write "</table></div><div  style='width:158'><table cellpadding=0 cellspacing=0 align=center width=130><tr><td height=4></td></tr></table></div></td></tr></table>" & vbCrLf
            End If
            If rsChannel("ModuleType") = 5 Then ShowAdmin_Shop = True
        End If
    End If
    rsChannel.MoveNext
Loop
rsChannel.Close
Set rsChannel = Nothing

If (SystemEdition = "IPS" Or SystemEdition = "All") And FoundInArr(AllModules, "House", ",") = True Then
    Dim rsHouse, rsHouseConfig
    Set rsHouse = Conn.Execute("Select ChannelID, ChannelDir, ChannelName, Disabled from PE_Channel Where ModuleType=7")
    If rsHouse("Disabled") = False Then
        ChannelDir = rsHouse("ChannelDir")
        AdminPurview_Channel = rsGetAdmin("AdminPurview_" & ChannelDir)
        If AdminPurview = 1 Or AdminPurview_Channel <= 3 Then
            Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
            Response.Write "  <tr>" & vbCrLf
            Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_7.gif' id=menuTitle502 onclick=""new Element.toggle('submenu502')"" style='cursor:hand;'><a href='Admin_Help_House.asp' target='main'><span>" & rsHouse("ChannelName") & "管理</span></a></td>" & vbCrLf
            Response.Write "  </tr>" & vbCrLf
            Response.Write "  <tr>" & vbCrLf
            Response.Write "    <td style='display:none' align='right' id='submenu502'><div class=sec_menu style='width:165'>" & vbCrLf
            Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
            Set rsHouseConfig = Conn.Execute("Select ClassID,ClassName from PE_HouseConfig")
            Do While Not rsHouseConfig.EOF
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_House.asp?ChannelID=" & rsHouse("ChannelID") & "&Action=Add&ClassID=" & rsHouseConfig("ClassID") & "' target='main'>发布" & rsHouseConfig("ClassName") & "信息</a> | <a href='Admin_House.asp?ChannelID=" & rsHouse("ChannelID") & "&Action=Manage&ClassID=" & rsHouseConfig("ClassID") & "' target='main'>管理</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
                rsHouseConfig.MoveNext
            Loop
            rsHouseConfig.Close
            Set rsHouseConfig = Nothing
            Response.Write "<tr><td height=10>=====================</td></tr>" & vbCrLf
            If AdminPurview = 1 Or arrPurview(2) = True Or CheckPurview_Other(AdminPurview_Others, "Area_" & ChannelDir) = True Then
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_House.asp?ChannelID=" & rsHouse("ChannelID") & "&Action=ManageArea' target='main'>区域管理</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
            End If
            If AdminPurview = 1 Or arrPurview(2) = True Or CheckPurview_Other(AdminPurview_Others, "ClassConfig_" & ChannelDir) = True Then
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_House.asp?ChannelID=" & rsHouse("ChannelID") & "&Action=ModifyConfig' target='main'>房产栏目配置</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
            End If
            Response.Write "<tr><td height=20><a href='Admin_UploadFile.asp?ChannelID=" & rsHouse("ChannelID") & "&UploadDir=UploadPhotos' target=main>上传图片管理</a> | <a href='Admin_UploadFile_Clear.asp?ChannelID=" & rsHouse("ChannelID") & "&Action=Clear&UploadDir=UploadPhotos' target=main>清理</a></td></tr>" & vbCrLf
            If AdminPurview = 1 Or arrPurview(2) = True Then
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_House.asp?ChannelID=" & rsHouse("ChannelID") & "&Action=Manage&ManageType=RecycleBin' target='main'>回收站管理</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
            End If
            If AdminPurview = 1 Or arrPurview(2) = True Or CheckPurview_Other(AdminPurview_Others, "Template_" & ChannelDir) = True Then
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_Template.asp?ChannelID=" & rsHouse("ChannelID") & "' target='main'>模板管理</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
            End If
            Response.Write "        </table>" & vbCrLf
            Response.Write "      </div>" & vbCrLf
            Response.Write "        <div  style='width:158'>" & vbCrLf
            Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
            Response.Write "            <tr>" & vbCrLf
            Response.Write "              <td height=5></td>" & vbCrLf
            Response.Write "            </tr>" & vbCrLf
            Response.Write "          </table>" & vbCrLf
            Response.Write "      </div></td>" & vbCrLf
            Response.Write "  </tr>" & vbCrLf
            Response.Write "</table>" & vbCrLf
        End If
    End If
    rsHouse.Close
    Set rsHouse = Nothing
End If
If (SystemEdition = "GPS" Or SystemEdition = "EPS" Or SystemEdition = "ECS" Or SystemEdition = "All") And FoundInArr(AllModules, "Job", ",") = True Then
    Dim rsJob
    Set rsJob = Conn.Execute("Select ChannelName, ChannelDir, Disabled from PE_Channel Where ModuleType=8")
    If rsJob("Disabled") = False Then
        ChannelDir = rsJob("ChannelDir")
        AdminPurview_Channel = rsGetAdmin("AdminPurview_" & ChannelDir)
        If AdminPurview = 1 Or AdminPurview_Channel <= 3 Then
            Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
            Response.Write "  <tr>" & vbCrLf
            Response.Write "    <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_8.gif' id=menuTitle607 onclick=""new Element.toggle('submenu607')"" style='cursor:hand;'><a href='Admin_Help_Job.asp' target='main'><span>" & rsJob("ChannelName") & "管理</span></a></td>" & vbCrLf
            Response.Write "  </tr>" & vbCrLf
            Response.Write "  <tr>" & vbCrLf
            Response.Write "    <td style='display:none' align='right' id='submenu607'><div class=sec_menu style='width:165'>" & vbCrLf
            Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
            If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_Job.asp?ChannelID=997&Action=Position' target='main'>职位信息管理</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
            End If
            If AdminPurview = 1 Or AdminPurview_Channel = 1 Or AdminPurview_Channel = 3 Then
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_Job.asp?ChannelID=997&Action=Resume' target='main'>人才信息管理</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
            End If
            Response.Write "          <tr height=10>" & vbCrLf
            Response.Write "            <td>====================</td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
            If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_Job.asp?ChannelID=997&Action=JobCategory' target='main'>工作类别管理</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_Job.asp?ChannelID=997&Action=WorkPlace' target='main'>工作地点管理</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_Job.asp?ChannelID=997&Action=SubCompany' target='main'>用人单位管理</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
            End If
            If AdminPurview = 1 Or AdminPurview_Channel = 1 Then
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_UploadFile.asp?ChannelID=997&UploadDir=UploadPhotos' target=main>上传图片管理</a> | <a href='Admin_UploadFile_Clear.asp?ChannelID=997&Action=Clear&UploadDir=UploadPhotos' target=main>清理</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
                Response.Write "          <tr>" & vbCrLf
                Response.Write "            <td height=20><a href='Admin_Template.asp?ChannelID=997' target='main'>招聘模板页管理</a></td>" & vbCrLf
                Response.Write "          </tr>" & vbCrLf
            End If
            Response.Write "        </table>" & vbCrLf
            Response.Write "      </div>" & vbCrLf
            Response.Write "        <div  style='width:158'>" & vbCrLf
            Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
            Response.Write "            <tr>" & vbCrLf
            Response.Write "              <td height=5></td>" & vbCrLf
            Response.Write "            </tr>" & vbCrLf
            Response.Write "          </table>" & vbCrLf
            Response.Write "      </div></td>" & vbCrLf
            Response.Write "  </tr>" & vbCrLf
            Response.Write "</table>" & vbCrLf
        End If
    End If
    rsJob.Close
    Set rsJob = Nothing
End If

If ShowAdmin_Shop = True Then
    Dim Purview_OrderManage
    PurviewPassed = False
    Purview_OrderManage = False
    arrPurview(0) = CheckPurview_Other(AdminPurview_Others, "Order_View")
    arrPurview(1) = CheckPurview_Other(AdminPurview_Others, "Order_Confirm")