⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_index_left加问答插件.asp

📁 江西旅行网整站源码下载 希望对大家有用 经过测试 安全可用
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
                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

Dim Purview_OrderManage
PurviewPassed = False
Purview_OrderManage = False
arrPurview(0) = CheckPurview_Other(AdminPurview_Others, "Order_View")
arrPurview(1) = CheckPurview_Other(AdminPurview_Others, "Order_Confirm")
arrPurview(2) = CheckPurview_Other(AdminPurview_Others, "Order_Modify")
arrPurview(3) = CheckPurview_Other(AdminPurview_Others, "Order_Del")
arrPurview(4) = CheckPurview_Other(AdminPurview_Others, "Order_Payment")
arrPurview(5) = CheckPurview_Other(AdminPurview_Others, "Order_Invoice")
arrPurview(6) = CheckPurview_Other(AdminPurview_Others, "Order_Deliver")
arrPurview(7) = CheckPurview_Other(AdminPurview_Others, "Order_Download")
arrPurview(8) = CheckPurview_Other(AdminPurview_Others, "Order_SendCard")
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(18) = True Then
            Response.Write "          <tr height=20>" & vbCrLf
            Response.Write "            <td><a href='Admin_ShoppingCart.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
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -