回复 3# 的帖子
在FUNCTION中的c_system_base.asp文件中,
查找到
'*********************************************************
' 目的: 读取权限
' 备注: 权限最高为1 最低为5 不是则非法
' "Root"一定只能为1
' 权限配置方式可以变通
'*********************************************************
Function GetRights(strAction)
Select Case strAction
Case "Root"
GetRights=1
Case "login"
GetRights=5
Case "verify"
GetRights=5
Case "logout"
GetRights=5
Case "admin"
GetRights=4
Case "cmt"
GetRights=5
Case "tb"
GetRights=5
Case "vrs"
GetRights=5
Case "rss"
GetRights=5
Case "gettburl"
GetRights=5
Case "ArticleMng"
GetRights=3
Case "ArticleEdt"
GetRights=3
Case "ArticlePst"
GetRights=3
Case "ArticleDel"
GetRights=3
Case "ArticleBud"
GetRights=3
Case "CategoryMng"
GetRights=2
Case "CategoryEdt"
GetRights=2
Case "CategoryPst"
GetRights=2
Case "CategoryDel"
GetRights=2
Case "TagMng"
GetRights=1
Case "TagEdt"
GetRights=1
Case "TagPst"
GetRights=1
Case "TagDel"
GetRights=1
'Case "KeyWordMng"
' GetRights=1
'Case "KeyWordEdt"
' GetRights=1
'Case "KeyWordPst"
' GetRights=1
'Case "KeyWordDel"
' GetRights=1
Case "GuestBookMng"
GetRights=2
Case "CommentMng"
GetRights=4
Case "CommentDel"
GetRights=4
Case "CommentEdt"
GetRights=4
Case "CommentSav"
GetRights=4
Case "CommentRev"
GetRights=1
Case "CommentDelBatch"
GetRights=4
Case "TrackBackMng"
GetRights=3
Case "TrackBackDel"
GetRights=3
Case "TrackBackDelBatch"
GetRights=3
Case "TrackBackSnd"
GetRights=3
Case "UserMng"
GetRights=4
Case "UserEdt"
GetRights=4
Case "UserDel"
GetRights=1
Case "UserCrt"
GetRights=1
Case "BlogReBuild"
GetRights=3
Case "FileReBuild"
GetRights=1
Case "AskFileReBuild"
GetRights=1
Case "FileMng"
GetRights=2
Case "FileSnd"
GetRights=2
Case "FileUpload"
GetRights=2
Case "FileDel"
GetRights=2
Case "FileDelBatch"
GetRights=2
Case "Search"
GetRights=5
'Case "BlogMng"
' GetRights=4
Case "SettingMng"
GetRights=1
Case "SettingSav"
GetRights=1
Case "PlugInMng"
GetRights=4
Case "SiteInfo"
GetRights=4
Case "SiteFileMng"
GetRights=1
Case "SiteFileEdt"
GetRights=1
'Case "SiteFileFnd"
' GetRights=1
Case "SiteFilePst"
GetRights=1
Case "SiteFileDel"
GetRights=1
Case "Update"
GetRights=1
Case Else Call ShowError(1)
End Select
End Function
'*********************************************************