admin_index_left加问答插件.asp

江西旅行网整站源码下载 希望对大家有用 经过测试 安全可用

    Response.Write "</table>" & vbCrLf
End If

If FoundInArr(AllModules, "CRM", ",") And CRM_Edition > 0 Then
    Dim PurviewPassed_Client, PurviewPassed_Service, PurviewPassed_Complain, PurviewPassed_Call
    PurviewPassed = False
    arrPurview(0) = CheckPurview_Other(AdminPurview_Others, "Client_View")
    arrPurview(1) = CheckPurview_Other(AdminPurview_Others, "Client_Add")
    arrPurview(2) = CheckPurview_Other(AdminPurview_Others, "Client_ModifyOwn")
    arrPurview(3) = CheckPurview_Other(AdminPurview_Others, "Client_ModifyAll")
    arrPurview(4) = CheckPurview_Other(AdminPurview_Others, "Client_Del")
    arrPurview(5) = CheckPurview_Other(AdminPurview_Others, "Service_View")
    arrPurview(6) = CheckPurview_Other(AdminPurview_Others, "Service_Add")
    arrPurview(7) = CheckPurview_Other(AdminPurview_Others, "Service_ModifyOwn")
    arrPurview(8) = CheckPurview_Other(AdminPurview_Others, "Service_ModifyAll")
    arrPurview(9) = CheckPurview_Other(AdminPurview_Others, "Service_Del")
    arrPurview(10) = CheckPurview_Other(AdminPurview_Others, "Complain_View")
    arrPurview(11) = CheckPurview_Other(AdminPurview_Others, "Complain_Add")
    arrPurview(12) = CheckPurview_Other(AdminPurview_Others, "Complain_ModifyOwn")
    arrPurview(13) = CheckPurview_Other(AdminPurview_Others, "Complain_ModifyAll")
    arrPurview(14) = CheckPurview_Other(AdminPurview_Others, "Complain_Del")
    arrPurview(15) = CheckPurview_Other(AdminPurview_Others, "Call_View")
    arrPurview(16) = CheckPurview_Other(AdminPurview_Others, "Call_Add")
    arrPurview(17) = CheckPurview_Other(AdminPurview_Others, "Call_ModifyOwn")
    arrPurview(18) = CheckPurview_Other(AdminPurview_Others, "Call_ModifyAll")
    arrPurview(19) = CheckPurview_Other(AdminPurview_Others, "Dictionary")
    For PurviewIndex = 0 To 4
        If arrPurview(PurviewIndex) = True Then
            PurviewPassed = True
            PurviewPassed_Client = True
            Exit For
        End If
    Next
    For PurviewIndex = 5 To 9
        If arrPurview(PurviewIndex) = True Then
            PurviewPassed = True
            PurviewPassed_Service = True
            Exit For
        End If
    Next
    For PurviewIndex = 10 To 14
        If arrPurview(PurviewIndex) = True Then
            PurviewPassed = True
            PurviewPassed_Complain = True
            Exit For
        End If
    Next
    For PurviewIndex = 15 To 18
        If arrPurview(PurviewIndex) = True Then
            PurviewPassed = True
            PurviewPassed_Call = True
            Exit For
        End If
    Next

    If AdminPurview = 1 Or PurviewPassed = True Or arrPurview(19) = True 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_02.gif' id=menuTitle204 onclick=""new Element.toggle('submenu204')"" style='cursor:hand;'><a href='Admin_Help_CRM.asp' target='main'><span class=glow>客户关系管理</span></a></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td style='display:none' align='right' id='submenu204'><div class=sec_menu style='width:165'>" & vbCrLf
        Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
        If AdminPurview = 1 Or PurviewPassed_Client = True Then
            Response.Write "          <tr>" & vbCrLf
            Response.Write "            <td height=20><a href=Admin_Client.asp target=main>客户管理</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
            Response.Write "          <tr>" & vbCrLf
            Response.Write "            <td height=20><a href=Admin_Contacter.asp target=main>联系人管理</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
        If AdminPurview = 1 Or PurviewPassed_Service = True Or PurviewPassed_Call = True Then
            Response.Write "          <tr>" & vbCrLf
            Response.Write "            <td height=20><a href=Admin_Service.asp target=main>服务管理</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
        If AdminPurview = 1 Or PurviewPassed_Complain = True Or PurviewPassed_Call = True Then
            Response.Write "          <tr>" & vbCrLf
            Response.Write "            <td height=20><a href='Admin_Complain.asp' target='main'>投诉管理</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
        If AdminPurview = 1 Or arrPurview(19) = True Then
            Response.Write "          <tr>" & vbCrLf
            Response.Write "            <td height=20><a href=Admin_Dictionary.asp target=main>数据字典管理</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
        Response.Write "        </table>" & vbCrLf
        Response.Write "      </div>" & vbCrLf
        Response.Write "        <div  style='width:167'>" & 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

If FoundInArr(AllModules, "Collection", ",") Then
    If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Collection") = True 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_05.gif' id=menuTitle210 onclick=""new Element.toggle('submenu210')"" style='cursor:hand;'><a href='Admin_Help_Collection.asp' target='main'><span class=glow>采集管理</span></a></td></tr><tr><td style='display:none' align='right' id='submenu210'><div class=sec_menu style='width:165'><table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_Collection.asp?Action=Main target=main>文章采集</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_CollectionManage.asp?Action=ItemManage target=main>项目管理</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_Filter.asp?Action=main target=main>过滤管理</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_CollectionHistory.asp?Action=main target=main>采集历史记录</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_CollectionManage.asp?Action=Import target=main>项目导入</a> | <a href=Admin_CollectionManage.asp?Action=Export target=main>项目导出</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_Timing.asp?Action=main target=main>定时设置</a> | <a href=Admin_Timing.asp?Action=DoMainTiming target='_blank'>启动定时</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_AreaCollection.asp?Action=Main target=main>区域采集管理</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "        </table>" & vbCrLf
        Response.Write "      </div>" & vbCrLf
        Response.Write "        <div  style='width:167'>" & 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

If AdminPurview = 1 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='MZExtend/Images/admin_left_50.gif' id=menuTitle888888 onclick=""new Element.toggle('submenu888888')"" style='cursor:hand;'><a href='Admin_Help_ask.asp' target='main'><span class=glow>问答插件管理</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu888888'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=../ask/admin/adminconfig.asp target=main>问答系统设置</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=../ask/admin/adminassort.asp target=main>分类管理</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=../ask/admin/admingao.asp target=main>发布公告</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=../ask/admin/admingaog.asp target=main>管理公告</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=../ask/admin/adminquestion.asp target=main>所有问题管理</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=../ask/admin/adminpinglun.asp target=main>所有评论管理</a></t?飴轉???螮?¤???????????