inc_customer_config.asp

学习管理 校友录有关的系统 本人学习的结果 与大家共享

<!-- #include file = "../inc_config.asp" -->
<%
'===================================================================
'= ASP FILENAME	: /inc/inc_user_config.asp
'= CREATED TIME : 2006-4-17 11:10
'= LAST MODIFIED: 2006-4-17 11:10
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 用户系统配置文件
'= Change Log:
'===================================================================

'== 未登陆情况下用户访问权限
Dim GBL_strDefaultUserRole	

'== 登陆后用户访问权限
Dim GBL_strUserRole	


'== 用户session信息获取
Dim GBL_strUserRealName				: GBL_strUserRealName = Trim(Session(GBL_strCookieURL & "SEN_strUserRealName"))
Dim GBL_intUserId			: GBL_intUserId = Trim(Session(GBL_strCookieURL & "SEN_UserId"))
If IsNumeric(GBL_intUserId) Then 
	GBL_intUserId = CLng(GBL_intUserId)
Else
	GBL_intUserId = 0
End If

Dim GBL_strUserAccount		: GBL_strUserAccount = Trim(Session(GBL_strCookieURL & "SEN_strUserAccount"))
Dim GBL_strUserInfo			: GBL_strUserInfo = Trim(Session(GBL_strCookieURL & "SEN_strUserInfo"))
Dim GBL_strUserAuthen
If Trim(Session(GBL_strCookieURL & "SEN_strUserAuthen")) <> "" Then
	GBL_strUserAuthen = Cint(Trim(Session(GBL_strCookieURL & "SEN_strUserAuthen")))
End If
Dim GBL_strUserAccess			: GBL_strUserAccess = Session(GBL_strCookieURL & "SEN_strUserAccess")

'== 不需要做权限校验的页面
Dim GBL_strNoAuthPage			
GBL_strNoAuthPage = "result/success.asp|result/error.asp|user/user_cartoon_face.asp|user/user_login.asp|user/user_announce.asp"


'== 样式表/skin
Dim TAG_cssStyle : TAG_cssStyle = "style.css"
Dim TAG_cssForumStyle : TAG_cssForumStyle = "style0.css"

'== 用户签名图大小
Dim GBL_strUserFaceWidth : GBL_strUserFaceWidth = 130
Dim GBL_strUserFaceHeight: GBL_strUserFaceHeight = 90


'== 默认管理员帐号
Dim GBL_strDefaultAdminAccount : GBL_strDefaultAdminAccount = "admin"


'== 默认分页数
Dim GBL_intMaxPerPage : GBL_intMaxPerPage = 10
GBL_intMaxPerPage = Application(GBL_strCookieURL & "APP_intUserPerPage")

'== 定义图片文件夹
Dim GBL_strImgDir : GBL_strImgDir = "images/"

'== 成功页面刷新时间
Dim GBL_intRefreshTime : GBL_intRefreshTime = 2	

'== Now public images path define
Dim GBL_strBoardFace : GBL_strBoardFace = "board/smileface/"
Dim GBL_strImgLocal : GBL_strImgLocal = "images/"
Dim GBL_strImgForum : GBL_strImgForum = "images/forum/"
Dim GBL_strCartoonFacePath : GBL_strCartoonFacePath = "images/cartoonface/"
Dim GBL_strUserUpFace : GBL_strUserUpFace = "user/uploadFace/"
Dim GBL_intImgWidth2 : GBL_intImgWidth2  = 570


'== 非文明用语过滤
Const CTL_BAD_WORDS = True
Dim GBL_strBadWords : GBL_strBadWords = "操你|||我靠|||吗的|||妈的|||我日|||日你|||日他|||操他|||肏你妈|||fuck"

'== 用户访问控制
Const CTL_USER_ACCESS = True

'== 用户积分设置
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

'== TAG 标签设定
Dim TAG_strSysVersion  :  TAG_strSysVersion = CONST_DEV_VER

Dim TAG_strSiteName	   :  TAG_strSiteName = Application(GBL_strCookieURL & "APP_strSiteName")
Dim TAG_strEmail	   :  TAG_strEmail = Application(GBL_strCookieURL & "APP_strEmail")
Dim TAG_strSiteUrl	   :  TAG_strSiteUrl = Application(GBL_strCookieURL & "APP_strSiteUrl")
Dim TAG_strCopyRight   :  TAG_strCopyRight = Application(GBL_strCookieURL & "APP_strCopyRight")
Dim TAG_strRecord   :  TAG_strRecord = Application(GBL_strCookieURL & "APP_strRecord")

Dim TAG_intPerPage	   :  TAG_intPerPage = GBL_intMaxPerPage
Dim TAG_intPageNow	   :  TAG_intPageNow = Request("intPageNow")

Dim TAG_strPageName		  '== 页面构造后赋值
Dim TAG_strCustomerAccount:  TAG_strCustomerAccount = GBL_strUserAccount

