admin_index_left.asp

来自「静宁成纪中学2006版 欢迎使用！」· ASP 代码 · 共 934 行 · 第 1/5 页

arrPurview(9) = CheckPurview_Other(AdminPurview_Others, "Order_End")
arrPurview(10) = CheckPurview_Other(AdminPurview_Others, "Order_Transfer")
arrPurview(11) = CheckPurview_Other(AdminPurview_Others, "Order_Print")
arrPurview(12) = CheckPurview_Other(AdminPurview_Others, "Order_Count")
arrPurview(13) = CheckPurview_Other(AdminPurview_Others, "Order_OrderItem")
arrPurview(14) = CheckPurview_Other(AdminPurview_Others, "Order_SaleCount")
arrPurview(15) = CheckPurview_Other(AdminPurview_Others, "Payment")
arrPurview(16) = CheckPurview_Other(AdminPurview_Others, "Bankroll")
arrPurview(17) = CheckPurview_Other(AdminPurview_Others, "Deliver")
arrPurview(18) = CheckPurview_Other(AdminPurview_Others, "Transfer")
arrPurview(19) = CheckPurview_Other(AdminPurview_Others, "PresentProject")
arrPurview(20) = CheckPurview_Other(AdminPurview_Others, "PaymentType")
arrPurview(21) = CheckPurview_Other(AdminPurview_Others, "DeliverType")
arrPurview(22) = CheckPurview_Other(AdminPurview_Others, "Bank")
arrPurview(23) = CheckPurview_Other(AdminPurview_Others, "Order_Refund")
For PurviewIndex = 0 To 12
    If arrPurview(PurviewIndex) = True Or arrPurview(23) = True Then
        PurviewPassed = True
        Purview_OrderManage = True
        Exit For
    End If
Next
For PurviewIndex = 13 To 22
    If arrPurview(PurviewIndex) = True Then
        PurviewPassed = True
        Exit For
    End If
Next
If AdminPurview = 1 Or PurviewPassed = 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_10.gif' id=menuTitle901 onclick=""new Element.toggle('submenu901')"" style='cursor:hand;'><a href='admin_help_Shop.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='submenu901'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    If ShowAdmin_Shop = True And eShop_Edition >= 0 Then
        If AdminPurview = 1 Or Purview_OrderManage = True Then
            Response.Write "          <tr height=20>" & vbCrLf
            Response.Write "            <td><a href='Admin_Order.asp?SearchType=1' target='main'>处理今天的订单</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
            Response.Write "          <tr height=20>" & vbCrLf
            Response.Write "            <td><a href='Admin_Order.asp' target='main'>处理所有订单</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
            Response.Write "          <tr height=10>" & vbCrLf
            Response.Write "            <td>====================</td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
        If AdminPurview = 1 Or arrPurview(13) = True Then
            Response.Write "          <tr height=20>" & vbCrLf
            Response.Write "            <td><a href='Admin_OrderItem.asp' target='main'>销售明细情况</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
        If AdminPurview = 1 Or arrPurview(14) = True Then
            Response.Write "          <tr height=20>" & vbCrLf
            Response.Write "            <td><a href='Admin_SaleCount.asp' target='main'>销售统计/排行</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
    End If
    If AdminPurview = 1 Or arrPurview(15) = True Then
        Response.Write "          <tr height=20>" & vbCrLf
        Response.Write "            <td><a href='Admin_Payment.asp' target='main'>在线支付记录管理</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
    End If
    If AdminPurview = 1 Or arrPurview(16) = True Then
        Response.Write "          <tr height=20>" & vbCrLf
        Response.Write "            <td><a href='Admin_Bankroll.asp' target='main'>资金明细查询</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
    End If
    If ShowAdmin_Shop = True And eShop_Edition >= 0 Then
        If AdminPurview = 1 Or arrPurview(5) = True Then
            Response.Write "          <tr height=20>" & vbCrLf
            Response.Write "            <td><a href='Admin_Invoice.asp' target='main'>开发票记录</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
        If AdminPurview = 1 Or arrPurview(17) = True Then
            Response.Write "          <tr height=20>" & vbCrLf
            Response.Write "            <td><a href='Admin_Deliver.asp' target='main'>发退货记录</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
        If AdminPurview = 1 Or arrPurview(18) = True Then
            Response.Write "          <tr height=20>" & vbCrLf
            Response.Write "            <td><a href='Admin_Transfer.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_PresentProject.asp' target='main'>促销方案管理</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
        If AdminPurview = 1 Or arrPurview(20) = True Then
            Response.Write "          <tr>" & vbCrLf
            Response.Write "            <td height=20><a href='Admin_PaymentType.asp' target='main'>付款方式管理</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
        If AdminPurview = 1 Or arrPurview(21) = True Then
            Response.Write "          <tr>" & vbCrLf
            Response.Write "            <td height=20><a href='Admin_DeliverType.asp' target='main'>送货方式管理</a></td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
        End If
    End If
    If AdminPurview = 1 Or arrPurview(22) = True Then
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href='Admin_Bank.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

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