問(wèn)題：想在后臺(tái)中不顯示商城日常操作功能？

解決方法：可以自己修改/Admin/Admin_Index_Left.asp 文件,不過(guò)先做好備份.刪除這些代碼

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")
arrPurview(24) = CheckPurview_Other(AdminPurview_Others, "ShoppingCart")
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 align=center>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td 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

查看更多 動(dòng)易Cms教程  動(dòng)易Cms模板