'== 访问量
Dim GBL_strHomeViewBegin
Dim GBL_intHomeCount : GBL_intHomeCount = 1
Dim GBL_intHomeLastViewCount : GBL_intHomeLastViewCount = 0
Dim GBL_intHomeTodayViewCount : GBL_intHomeTodayViewCount = 0

'== 风格设置变量
Dim GBL_SiteHeadString,GBL_SiteBottomString,GBL_DefineImage,GBL_TableHeadString,GBL_TableBottomString,GBL_ShowBottomSure,GBL_TempletID,GBL_TempletFlag
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"
Dim DEF_WEB_DisplayTopicLength,DEF_WEB_ScreenWidth,DEF_WEB_LeftWidth
DEF_WEB_LeftWidth = "160"			'== 左部table宽度
DEF_WEB_ScreenWidth = "770"
Const DEF_WEB_LeftTDWidth = "150"
Dim DEF_StyleString,DEF_StyleStringNum
DEF_StyleString = Array("经典蓝色","第三元素","生命绿色","书香飘逸","城市边缘","苹果树下","网游天使","oAnetS","V2005")
DEF_StyleStringNum = Ubound(DEF_StyleString)
Const DEF_MaxTextLength = 16384		'== 最大文本长度
Dim DEF_MaxListNum
DEF_MaxListNum = 24
Const DEF_DefaultStyle = 4			'== 缺省风格
Dim GBL_PageStyle					'== 当前风格
'== the parameter for forum
Dim DEF_arrForumCate : DEF_arrForumCate = Array("深圳理想","似水年华","休闲娱乐","站务区")
Dim DEF_intForumCate : DEF_intForumCate = Ubound(DEF_arrForumCate,1)
'== subject
Dim DEF_FormSubject(40)

'== 短信设置
Dim GBL_intMaxPerSms : GBL_intMaxPerSms = 10			
Dim GBL_intSmsMaxSize : GBL_intSmsMaxSize = 10
Dim GBL_intSmsMaxNum : GBL_intSmsMaxNum =10


'== 错误处理页面
GBL_strErrPage = "result/error.asp"

'== 成功处理页面
GBL_strSuccPage = "result/success.asp"


'== 通用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			= "form_td_left"
Dim GBL_cssFormTdRight			: GBL_cssFormTdRight		= "form_td_right"
Dim	GBL_cssFormTr				: GBL_cssFormTr				= "form_tr"
Dim	GBL_cssFormTd				: GBL_cssFormTd				= "form_td"
Dim GBL_cssIptBtn				: GBL_cssIptBtn				= "form_checkbox"
Dim GBL_cssIptText				: GBL_cssIptText			= "form_checkbox"
Dim GBL_cssTextrea				: GBL_cssTextrea			= "form_checkbox"
Dim GBL_cssSelect				: GBL_cssSelect				= "form_checkbox"
Dim GBL_cssChkBox				: GBL_cssChkBox				= "form_checkbox"
Dim GBL_cssRadio				: GBL_cssRadio				= "form_checkbox"

'== 通用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"


'== 注册方式
Dim GBL_intUserRegMode : GBL_intUserRegMode = Application(GBL_strCookieURL & "APP_intUserReg")

'== CLASS_CONFIG.CONFIG_USER_SET Format:
Dim GBL_strCartoonMale : GBL_strCartoonMale = "c1004"
Dim GBL_strCartoonFeMale : GBL_strCartoonFeMale = "c1002"

'== 首页显示新注册用户数
Dim GBL_intNewUser : GBL_intNewUser = 5

'== 首页公告牌参数
Dim GBL_strBulletinScrollAmount : GBL_strBulletinScrollAmount = 1
Dim GBL_strBulletinScrollDelay : GBL_strBulletinScrollDelay = 60
Dim GBL_strBulletinDirection : GBL_strBulletinDirection = "up"

'== 首页显示活动数
Dim GBL_intMeetView : GBL_intMeetView = 6

'== 首页显示论坛新贴数
Dim GBL_intNewForum : GBL_intNewForum = 10

'== 首页显示论坛最新回帖数
Dim GBL_intNewReply : GBL_intNewReply = 8

'== 首页显示论坛热帖数
Dim GBL_intHotForum : GBL_intHotForum = 8

'== 可上传相片文件类型
Dim GBL_strAlbumFileType
GBL_strAlbumFileType = ".jpg.gif"

'== 可上传相片文件大小(K)
Dim GBL_intAlbumMaxSize
GBL_intAlbumMaxSize = Application(GBL_strCookieURL & "APP_intAlbumSize")

'== 可上传相片文件目录
Dim GBL_strImgAlbum
GBL_strImgAlbum = "album/upAlbum/"

'== 生日列表快慢
Dim GBL_intBirthSpeed : GBL_intBirthSpeed = 10

'== 网站公告
Dim GBL_strWebBoard : GBL_strWebBoard = Application(GBL_strCookieURL & "APP_strBoard")
Dim GBL_strWebReg : GBL_strWebReg = Application(GBL_strCookieURL & "APP_strReg")
%>