www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > inc/admin/inc_admin_config.asp
<!-- #include file = "../inc_config.asp" --> <% '=================================================================== '= ASP FILENAME : /inc/admin/inc_admin_config.asp '= CREATED TIME : 2006-5-1 '= LAST MODIFIED: 2006-5-1 '= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com '= DESCRIPTION : 后台系统配置文件 '= Change Log: '=================================================================== '== admin session信息获取 Dim GBL_strAdminAccount : GBL_strAdminAccount = Trim(Session(GBL_strCookieURL & "SEN_AdminAccount")) Dim GBL_intAdminId : GBL_intAdminId = Trim(Session(GBL_strCookieURL & "SEN_AdminId")) If IsNumeric(GBL_intAdminId) Then GBL_intAdminId = CLng(GBL_intAdminId) Dim GBL_intAdminLevel : GBL_intAdminLevel = Trim(Session(GBL_strCookieURL & "SEN_AdminLevel")) '== 不需要做权限校验的页面 Dim GBL_strNoAuthPage GBL_strNoAuthPage = "result/admin_success.asp|result/admin_error.asp|admin/admin_index.asp|admin/admin_login.asp|admin/admin_logout.asp" '== 默认最高管理员帐号 Dim GBL_strDefaultAdminAccount : GBL_strDefaultAdminAccount = "admin" '== 默认分页数 Dim GBL_intMaxPerPage : GBL_intMaxPerPage = 10 GBL_intMaxPerPage = Application(GBL_strCookieURL & "APP_intAdminPerPage") '== 定义图片文件夹 Dim GBL_strImgDir : GBL_strImgDir = "images/" '== 用户签名图大小 Dim GBL_strUserFaceWidth : GBL_strUserFaceWidth = 130 Dim GBL_strUserFaceHeight : GBL_strUserFaceHeight = 90 '== 成功页面刷新时间 Dim TAG_intRefreshTime : TAG_intRefreshTime = 2 '== Now public images path define Dim GBL_strBoardFace : GBL_strBoardFace = "board/smileface/" Dim GBL_strImgAlbum : GBL_strImgAlbum = "album/upAlbum/" Dim GBL_intImgWidth2 : GBL_intImgWidth2 = 350 Const DEF_WEB_DarkColor = "#cccccc" Const DEF_WEB_LightDarkColor = "#666699" Const DEF_WEB_Color = "#e0e0e0" Const DEF_WEB_LightColor = "eeeeee" Const DEF_WEB_LightestColor = "#f7f7f7" Const DEF_WEB_TableHeadColor = "#EEEEF3" '== 错误处理页面 GBL_strErrPage = "result/admin_error.asp" '== 成功处理页面 GBL_strSuccPage = "result/admin_success.asp" '== 成功页面刷新时间 Dim GBL_intRefreshTime : GBL_intRefreshTime = 2 '== TAG 标签设定 Dim TAG_strSysVersion : TAG_strSysVersion = CONST_DEV_VER Dim TAG_strSiteName : TAG_strSiteName = Application(GBL_strCookieURL & "APP_strSiteName") Dim TAG_strPageName '== 页面构造后赋值 Dim TAG_strAdminAccount: TAG_strAdminAccount = GBL_strAdminAccount Dim TAG_strCopyRight : TAG_strCopyRight = "All Rights Reserved" Dim TAG_strAdminLastTime: TAG_strAdminLastTime = Session(GBL_strCookieURL & "SEN_AdminLastLoginTime") Dim TAG_intPerPage : TAG_intPerPage = GBL_intMaxPerPage Dim TAG_intPageNow : TAG_intPageNow = Request("intPageNow") '== 用户积分设置 Dim GBL_intLoginLevel : GBL_intLoginLevel = 2 Dim GBL_intBoardLevel : GBL_intBoardLevel = 5 Dim GBL_intAlbumLevel : GBL_intAlbumLevel = 15 Dim GBL_intReviewLevel : GBL_intReviewLevel = 5 Dim GBL_intTopicsLevel : GBL_intTopicsLevel = 15 Dim GBL_intReplyLevel : GBL_intReplyLevel = 5 '== 通用form样式设置 Dim GBL_cssFormTable : GBL_cssFormTable = "form_table" Dim GBL_cssFormTableSpacing : GBL_cssFormTableSpacing = "1" Dim GBL_cssFormTablePadding : GBL_cssFormTablePadding = "3" Dim GBL_cssFormTableAlign : GBL_cssFormTableAlign = "center" Dim GBL_cssColumnScale : GBL_cssColumnScale = "25%" Dim GBL_cssFormTitle : GBL_cssFormTitle = "form_head" Dim GBL_cssFormTdLeft : GBL_cssFormTdLeft = "label" Dim GBL_cssFormTdRight : GBL_cssFormTdRight = "" Dim GBL_cssFormTr : GBL_cssFormTr = "form_tr" Dim GBL_cssFormTd : GBL_cssFormTd = "form_td" Dim GBL_cssIptBtn : GBL_cssIptBtn = "text" Dim GBL_cssIptText : GBL_cssIptText = "text" Dim GBL_cssTextrea : GBL_cssTextrea = "text" Dim GBL_cssSelect : GBL_cssSelect = "text" Dim GBL_cssChkBox : GBL_cssChkBox = "text" Dim GBL_cssRadio : GBL_cssRadio = "form_radio" '== 通用list样式设置 Dim GBL_cssListTable : GBL_cssListTable = "list_table" Dim GBL_cssListTitleTr : GBL_cssListTitleTr = "list_title_tr" Dim GBL_cssListTitleTd : GBL_cssListTitleTd = "list_title_td" Dim GBL_cssListTr : GBL_cssListTr = "list_tr" Dim GBL_cssListTd : GBL_cssListTd = "list_td" Dim GBL_cssListTdChange : GBL_cssListTdChange = "list_td_change" %>