www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > inc/customer/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 = "550" 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") %>