<!-- #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")
%>