請問:我能不能在后臺中不顯示商城日常操作功能?_動易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
- MAC錯誤的解決方法
- 如何屏蔽動易后臺導(dǎo)航里的某個功能菜單?
- 動易.NET版本留言自動選定欄目方法
- 動易SiteFactoty整合Discuz!NT3.0
- 在任意位置獲取根節(jié)點(diǎn)ID標(biāo)簽
- 如何開啟SiteWeaver6.8的支持,反對功能
- Windows 2008安裝動易.NET系統(tǒng)之四----動易系統(tǒng)安裝篇
- Windows 2008安裝動易.NET系統(tǒng)之三----數(shù)據(jù)庫篇
- Windows 2008安裝動易.NET系統(tǒng)之二----IIS、目錄環(huán)境配置篇
- 數(shù)據(jù)庫修復(fù),SQL Server 2005內(nèi)部操作不一致的處理
- 如何安裝動易.net程序權(quán)限配置
- 為什么提示對Windows系統(tǒng)文件夾下的Temp目錄沒有訪問權(quán)限?
- 相關(guān)鏈接:
- 教程說明:
動易Cms教程-請問:我能不能在后臺中不顯示商城日常操作功能?。