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"
%>