请问:我能不能在后台中不显示商城日常操作功能?-动易CMS教程
问题:想在后台中不显示商城日常操作功能?
解决方法:可以自己修改/Admin/Admin_Index_Left.asp 文件,不过先做好备份.删除这些代码
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
评论加载中....
- 昵称: 验证:







