<%@ LANGUAGE=VBScript CodePage=936%>
<%Option Explicit
Response.Buffer = True

If isNumeric(application("SiteEnableFlagzoieiu")) = 0 Then application("SiteEnableFlagzoieiu") = 1
If application("SiteEnableFlagzoieiu") = 0 and application("SiteDisbleWhyszoieiu")<>"" and inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/manage/") = 0 Then
	Response.Write application("SiteDisbleWhyszoieiu")
	Response.End
End If

Dim DEF_BBS_HomeUrl,DEF_BBS_UploadPhotoUrl,DEF_SiteHomeUrl
const DEF_BBS_Name="交流区"
DEF_BBS_HomeUrl = ""
DEF_BBS_UploadPhotoUrl = "images/upload/"
DEF_SiteHomeUrl = ""
const DEF_BBS_DarkColor = "#cccccc"
const DEF_BBS_LightDarkColor = "#666699"
const DEF_BBS_Color = "#e0e0e0"
const DEF_BBS_LightColor = "#eeeeee"
const DEF_BBS_LightestColor = "#f7f7f7"
const DEF_BBS_TableHeadColor = "#EEEEF3"
const DEF_BBS_MaxLayer = 10
const DEF_UsedDataBase = 1
const DEF_BBS_SearchMode = 2
const DEF_BBS_TOPMinID = 99999999990000
const DEF_BBS_AnnouncePoints = 1
const DEF_BBS_DelAnnouncePoints = 6
const DEF_BBS_MakeGoodAnnouncePoints = 5
const DEF_BBS_MaxTopAnnounce = 8
const DEF_BBS_MaxAllTopAnnounce = 3
const DEF_BBS_DisplayTopicLength = 56
const DEF_BBS_ScreenWidth = "770"
const DEF_BBS_LeftTDWidth = "150"
const DEF_MasterSession = "yellowboard"
const DEF_MasterCookies = "yellowboard"
const DEF_SiteNameString = "LeadBBS论坛"
const DEF_SupervisorUserName = "Admin"
const DEF_MaxTextLength = 16384
Dim DEF_MaxListNum
DEF_MaxListNum = 25
Const DEF_TopicContentMaxListNum = 10
Const DEF_MaxJumpPageNum = 10
Const DEF_DisplayJumpPageNum = 5
const DEF_MaxBoardMastNum = 5
const DEF_EnableUserHidden = 1
const DEF_VOTE_MaxNum = 15
const DEF_ShortestUserName = 2
const DEF_MaxLoginTimes = 2
const DEF_RestSpaceTime = 10
const DEF_EnableUpload = 1
const DEF_EnableGFL = 0
const DEF_EnableDotNetUpload = 2
Dim  FiltrateBadWordString
FiltrateBadWordString = "你妈|fuck|奶奶的|傻B"
const DEF_UserOnlineTimeOut = 600
const DEF_faceMaxNum = 160
const DEF_AllDefineFace = 1
const DEF_AllFaceMaxWidth = 65
Dim DEF_UserLevelString,DEF_UserLevelNum,DEF_UserLevelPoints
DEF_UserLevelString = Array("新手上路","论坛游民","论坛游侠","职业侠客","大侠","骑士","圣骑士","精灵","精灵王","风云使者","光明使者","天使","大天使","精灵使","法师","大法师","法王","老法王","天神","天王","法老")
DEF_UserLevelPoints = Array(0,12,25,50,80,150,250,400,700,1000,1500,2500,5000,8000,12000,20000,30000,40000,50000,60000,99999)
DEF_UserLevelNum = Ubound(DEF_UserLevelString,1)
Dim DEF_UserOfficerString,DEF_UserOfficerNum
DEF_UserOfficerString = Array("普通会员","<b>贵宾</b>","<b>老玩家</b>","<b>网站成员</b>","<font color=ff0000><b>管理员</b></font>")
DEF_UserOfficerNum = Ubound(DEF_UserOfficerString,1)
const DEF_BBS_EmailMode = 0
const DEF_BBS_Version = "POWERED BY <a href=http://www.leadbbs.com/ target=_blank>LeadBBS</a> v2.25"
Const DEF_EnableAttestNumber = 0
Dim DEF_BoardStyleString,DEF_BoardStyleStringNum
DEF_BoardStyleString = Array("默认设置","咖啡色","红淡意浓","谈谈灰色","灰色永恒","紫色典雅","生命绿色","黑暗时代","清爽苹果","老湘社区")
DEF_BoardStyleStringNum = Ubound(DEF_BoardStyleString,1)
Const DEF_EnableUnderWrite = 1
Const DEF_EnableSession = 0
Const DEF_NeedOnlineTime = 0
Const DEF_EnableForbidIP = 0
Const DEF_TopAdString = "<a href=http://www.leadbbs.com/ target=_blank><img src=""http://www.leadbbs.com/images/temp/banner16.gif"" width=468 height=60 border=0></a>"
Const DEF_AccessDatabase = "DATA\dtxy.asp"
Const DEF_FileMaxBytes = 307200
Const DEF_FaceMaxBytes = 307200
Const DEF_DefaultStyle = 9
%>
