📄 menu.asp

📁 一个很好的asp cms管理系统

💻 ASP

字号:

<%
Option Explicit
'----------------------------------------------------------------------------------
'本页:
'	左菜单主体页面
'说明:
'
'----------------------------------------------------------------------------------
%>
<!--#include file="inc/Config.class.asp"-->
<!--#include file="inc/FunctionLib.class.asp"-->
<!--#include file="inc/Manager.class.asp"-->
<%
Dim Cfg, FLib, Admin
Set Cfg = New Config
Set FLib = New FunctionLib
Set Admin = New Manager

If Not Admin.Logined Then  
    Response.End
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/style.css" type="text/css">
<link rel="StyleSheet" href="lib/dtree/dtree.css" type="text/css" />
<script type="text/javascript" src="lib/dtree/dtree.js"></script>
</head>

<body leftmargin="3" topmargin="3">
<%
Dim MenuType
	MenuType = Request("MenuType")
If MenuType = "" Then
	MenuType = 1
End If

Select Case MenuType
	Case 1:
		If Not Admin.CheckPopedom("TSYS_GROUP1_VIEW") Then
			FLib.Alert "权限不足", "BACK", 0
			Response.End
		ENd If	
	Case 2:
		If Not Admin.CheckPopedom("TSYS_GROUP4_VIEW") Then
			FLib.Alert "权限不足", "BACK", 0
			Response.End
		ENd If	
	Case 3:
		If Not Admin.CheckPopedom("TSYS_GROUP2_VIEW") Then
			FLib.Alert "权限不足", "BACK", 0
			Response.End
		ENd If	
	Case 4:
		If Not Admin.CheckPopedom("TSYS_GROUP3_VIEW") Then
			FLib.Alert "权限不足", "BACK", 0
			Response.End
		ENd If		
End Select
%>
<script language="JavaScript" src="inc/menus/<%=MenuType%>.js"></script>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -