<%@ 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 = "http://www.yclife.cn/"
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 = "770"
const DEF_BBS_LeftTDWidth = "150"
const DEF_MasterCookies = "www.yclife.cn"
const DEF_SiteNameString = "运城生活网"
const DEF_SupervisorUserName = ",admin,"
const DEF_MaxTextLength = 99999
Dim DEF_MaxListNum
DEF_MaxListNum = 24
Const DEF_TopicContentMaxListNum = 10
Const DEF_MaxJumpPageNum = 10
Const DEF_DisplayJumpPageNum = 4
const DEF_MaxBoardMastNum = 7
const DEF_EnableUserHidden = 0
const DEF_VOTE_MaxNum = 25
const DEF_MaxLoginTimes = 5
const DEF_RestSpaceTime = 5
const DEF_EnableUpload = 1
const DEF_EnableGFL = 0
const DEF_UserOnlineTimeOut = 1800
const DEF_faceMaxNum = 90
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 = ""
Const DEF_AccessDatabase = "Provider=SQLOLEDB;Data Source=www.yclife.cn;uid=0359;pwd=0359;database=0359"
Const DEF_DefaultStyle = 0
Const DEF_EnableFlashUBB = 1
Const DEF_EnableImagesUBB = 1
Const DEF_AnnounceFontSize = "12px;"
Const DEF_EditAnnounceDelay = 900
Const DEF_DisplayOnlineUser = 2
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 = 1
Const DEF_EditAnnounceExpires = 432000
Const DEF_RepeatLoginTimeOut = 300
Const DEF_FSOString = "Scripting.FileSystemObject"
Dim DEF_Now
DEF_Now = now
%>
