popedom.asp

①后台增加了基本设置功能

<%
Sub CheckManageUser(ManageID) 
   Dim Manage_Flag 
   Dim Manage_Array
   Dim Manage_ii
   IF Session("Name")="" Then Manage_Flag = 1
   IF Session("Issuper")="" Then Manage_Flag = 1
   If Manage_Flag = 1 Then 
      Response.Redirect "Sorry.asp"
      response.end
   Else
      If Session("Issuper") Then Exit Sub
	  If ManageID = 0 Then Exit Sub
      Manage_Array = split(Session("Module"),",")
	  For Manage_ii = 0 to Ubound(Manage_Array)
	    If cint(ManageID) = Cint(Manage_Array(Manage_ii)) Then Exit Sub
	  Next
	  Response.Redirect "Sorry.asp?msg=您没有此权限,不能使用此功能!"
      response.end
  End If
End Sub
'--------系统管理模块
Public Global_Manage_Admin
Public Global_Manage_AdminModify
Public Global_Manage_AdminAdd
Public Global_Manage_AdminDel
Public Global_Manage_Backup
Public Global_Manage_UploadFile
Global_Manage_Admin = 10
Global_Manage_AdminModify = 11
Global_Manage_AdminAdd = 12
Global_Manage_AdminDel = 13
Global_Manage_Backup = 14
Global_Manage_UploadFile = 15
'--------企业信息管理模块
Public Global_MainClassAdd
Public Global_MainClassModify
Public Global_MainAdd
Public Global_MainModify
Global_MainClassAdd = 20
Global_MainClassModify = 21
Global_MainAdd = 22
Global_MainModify = 23
'--------产品管理模块
Public Global_ProductClassAdd
Public Global_ProductClassModify
Public Global_ProductAdd
Public Global_ProductModify
Public Global_ProductDel
Public Global_ProductCheck
Global_ProductClassAdd = 30
Global_ProductClassModify = 31
Global_ProductAdd = 32
Global_ProductModify = 33
Global_ProductDel = 34
Global_ProductCheck = 35
'--------订单管理模块
Public Global_EshopManage
Public Global_EshopManageFlag
Public Global_EshopManageDel
Global_EshopManage = 40
Global_EshopManageFlag = 41
Global_EshopManageDel = 42
'--------会员管理模块
Public Global_User
Public Global_UserModify
Public Global_UserLock
Public Global_UserVip
Global_User = 50
Global_UserModify = 51
Global_UserLock = 52
Global_UserVip = 53
'--------新闻管理模块
Public Global_NewsClassAdd
Public Global_NewsClassModify
Public Global_NewsAdd
Public Global_NewsModify
Global_NewsClassAdd = 60
Global_NewsClassModify = 61
Global_NewsAdd = 62
Global_NewsModify = 63
'--------留言管理模块
Public Global_BookManage
Public Global_BookManageRe
Public Global_BookManageDel
Public Global_BookManageAdd
Global_BookManage = 70
Global_BookManageRe = 71
Global_BookManageDel = 72
Global_BookManageAdd = 73
'--------荣誉管理模块
Public Global_HonorClassAdd
Public Global_HonorClassModify
Public Global_HonorAdd
Public Global_HonorModify
Global_HonorClassAdd = 80
Global_HonorClassModify = 81
Global_HonorAdd = 82
Global_HonorModify = 83
'--------人才管理模块
Public Global_JobManageAdd
Public Global_JobManageModify
Public Global_JobManageBook
Public Global_JobsManage
Global_JobManageAdd = 90
Global_JobManageModify = 91
Global_JobManageBook = 92
Global_JobsManage = 93
'--------营销管理模块
Public Global_SaleManage
Public Global_SaleClassManage
Public Global_SaleClassAddSmall
Public Global_SaleClassModifySmall
Public Global_SaleAdd
Public Global_SaleModify
Public Global_SaleDel
Public Global_SaleCheck
Global_SaleManage = 100
Global_SaleClassManage = 101
Global_SaleClassAddSmall = 102
Global_SaleClassModifySmall = 103
Global_SaleAdd = 104
Global_SaleModify = 105
Global_SaleDel = 106
Global_SaleCheck = 107
'--------调查管理模块
Public Global_VoteManage
Public Global_VoteAdd
Public Global_VoteModify
Public Global_VoteDel
Global_VoteManage = 110
Global_VoteAdd = 111
Global_VoteModify = 112
Global_VoteDel = 113
'--------邮件管理模块
Public Global_Maildefault
Public Global_Sendmail
Public Global_Viewuser
Public Global_Adduser
Global_Maildefault = 120
Global_Sendmail = 121
Global_Viewuser = 122
Global_Adduser = 123
'--------链接管理模块
Public Global_LinkManage
Public Global_LinkAdd
Public Global_LinkDel
Global_LinkManage = 130
Global_LinkAdd = 131
Global_LinkDel = 132
%>