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

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="文昌阁社区"
DEF_BBS_HomeUrl = ""
DEF_SiteHomeUrl = "../index.asp"
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_BBS_SearchMode = 1
const DEF_BBS_TOPMinID = 99999999990000
const DEF_BBS_AnnouncePoints = 1
const DEF_BBS_PrizeAnnouncePoints = 3
const DEF_BBS_MakeGoodAnnouncePoints = 5
const DEF_BBS_MaxTopAnnounce = 9
const DEF_BBS_MaxAllTopAnnounce = 3
Dim DEF_BBS_DisplayTopicLength,DEF_BBS_ScreenWidth
DEF_BBS_DisplayTopicLength = 56
DEF_BBS_ScreenWidth = "99%"
const DEF_BBS_LeftTDWidth = "150"
const DEF_MasterCookies = "www_xgcity_com"
const DEF_SiteNameString = "孝感城市网"
const DEF_SupervisorUserName = "itfree,Devin,"
const DEF_MaxTextLength = 16384
Dim DEF_MaxListNum
DEF_MaxListNum = 24
Const DEF_TopicContentMaxListNum = 8
Const DEF_MaxJumpPageNum = 10
Const DEF_DisplayJumpPageNum = 4
const DEF_MaxBoardMastNum = 7
const DEF_EnableUserHidden = 1
const DEF_VOTE_MaxNum = 25
const DEF_MaxLoginTimes = 5
const DEF_RestSpaceTime = 1
const DEF_EnableUpload = 1
const DEF_EnableGFL = 0
const DEF_UserOnlineTimeOut = 3600
const DEF_faceMaxNum = 32
const DEF_AllDefineFace = 1
const DEF_AllFaceMaxWidth = 90
const DEF_BBS_EmailMode = 0
Const DEF_EnableAttestNumber = 2
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=/images/temp/banner17.gif width=468 height=60 border=0>"
Const DEF_AccessDatabase = "data/xgcity.mdb"
Const DEF_DefaultStyle = 0
Const DEF_EnableFlashUBB = 1
Const DEF_EnableImagesUBB = 1
Const DEF_AnnounceFontSize = "12px;"
Const DEF_EditAnnounceDelay = 900
Const DEF_DisplayOnlineUser = 3
Const DEF_EnableSpecialTopic = 1
Const DEF_UBBiconNumber = 14
Const DEF_EnableDelAnnounce = 0
const DEF_PointsName = "国币"
Const DEF_EnableMakeTopAnc = 1
Const DEF_EnableDatabaseCache = 1
Const DEF_WriteEventSpace = 1
Const DEF_EnableTreeView = 0
Const DEF_EditAnnounceExpires = 6912000
Const DEF_RepeatLoginTimeOut = 300
Const DEF_FSOString = "Scripting.FileSystemObject"
Dim DEF_Now
DEF_Now = now
%>
