<%@ LANGUAGE=VBScript CodePage=936%>
<%Option Explicit
Response.Buffer = True
Const DEF_ManageDir = "Manage"

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

Dim DEF_BBS_HomeUrl,DEF_SiteHomeUrl
const DEF_BBS_Name="BBS·STATION"
DEF_BBS_HomeUrl = ""
DEF_SiteHomeUrl = "http://www.bjmm.cn"
const DEF_BBS_DarkColor = "#eeeeee"
const DEF_BBS_LightDarkColor = "#eeeeee"
const DEF_BBS_Color = "#eeeeee"
const DEF_BBS_LightColor = "#eeeeee"
const DEF_BBS_LightestColor = "#eeeeee"
const DEF_BBS_TableHeadColor = "#eeeeee"
const DEF_BBS_MaxLayer = 10
const DEF_BBS_SearchMode = 1
const DEF_BBS_TOPMinID = 99999999990000
const DEF_BBS_AnnouncePoints = 5
const DEF_BBS_PrizeAnnouncePoints = 100
const DEF_BBS_MakeGoodAnnouncePoints = 99
const DEF_BBS_MaxTopAnnounce = 9
const DEF_BBS_MaxAllTopAnnounce = 5
Dim DEF_BBS_DisplayTopicLength,DEF_BBS_ScreenWidth
DEF_BBS_DisplayTopicLength = 60
DEF_BBS_ScreenWidth = "78%"
const DEF_BBS_LeftTDWidth = "22%"
const DEF_MasterCookies = "nocolor"
const DEF_SiteNameString = "No Color"
const DEF_SupervisorUserName = ",龙子,"
const DEF_MaxTextLength = 16384
Dim DEF_MaxListNum
DEF_MaxListNum = 30
Const DEF_TopicContentMaxListNum = 8
Const DEF_MaxJumpPageNum = 10
Const DEF_DisplayJumpPageNum = 4
const DEF_MaxBoardMastNum = 3
const DEF_EnableUserHidden = 1
const DEF_VOTE_MaxNum = 30
const DEF_MaxLoginTimes = 5
const DEF_RestSpaceTime = 5
const DEF_EnableUpload = 1
const DEF_EnableGFL = 0
const DEF_UserOnlineTimeOut = 18000
const DEF_faceMaxNum = 203
const DEF_AllDefineFace = 1
const DEF_AllFaceMaxWidth = 100
const DEF_BBS_EmailMode = 2
Const DEF_EnableAttestNumber = 0
Dim DEF_BoardStyleString,DEF_BoardStyleStringNum
DEF_BoardStyleString = Array("默认设置","金秋十月","红淡意浓","淡淡灰色","第三元素","樱花浪漫时","生命绿色")
DEF_BoardStyleStringNum = Ubound(DEF_BoardStyleString,1)
Const DEF_EnableUnderWrite = 1
Const DEF_NeedOnlineTime = 0
Const DEF_EnableForbidIP = 0
Const DEF_TopAdString = "<img src=../logo.gif>"
Const DEF_AccessDatabase = "Data/tuibian_bbs.asp"
Const DEF_DefaultStyle = 0
Const DEF_EnableFlashUBB = 1
Const DEF_EnableImagesUBB = 1
Const DEF_AnnounceFontSize = "12px;"
Const DEF_EditAnnounceDelay = 900
Const DEF_DisplayOnlineUser = 1
Const DEF_EnableSpecialTopic = 1
Const DEF_UBBiconNumber = 20
Const DEF_EnableDelAnnounce = 1
const DEF_PointsName = "银子"
Const DEF_EnableMakeTopAnc = 1
Const DEF_EnableDatabaseCache = 1
Const DEF_WriteEventSpace = 1
Const DEF_EnableTreeView = 0
Const DEF_EditAnnounceExpires = 432000
Const DEF_RepeatLoginTimeOut = 300
Const DEF_FSOString = "Scripting.FileSystemObject"
Dim DEF_Now
DEF_Now = now
%>
