<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_popfun.asp -->
<!-- #include file=../inc/bbsmanage_Fun.asp -->
<%
DEF_BBS_HomeUrl = "../../"
Const MaxLinkNum = 100
Dim GBL_ID
initDatabase
GBL_CHK_TempStr = ""
GBL_ID = CheckSupervisorPass

Dim ReqN,WriteN
Dim Form_SavePoints
Dim Form_DEF_ManageDir
Dim Form_DEF_BBS_Name
Dim Form_DEF_BBS_DarkColor,Form_DEF_BBS_LightDarkColor,Form_DEF_BBS_Color,Form_DEF_BBS_LightColor,Form_DEF_BBS_LightestColor,Form_DEF_BBS_TableHeadColor
Dim Form_DEF_BBS_MaxLayer,Form_DEF_BBS_SearchMode

Dim Form_DEF_BBS_AnnouncePoints,Form_DEF_BBS_PrizeAnnouncePoints,Form_DEF_BBS_MakeGoodAnnouncePoints,Form_DEF_BBS_MaxTopAnnounce,Form_DEF_BBS_MaxAllTopAnnounce
Dim Form_DEF_BBS_DisplayTopicLength,Form_DEF_BBS_ScreenWidth,Form_DEF_BBS_LeftTDWidth
Dim Form_DEF_MasterCookies,Form_DEF_SiteNameString
Dim Form_DEF_SupervisorUserName,Form_DEF_MaxTextLength

Dim Form_DEF_MaxListNum,Form_DEF_TopicContentMaxListNum
Dim Form_DEF_MaxJumpPageNum,Form_DEF_DisplayJumpPageNum
Dim Form_DEF_MaxBoardMastNum
Dim Form_DEF_EnableUserHidden,Form_DEF_VOTE_MaxNum
Dim Form_DEF_MaxLoginTimes,Form_DEF_EnableUpload,Form_DEF_EnableGFL
Dim Form_DEF_UserOnlineTimeOut,Form_DEF_faceMaxNum
Dim Form_DEF_AllDefineFace,Form_DEF_AllFaceMaxWidth
Dim Form_DEF_BBS_EmailMode,Form_DEF_EnableAttestNumber
Dim Form_DEF_EnableUnderWrite,Form_DEF_NeedOnlineTime
Dim Form_DEF_EnableForbidIP,Form_DEF_TopAdString
Dim Form_DEF_RestSpaceTime,Form_DEF_AccessDatabase,Form_DEF_SiteHomeUrl
Dim Form_DEF_DefaultStyle
Dim Form_DEF_EnableFlashUBB,Form_DEF_EnableImagesUBB,Form_DEF_AnnounceFontSize,Form_DEF_EditAnnounceDelay
Dim Form_DEF_DisplayOnlineUser,Form_DEF_EnableSpecialTopic,Form_DEF_UBBiconNumber,Form_DEF_EnableDelAnnounce
Dim Form_DEF_PointsName,Form_DEF_EnableMakeTopAnc,Form_DEF_EnableDatabaseCache
Dim Form_DEF_WriteEventSpace,Form_DEF_EnableTreeView,Form_DEF_EditAnnounceExpires
Dim Form_DEF_RepeatLoginTimeOut,Form_DEF_FSOString,Form_DEF_Now

GetDefaultValue

SiteHead(DEF_SiteNameString & " - 管理员")
UserTopicTopInfo
DisplayUserNavigate("论坛参数设置")
If GBL_CHK_Flag=1 Then
	SiteLink
Else%>
	<table width=96%>
	<tr>
	<td>
	<%
	If Request("submitflag")="" Then
		Response.Write "<br><b>请先登录</b>"
	Else
		Response.Write "<br><p align=left><font color=ff0000 class=RedFont><b>" & GBL_CHK_TempStr & "</b></font>"
	End If
	DisplayLoginForm
	Response.Write "</p>"%>
	</td>
	</tr>
	</table>
<%End If
UserTopicBottomInfo
closeDataBase
SiteBottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString

Function SiteLink

ReqN = 0
WriteN = 0
%>
<form name="pollform3sdx" method="post" action="SiteSetup.asp">
<input type="hidden" name="SubmitFlag" value=yes>
<p>
	<b>
		<font color=gray class=GrayFont>论坛常用参数设置</font> <a href=UploadSetup.asp>上传参数设置</a>
		<a href=../User/UserSetup.asp>用户注册参数设置</a>
		<a href=UbbcodeSetup.asp>UBB编码参数设置</a>
		</b>
		<br>
		<font color=8888888 class=GrayFont>(下面为网站参数，请注意修改，错误的设置将会发生严重错误)<br><br>
		如果在设置后发现网站不能正常运行，请将LeadBBS最新版的BBSSetup.asp覆盖回去</font>
</p>
<%If Request.Form("SubmitFlag") <> "" Then
	CheckLinkValue
End If%>
<b><font color=ff0000 class=RedFont><%=GBL_CHK_TempStr%></font></b>
<p>
<%
If Request.Form("SubmitFlag") <> "" Then
	If GBL_CHK_TempStr <> "" Then
		DisplayDatabaseLink
	Else
		MakeDataBaseLinkFile
		Exit Function
	End If
Else
	DisplayDatabaseLink
End If
%>
<br>
<input type=submit name=提交 value=提交 class=fmbtn>
<input type=reset name=取消 value=取消 class=fmbtn>
</form>
<%

End Function

Function CheckLinkValue

	GetFormValue

End Function

Function DisplayDatabaseLink

		%>
		<table border=0 cellpadding=5 cellspacing=1 width="100%" bgcolor="<%=DEF_BBS_LightColor%>" class=TBBG1>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td width=50>论坛名称</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_Name" maxlength="30" size="30" value="<%=htmlencode(Form_DEF_BBS_Name)%>"><font color=gray>(最长255字)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td width=50>论坛奖罚<br>点数剩余</td>
			<td><input class=fminpt type="text" name="Form_SavePoints" maxlength="14" size="30" value="<%=htmlencode(Form_SavePoints)%>"><br><font color=gray>(所有版主以上人员对发帖者所进行的奖罚点数使用总值，不管奖罚一律减去指定点数，使用中自动减少，直到零或零下为止)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td width=50>管理目录</td>
			<td><input class=fminpt type="text" name="Form_DEF_ManageDir" maxlength="30" size="30" value="<%=htmlencode(Form_DEF_ManageDir)%>"><font color=gray>(论坛使用的目录，默认为manage，注意真实的管理目录与此保持一至)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightColor%> class=TBBG1>
			<td colspan=2 align=center>配色方案(为某些浏览器不支持样式表而设定)</td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>黑 暗 色</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_DarkColor" maxlength="255" size="30" value="<%=htmlencode(Form_DEF_BBS_DarkColor)%>"><font color=gray>(DEF_BBS_DarkColor)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>淡 黑 色</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_LightDarkColor" maxlength="255" size="30" value="<%=htmlencode(Form_DEF_BBS_LightDarkColor)%>"><font color=gray>(DEF_BBS_LightDarkColor)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>论坛颜色</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_Color" maxlength="255" size="30" value="<%=htmlencode(Form_DEF_BBS_Color)%>"><font color=gray>(DEF_BBS_Color)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>淡 颜 色</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_LightColor" maxlength="255" size="30" value="<%=htmlencode(Form_DEF_BBS_LightColor)%>"><font color=gray>(DEF_BBS_LightColor)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>最 淡 色</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_LightestColor" maxlength="255" size="30" value="<%=htmlencode(Form_DEF_BBS_LightestColor)%>"><font color=gray>(DEF_BBS_LightestColor，背景色)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>表格头色</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_TableHeadColor" maxlength="255" size="30" value="<%=htmlencode(Form_DEF_BBS_TableHeadColor)%>"><font color=gray>(DEF_BBS_TableHeadColor)</font></td>
		</tr>

		<tr bgcolor=<%=DEF_BBS_LightColor%> class=TBBG1>
			<td colspan=2 align=center>其它参数</td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>回复级数</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_MaxLayer" maxlength="255" size="10" value="<%=htmlencode(Form_DEF_BBS_MaxLayer)%>"><font color=gray>(树状浏览时显示的最大回复级数，大于的作为最大级数处理，起美化作用)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>数 据 库</td>
			<td>Access数据库</td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>搜索模式</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_BBS_SearchMode value=0<%If Form_DEF_BBS_SearchMode = 0 Then%> checked<%End If%>></td><td>不允许搜索</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_BBS_SearchMode value=1<%If Form_DEF_BBS_SearchMode = 1 Then%> checked<%End If%>></td><td>模糊查询</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_BBS_SearchMode value=2<%If Form_DEF_BBS_SearchMode = 2 Then%> checked<%End If%>></td><td>全文检索(仅MSSQL，请注意是否已经安装全文服务)</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>发帖奖励</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_AnnouncePoints" maxlength="4" size="10" value="<%=htmlencode(Form_DEF_BBS_AnnouncePoints)%>"><font color=gray>(发帖奖励积分点数)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>删除惩罚</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_PrizeAnnouncePoints" maxlength="4" size="10" value="<%=htmlencode(Form_DEF_BBS_PrizeAnnouncePoints)%>"><font color=gray>(最多允许奖励或惩罚积分，设为零表示禁止)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>精华奖励</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_MakeGoodAnnouncePoints" maxlength="4" size="10" value="<%=htmlencode(Form_DEF_BBS_MakeGoodAnnouncePoints)%>"><font color=gray>(精华帖子加积分点数)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>最多顶帖</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_MaxTopAnnounce" maxlength="4" size="10" value="<%=htmlencode(Form_DEF_BBS_MaxTopAnnounce)%>"><font color=gray>(每版面最多允许置顶的帖子数)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>最多总固</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_MaxAllTopAnnounce" maxlength="2" size="10" value="<%=htmlencode(Form_DEF_BBS_MaxAllTopAnnounce)%>"><font color=gray>(论坛允许的最多总固顶帖)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>主题长度</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_DisplayTopicLength" maxlength="3" size="10" value="<%=htmlencode(Form_DEF_BBS_DisplayTopicLength)%>"><font color=gray>(显示帖子主题的长度，比如论坛帖子列表，单位字节)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>论坛宽度</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_ScreenWidth" maxlength="10" size="10" value="<%=htmlencode(Form_DEF_BBS_ScreenWidth)%>"><font color=gray>(ＢＢＳ的宽度，可以是百分比)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>左栏宽度</td>
			<td><input class=fminpt type="text" name="Form_DEF_BBS_LeftTDWidth" maxlength="10" size="10" value="<%=htmlencode(Form_DEF_BBS_LeftTDWidth)%>"><font color=gray>(ＢＢＳ的左栏宽度，可以是百分比)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>Cookies </td>
			<td><input class=fminpt type="text" name="Form_DEF_MasterCookies" maxlength="20" size="20" value="<%=htmlencode(Form_DEF_MasterCookies)%>"><font color=gray>(安装Cookie主名称前辍)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>网站名称</td>
			<td><input class=fminpt type="text" name="Form_DEF_SiteNameString" maxlength="30" size="20" value="<%=htmlencode(Form_DEF_SiteNameString)%>"><font color=gray>(论坛网站的名称)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>管 理 员</td>
			<td><input class=fminpt type="text" name="Form_DEF_SupervisorUserName" maxlength="255" size="20" value="<%=htmlencode(Form_DEF_SupervisorUserName)%>"><font color=red class=RedFont>(请注意大小写，设置后请重新登录，多管理员逗号分隔)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>内容长度</td>
			<td><input class=fminpt type="text" name="Form_DEF_MaxTextLength" maxlength="5" size="10" value="<%=htmlencode(Form_DEF_MaxTextLength)%>"><font color=gray>(比如帖子内容、短消息长度，管理员允许发表此值四倍长内容，单位字节)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>显示记录</td>
			<td><input class=fminpt type="text" name="Form_DEF_MaxListNum" maxlength="3" size="10" value="<%=htmlencode(Form_DEF_MaxListNum)%>"><font color=gray>(默认分页列出的最大记录数)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>显示帖子</td>
			<td><input class=fminpt type="text" name="Form_DEF_TopicContentMaxListNum" maxlength="3" size="10" value="<%=htmlencode(Form_DEF_TopicContentMaxListNum)%>"><font color=gray>(查看主题每页显示帖子数，相关帖子显示数)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>跳转页数</td>
			<td><input class=fminpt type="text" name="Form_DEF_MaxJumpPageNum" maxlength="3" size="10" value="<%=htmlencode(Form_DEF_MaxJumpPageNum)%>"><font color=gray>(分页时隔不久最多允许直接跳转页数,不允许跳转设为0)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>显示跳转</td>
			<td><input class=fminpt type="text" name="Form_DEF_DisplayJumpPageNum" maxlength="3" size="10" value="<%=htmlencode(Form_DEF_DisplayJumpPageNum)%>"><font color=gray>(显示跳转页数，注意不要大于最多允许直接跳转页数)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>版主限制</td>
			<td><input class=fminpt type="text" name="Form_DEF_MaxBoardMastNum" maxlength="3" size="10" value="<%=htmlencode(Form_DEF_MaxBoardMastNum)%>"><font color=gray>(每版版主最多允许数目)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>隐身设置</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr><td><input class=fmchkbox type=radio name=Form_DEF_EnableUserHidden value=1<%If Form_DEF_EnableUserHidden = 1 Then%> checked<%End If%>></td><td>允许</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableUserHidden value=0<%If Form_DEF_EnableUserHidden = 0 Then%> checked<%End If%>></td><td>禁止</td><td><font color=gray>&nbsp; (是否允许在线用户隐身)</font></td></tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>投票项目</td>
			<td><input class=fminpt type="text" name="Form_DEF_VOTE_MaxNum" maxlength="3" size="10" value="<%=htmlencode(Form_DEF_VOTE_MaxNum)%>"><font color=gray>(最大投票项目)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>登录次数</td>
			<td><input class=fminpt type="text" name="Form_DEF_MaxLoginTimes" maxlength="6" size="10" value="<%=htmlencode(Form_DEF_MaxLoginTimes)%>"><font color=gray>(允许某一用户重复的错误登录次数)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>动作间隔</td>
			<td><input class=fminpt type="text" name="Form_DEF_RestSpaceTime" maxlength="6" size="10" value="<%=htmlencode(Form_DEF_RestSpaceTime)%>"><font color=gray>(进行某些动作需要的时间间隔，例如发帖，短信等，单位秒)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>上传权限</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_EnableUpload value=0<%If Form_DEF_EnableUpload = 0 Then%> checked<%End If%>></td><td>不可以上传</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableUpload value=1<%If Form_DEF_EnableUpload = 1 Then%> checked<%End If%>></td><td>全部人可以上传</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableUpload value=2<%If Form_DEF_EnableUpload = 2 Then%> checked<%End If%>></td><td>仅管理员可上传</td>
          </tr>
          <tr>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableUpload value=3<%If Form_DEF_EnableUpload = 3 Then%> checked<%End If%>></td><td>仅版主及以上可上传</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableUpload value=4<%If Form_DEF_EnableUpload = 4 Then%> checked<%End If%>></td><td>仅认证会员可上传</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableUpload value=5<%If Form_DEF_EnableUpload = 5 Then%> checked<%End If%>></td><td>仅认证会员及版主以上可上传</td>
          		</tr></table><font color=gray>这里仅指上传附件</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>GFL SDK</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_EnableGFL value=1<%If Form_DEF_EnableGFL = 1 Then%> checked<%End If%>></td><td>允许使用Gfl SDK组件</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableGFL value=0<%If Form_DEF_EnableGFL = 0 Then%> checked<%End If%>></td><td>禁止使用</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>在线超时</td>
			<td><input class=fminpt type="text" name="Form_DEF_UserOnlineTimeOut" maxlength="6" size="10" value="<%=htmlencode(Form_DEF_UserOnlineTimeOut)%>"><font color=gray>(在线用户在指定时间内不进行任何访问，则会离线，单位秒)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>头像个数</td>
			<td><input class=fminpt type="text" name="Form_DEF_faceMaxNum" maxlength="6" size="10" value="<%=htmlencode(Form_DEF_faceMaxNum)%>"><font color=gray>(论坛默认头像的个数)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>自定头像</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_AllDefineFace value=0<%If Form_DEF_AllDefineFace = 0 Then%> checked<%End If%>></td><td>禁止自定义头像</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_AllDefineFace value=1<%If Form_DEF_AllDefineFace = 1 Then%> checked<%End If%>></td><td>允许自定义头像</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>头像大小</td>
			<td><input class=fminpt type="text" name="Form_DEF_AllFaceMaxWidth" maxlength="3" size="10" value="<%=htmlencode(Form_DEF_AllFaceMaxWidth)%>"><font color=gray>(自定义头像的最大长度和宽度，单位像素)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>邮件设置</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_BBS_EmailMode value=0<%If Form_DEF_BBS_EmailMode = 0 Then%> checked<%End If%>></td><td>禁止邮件发送</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_BBS_EmailMode value=1<%If Form_DEF_BBS_EmailMode = 1 Then%> checked<%End If%>></td><td>使用EasyMail发送</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_BBS_EmailMode value=2<%If Form_DEF_BBS_EmailMode = 2 Then%> checked<%End If%>></td><td>使用Jmail发送</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_BBS_EmailMode value=3<%If Form_DEF_BBS_EmailMode = 3 Then%> checked<%End If%>></td><td>使用CDO发送</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>验 证 码</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<tr><td colspan=4><b>1.全部禁用</b></td></tr>
				<td width=5><input class=fmchkbox type=radio name=Form_DEF_EnableAttestNumber value=0<%If Form_DEF_EnableAttestNumber = 0 Then%> checked<%End If%>></td><td colspan=3>禁用</td>
				</tr>
				<tr><td colspan=4><b>2.仅启用密码论坛认证码功能</b></td></tr>
				<tr>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableAttestNumber value=1<%If Form_DEF_EnableAttestNumber = 1 Then%> checked<%End If%>></td><td>使用GFL(需要GflSDK支持)</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableAttestNumber value=2<%If Form_DEF_EnableAttestNumber = 2 Then%> checked<%End If%>></td><td>使用默认(BMP)</td>
          		</tr>
				<tr><td colspan=4><b>3.启用全部认证码功能(发帖，新用户注册，登录及发帖等部分)</b></td></tr>
          		<tr>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableAttestNumber value=3<%If Form_DEF_EnableAttestNumber = 3 Then%> checked<%End If%>></td><td>使用GFL(需要GflSDK支持)</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableAttestNumber value=4<%If Form_DEF_EnableAttestNumber = 4 Then%> checked<%End If%>></td><td>使用默认(BMP)</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>签名设置</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_EnableUnderWrite value=0<%If Form_DEF_EnableUnderWrite = 0 Then%> checked<%End If%>></td><td>禁止使用签名</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableUnderWrite value=1<%If Form_DEF_EnableUnderWrite = 1 Then%> checked<%End If%>></td><td>允许使用签名</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>在线时间</td>
			<td><input class=fminpt type="text" name="Form_DEF_NeedOnlineTime" maxlength="10" size="10" value="<%=htmlencode(Form_DEF_NeedOnlineTime)%>"><font color=gray>(行使某些权限所需要的总在线时间，比如发帖，设为0表示无限制，单位秒)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>ＩＰ屏蔽</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_EnableForbidIP value=0<%If Form_DEF_EnableForbidIP = 0 Then%> checked<%End If%>></td><td>关闭屏蔽</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableForbidIP value=1<%If Form_DEF_EnableForbidIP = 1 Then%> checked<%End If%>></td><td>启用屏蔽</td>
          		<td>&nbsp; (<font color=gray>如果没必要屏蔽ＩＰ地址，可以关闭来提高网站速度</font>)</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>顶部广告</td>
			<td><input class=fminpt type="text" name="Form_DEF_TopAdString" maxlength="4096" size="50" value="<%=htmlencode(Form_DEF_TopAdString)%>"><font color=gray>(使用HTML语法)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>数 据 库</td>
			<td><input class=fminpt type="text" name="Form_DEF_AccessDatabase" maxlength="255" size="20" value="<%=htmlencode(Form_DEF_AccessDatabase)%>"><font color=gray>(Access数据库的存放路径，相对于根目录，前面不用加/号)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>网站首页</td>
			<td><input class=fminpt type="text" name="Form_DEF_SiteHomeUrl" maxlength="255" size="20" value="<%=htmlencode(Form_DEF_SiteHomeUrl)%>"><font color=gray>(首页地址，请用绝对路径，不填为默认为论坛首页)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>默认风格</td>
			<td><select name=Form_DEF_DefaultStyle>
				<%Dim N	
				for N = 0 to DEF_BoardStyleStringNum
					Response.Write "<option value=" & N
					If N = DEF_DefaultStyle Then Response.Write " selected"
					Response.Write ">" & DEF_BoardStyleString(N) & "</option>" & VbCrLf
				Next%><font color=gray>(进入网站时默认的显示风格)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>多 媒 体</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_EnableFlashUBB value=0<%If Form_DEF_EnableFlashUBB = 0 Then%> checked<%End If%>></td><td>禁止</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableFlashUBB value=1<%If Form_DEF_EnableFlashUBB = 1 Then%> checked<%End If%>></td><td>允许</td>
          		<td>&nbsp; (<font color=gray>是否允许插入Flash，Real，mp3，asf等多媒体文件UBB标签</font>)</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>插入图片</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_EnableImagesUBB value=0<%If Form_DEF_EnableImagesUBB = 0 Then%> checked<%End If%>></td><td>禁止</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableImagesUBB value=1<%If Form_DEF_EnableImagesUBB = 1 Then%> checked<%End If%>></td><td>允许</td>
          		<td>&nbsp; (<font color=gray>是否允许在帖子签名中插入图片文件</font>)</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>内容字体</td>
			<td><input class=fminpt type="text" name="Form_DEF_AnnounceFontSize" maxlength="100" size="20" value="<%=htmlencode(Form_DEF_AnnounceFontSize)%>">
			<font color=gray>(帖子内容文字大小或其它属性(比如字体)，建议填写12px或14px，填写“14px;FONT-FAMILY:黑体;” 表示显示为14像素黑体字)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>编辑间隔</td>
			<td><input class=fminpt type="text" name="Form_DEF_EditAnnounceDelay" maxlength="8" size="10" value="<%=htmlencode(Form_DEF_EditAnnounceDelay)%>"><font color=gray>(用户在发表帖子某段时间内编辑，不印上编辑痕迹，单位秒)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>编辑到期</td>
			<td><input class=fminpt type="text" name="Form_DEF_EditAnnounceExpires" maxlength="8" size="10" value="<%=htmlencode(Form_DEF_EditAnnounceExpires)%>"><font color=gray>(用户在发表帖子某段时间后将禁止编辑，单位秒，设为0表示一直允许)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>在线会员</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_DisplayOnlineUser value=0<%If Form_DEF_DisplayOnlineUser = 0 Then%> checked<%End If%>></td><td>完全禁止</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_DisplayOnlineUser value=1<%If Form_DEF_DisplayOnlineUser = 1 Then%> checked<%End If%>></td><td>允许点击调用显示</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_DisplayOnlineUser value=2<%If Form_DEF_DisplayOnlineUser = 2 Then%> checked<%End If%>></td><td>直接显示在线人员</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_DisplayOnlineUser value=3<%If Form_DEF_DisplayOnlineUser = 3 Then%> checked<%End If%>></td><td>首页直接显示，版面调用显示</td>
          		</tr></table>
          		&nbsp;(<font color=gray>是否允许显示在线会员调用</font>)</td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>特殊帖子</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_EnableSpecialTopic value=0<%If Form_DEF_EnableSpecialTopic = 0 Then%> checked<%End If%>></td><td>禁止</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableSpecialTopic value=1<%If Form_DEF_EnableSpecialTopic = 1 Then%> checked<%End If%>></td><td>允许</td>
          		<td>&nbsp; (<font color=gray>是否允许发表回复可见帖和购买帖，禁止的话，则所有版面禁止发表(即使版面设成允许)</font>)</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>插入表情</td>
			<td><input class=fminpt type="text" name="Form_DEF_UBBiconNumber" maxlength="8" size="2" value="<%=htmlencode(Form_DEF_UBBiconNumber)%>"><font color=gray>(插入表情图片的个数，建议不要指定太多，设为0表示禁止使用插入表情)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>回 收 站</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_EnableDelAnnounce value=0<%If Form_DEF_EnableDelAnnounce = 0 Then%> checked<%End If%>></td><td>开启</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableDelAnnounce value=1<%If Form_DEF_EnableDelAnnounce = 1 Then%> checked<%End If%>></td><td>禁止</td>
          		<td>&nbsp; (<font color=gray>开启回收站，将不能直接删除主题帖子(回复帖仍然可以随意删除)，而是转移到回收站版面，注意要先创建回收站版块，版面编号是444。</font>)</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>积分名称</td>
			<td><input class=fminpt type="text" name="Form_DEF_PointsName" maxlength="4" size="4" value="<%=htmlencode(Form_DEF_PointsName)%>"><font color=gray>(自定义论坛积分名字，比如更改为＂论坛币＂等等)</font></td>
		</tr>
		
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>回复提帖</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_EnableMakeTopAnc value=0<%If Form_DEF_EnableMakeTopAnc = 0 Then%> checked<%End If%>></td><td>否</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableMakeTopAnc value=1<%If Form_DEF_EnableMakeTopAnc = 1 Then%> checked<%End If%>></td><td>是</td>
          		<td>&nbsp; (<font color=gray>回复或回帖时是否将主题提到版面最前位置</font>)</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>ＤＢ缓冲</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_EnableDatabaseCache value=0<%If Form_DEF_EnableDatabaseCache = 0 Then%> checked<%End If%>></td><td>否</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableDatabaseCache value=1<%If Form_DEF_EnableDatabaseCache = 1 Then%> checked<%End If%>></td><td>是</td>
          		<td>&nbsp; (<font color=gray>是否启用数据库连接缓存</font>)</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>写入间隔</td>
			<td><input class=fminpt type="text" name="Form_DEF_WriteEventSpace" maxlength="8" size="2" value="<%=htmlencode(Form_DEF_WriteEventSpace)%>"><font color=gray>(设置一些写入动作的间隔，比如修改帖，验证等，建议设成1-5秒之间，0表示无限制，设置正当的值可以有效防止恶的写入操作，从而达到保护服务器硬盘的目的)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>树型显示</td>
			<td><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_EnableTreeView value=0<%If Form_DEF_EnableTreeView = 0 Then%> checked<%End If%>></td><td>禁止使用树型</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_EnableTreeView value=1<%If Form_DEF_EnableTreeView = 1 Then%> checked<%End If%>></td><td>允许使用树型</td>
          		<td>&nbsp; (<font color=gray>禁止使用树型结构有诸多优势</font>)</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>重复登录</td>
			<td><input class=fminpt type="text" name="Form_DEF_RepeatLoginTimeOut" maxlength="8" size="8" value="<%=htmlencode(Form_DEF_RepeatLoginTimeOut)%>"><font color=gray>(此参数用来设置防止重复登录，一账号多人用的情况．某人登录后，其它人则无法再进行登录．设成0或大于在线超时，则无效，建议设置值为300-1800[5-30]分钟，单位秒)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>FSO组件</td>
			<td><input class=fminpt type="text" name="Form_DEF_FSOString" maxlength="50" size="25" value="<%=htmlencode(Form_DEF_FSOString)%>">
			<br><font color=gray>(自定义FSO内置组件字符串，默认为Scripting.FileSystemObject，设成空表示禁用FSO)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>时差设置</td>
			<td><input class=fminpt type="text" name="Form_DEF_Now" maxlength="50" size="25" value="<%=htmlencode(Form_DEF_Now)%>"><br><font color=gray>(单位：分钟．正数为服务器时间加上指定分钟，负数为服务器时间减去指定分钟)</font></td>
		</tr>
		</table>
		<%

End Function

Function GetDefaultValue

	Dim Rs
	Set Rs = Con.ExeCute("Select top 1 SavePoints from LeadBBS_SiteInfo")
	GBL_DBNum = GBL_DBNum + 1
	If Rs.Eof Then
		Form_SavePoints = 0
	Else
		Form_SavePoints = cCur(Rs(0))
	End If
	Form_DEF_BBS_Name = DEF_BBS_Name
	Form_DEF_ManageDir = DEF_ManageDir
	Form_DEF_BBS_DarkColor = DEF_BBS_DarkColor
	Form_DEF_BBS_LightDarkColor = DEF_BBS_LightDarkColor
	Form_DEF_BBS_Color = DEF_BBS_Color
	Form_DEF_BBS_LightColor = DEF_BBS_LightColor
	Form_DEF_BBS_LightestColor = DEF_BBS_LightestColor
	Form_DEF_BBS_TableHeadColor = DEF_BBS_TableHeadColor

	Form_DEF_BBS_MaxLayer = DEF_BBS_MaxLayer
	Form_DEF_BBS_SearchMode = DEF_BBS_SearchMode

	Form_DEF_BBS_AnnouncePoints = DEF_BBS_AnnouncePoints
	Form_DEF_BBS_PrizeAnnouncePoints = DEF_BBS_PrizeAnnouncePoints
	Form_DEF_BBS_MakeGoodAnnouncePoints = DEF_BBS_MakeGoodAnnouncePoints
	Form_DEF_BBS_MaxTopAnnounce = DEF_BBS_MaxTopAnnounce
	Form_DEF_BBS_MaxAllTopAnnounce = DEF_BBS_MaxAllTopAnnounce
	Form_DEF_BBS_DisplayTopicLength = DEF_BBS_DisplayTopicLength
	Form_DEF_BBS_ScreenWidth = DEF_BBS_ScreenWidth
	Form_DEF_BBS_LeftTDWidth = DEF_BBS_LeftTDWidth
	Form_DEF_MasterCookies = DEF_MasterCookies
	Form_DEF_SiteNameString = DEF_SiteNameString
	Form_DEF_SupervisorUserName = DEF_SupervisorUserName
	Form_DEF_MaxTextLength = DEF_MaxTextLength

	Form_DEF_MaxListNum = DEF_MaxListNum
	Form_DEF_TopicContentMaxListNum = DEF_TopicContentMaxListNum
	Form_DEF_MaxJumpPageNum = DEF_MaxJumpPageNum
	Form_DEF_DisplayJumpPageNum = DEF_DisplayJumpPageNum
	Form_DEF_MaxBoardMastNum = DEF_MaxBoardMastNum
	Form_DEF_EnableUserHidden = DEF_EnableUserHidden
	Form_DEF_VOTE_MaxNum = DEF_VOTE_MaxNum
	Form_DEF_MaxLoginTimes = DEF_MaxLoginTimes
	Form_DEF_EnableUpload = DEF_EnableUpload
	Form_DEF_EnableGFL = DEF_EnableGFL
	Form_DEF_UserOnlineTimeOut = DEF_UserOnlineTimeOut
	Form_DEF_faceMaxNum = DEF_faceMaxNum
	Form_DEF_AllDefineFace = DEF_AllDefineFace
	Form_DEF_AllFaceMaxWidth = DEF_AllFaceMaxWidth
	Form_DEF_BBS_EmailMode = DEF_BBS_EmailMode
	Form_DEF_EnableAttestNumber = DEF_EnableAttestNumber
	Form_DEF_EnableUnderWrite = DEF_EnableUnderWrite
	Form_DEF_NeedOnlineTime = DEF_NeedOnlineTime
	Form_DEF_EnableForbidIP = DEF_EnableForbidIP
	Form_DEF_TopAdString = DEF_TopAdString
	Form_DEF_RestSpaceTime = DEF_RestSpaceTime
	Form_DEF_AccessDatabase = DEF_AccessDatabase
	Form_DEF_SiteHomeUrl = DEF_SiteHomeUrl
	Form_DEF_DefaultStyle = DEF_DefaultStyle
	Form_DEF_EnableFlashUBB = DEF_EnableFlashUBB
	Form_DEF_EnableImagesUBB = DEF_EnableImagesUBB
	Form_DEF_AnnounceFontSize = DEF_AnnounceFontSize
	Form_DEF_EditAnnounceDelay = DEF_EditAnnounceDelay
	Form_DEF_DisplayOnlineUser = DEF_DisplayOnlineUser
	Form_DEF_EnableSpecialTopic = DEF_EnableSpecialTopic
	Form_DEF_UBBiconNumber = DEF_UBBiconNumber
	Form_DEF_EnableDelAnnounce = DEF_EnableDelAnnounce
	Form_DEF_PointsName = DEF_PointsName
	Form_DEF_EnableMakeTopAnc = DEF_EnableMakeTopAnc
	Form_DEF_EnableDatabaseCache = DEF_EnableDatabaseCache
	Form_DEF_WriteEventSpace = DEF_WriteEventSpace
	Form_DEF_EnableTreeView = DEF_EnableTreeView
	Form_DEF_EditAnnounceExpires = DEF_EditAnnounceExpires
	Form_DEF_RepeatLoginTimeOut = DEF_RepeatLoginTimeOut
	Form_DEF_FSOString = DEF_FSOString
	Form_DEF_Now = DateDiff("n",now,DEF_Now)

End Function

Function GetFormValue

	Form_DEF_ManageDir = Trim(Request.Form("Form_DEF_ManageDir"))
	Form_DEF_BBS_Name = Trim(Request.Form("Form_DEF_BBS_Name"))
	Form_DEF_BBS_DarkColor = Trim(Request.Form("Form_DEF_BBS_DarkColor"))
	Form_DEF_BBS_LightDarkColor = Trim(Request.Form("Form_DEF_BBS_LightDarkColor"))
	Form_DEF_BBS_Color = Trim(Request.Form("Form_DEF_BBS_Color"))
	Form_DEF_BBS_LightColor = Trim(Request.Form("Form_DEF_BBS_LightColor"))
	Form_DEF_BBS_LightestColor = Trim(Request.Form("Form_DEF_BBS_LightestColor"))
	Form_DEF_BBS_TableHeadColor = Trim(Request.Form("Form_DEF_BBS_TableHeadColor"))

	Form_DEF_BBS_MaxLayer = Trim(Request.Form("Form_DEF_BBS_MaxLayer"))
	Form_DEF_BBS_SearchMode = Trim(Request.Form("Form_DEF_BBS_SearchMode"))

	Form_DEF_BBS_AnnouncePoints = Trim(Request.Form("Form_DEF_BBS_AnnouncePoints"))
	Form_DEF_BBS_PrizeAnnouncePoints = Trim(Request.Form("Form_DEF_BBS_PrizeAnnouncePoints"))
	Form_DEF_BBS_MakeGoodAnnouncePoints = Trim(Request.Form("Form_DEF_BBS_MakeGoodAnnouncePoints"))
	Form_DEF_BBS_MaxTopAnnounce = Trim(Request.Form("Form_DEF_BBS_MaxTopAnnounce"))
	Form_DEF_BBS_MaxAllTopAnnounce = Trim(Request.Form("Form_DEF_BBS_MaxAllTopAnnounce"))
	Form_DEF_BBS_DisplayTopicLength = Trim(Request.Form("Form_DEF_BBS_DisplayTopicLength"))
	Form_DEF_BBS_ScreenWidth = Trim(Request.Form("Form_DEF_BBS_ScreenWidth"))
	Form_DEF_BBS_LeftTDWidth = Trim(Request.Form("Form_DEF_BBS_LeftTDWidth"))
	Form_DEF_MasterCookies = Trim(Request.Form("Form_DEF_MasterCookies"))
	Form_DEF_SiteNameString = Trim(Request.Form("Form_DEF_SiteNameString"))
	Form_DEF_SupervisorUserName = Trim(Request.Form("Form_DEF_SupervisorUserName"))
	Form_DEF_MaxTextLength = Trim(Request.Form("Form_DEF_MaxTextLength"))

	Form_DEF_MaxListNum = Trim(Request.Form("Form_DEF_MaxListNum"))
	Form_DEF_TopicContentMaxListNum = Trim(Request.Form("Form_DEF_TopicContentMaxListNum"))
	Form_DEF_MaxJumpPageNum = Trim(Request.Form("Form_DEF_MaxJumpPageNum"))
	Form_DEF_DisplayJumpPageNum = Trim(Request.Form("Form_DEF_DisplayJumpPageNum"))
	Form_DEF_MaxBoardMastNum = Trim(Request.Form("Form_DEF_MaxBoardMastNum"))
	Form_DEF_EnableUserHidden = Trim(Request.Form("Form_DEF_EnableUserHidden"))
	Form_DEF_VOTE_MaxNum = Trim(Request.Form("Form_DEF_VOTE_MaxNum"))
	Form_DEF_MaxLoginTimes = Trim(Request.Form("Form_DEF_MaxLoginTimes"))
	Form_DEF_EnableUpload = Trim(Request.Form("Form_DEF_EnableUpload"))
	Form_DEF_EnableGFL = Trim(Request.Form("Form_DEF_EnableGFL"))
	Form_DEF_UserOnlineTimeOut = Trim(Request.Form("Form_DEF_UserOnlineTimeOut"))
	Form_DEF_faceMaxNum = Trim(Request.Form("Form_DEF_faceMaxNum"))
	Form_DEF_AllDefineFace = Trim(Request.Form("Form_DEF_AllDefineFace"))
	Form_DEF_AllFaceMaxWidth = Trim(Request.Form("Form_DEF_AllFaceMaxWidth"))
	Form_DEF_BBS_EmailMode = Trim(Request.Form("Form_DEF_BBS_EmailMode"))
	Form_DEF_EnableAttestNumber = Trim(Request.Form("Form_DEF_EnableAttestNumber"))
	Form_DEF_EnableUnderWrite = Trim(Request.Form("Form_DEF_EnableUnderWrite"))
	Form_DEF_NeedOnlineTime = Trim(Request.Form("Form_DEF_NeedOnlineTime"))
	Form_DEF_EnableForbidIP = Trim(Request.Form("Form_DEF_EnableForbidIP"))
	Form_DEF_TopAdString = Trim(Request.Form("Form_DEF_TopAdString"))
	Form_DEF_RestSpaceTime = Trim(Request.Form("Form_DEF_RestSpaceTime"))
	Form_DEF_AccessDatabase = Trim(Request.Form("Form_DEF_AccessDatabase"))
	Form_DEF_SiteHomeUrl = Trim(Request.Form("Form_DEF_SiteHomeUrl"))
	Form_DEF_DefaultStyle = Trim(Request.Form("Form_DEF_DefaultStyle"))	
	Form_DEF_EnableFlashUBB = Trim(Request.Form("Form_DEF_EnableFlashUBB"))	
	Form_DEF_EnableImagesUBB = Trim(Request.Form("Form_DEF_EnableImagesUBB"))
	Form_DEF_AnnounceFontSize = Trim(Request.Form("Form_DEF_AnnounceFontSize"))
	Form_DEF_EditAnnounceDelay = Trim(Request.Form("Form_DEF_EditAnnounceDelay"))
	Form_DEF_DisplayOnlineUser = Trim(Request.Form("Form_DEF_DisplayOnlineUser"))
	Form_DEF_EnableSpecialTopic = Trim(Request.Form("Form_DEF_EnableSpecialTopic"))
	Form_DEF_UBBiconNumber = Trim(Request.Form("Form_DEF_UBBiconNumber"))
	Form_DEF_EnableDelAnnounce = Trim(Request.Form("Form_DEF_EnableDelAnnounce"))
	Form_DEF_PointsName = Trim(Request.Form("Form_DEF_PointsName"))
	Form_DEF_EnableMakeTopAnc = Trim(Request.Form("Form_DEF_EnableMakeTopAnc"))
	Form_DEF_EnableDatabaseCache = Trim(Request.Form("Form_DEF_EnableDatabaseCache"))
	Form_DEF_WriteEventSpace = Trim(Request.Form("Form_DEF_WriteEventSpace"))
	Form_DEF_EnableTreeView = Trim(Request.Form("Form_DEF_EnableTreeView"))
	Form_DEF_EditAnnounceExpires = Trim(Request.Form("Form_DEF_EditAnnounceExpires"))
	Form_DEF_RepeatLoginTimeOut = Trim(Request.Form("Form_DEF_RepeatLoginTimeOut"))
	Form_DEF_FSOString = Trim(Request.Form("Form_DEF_FSOString"))
	Form_DEF_Now = Trim(Request.Form("Form_DEF_Now"))
	Form_SavePoints = Left(Trim(Request.Form("Form_SavePoints")),14)

	If isNumeric(Form_SavePoints) = 0 Then Form_SavePoints = 0
	Form_SavePoints = Fix(cCur(Form_SavePoints))
	If Form_SavePoints < 0 Then Form_SavePoints = 0

	If inStr(Form_DEF_ManageDir,"""") Then GBL_CHK_TempStr = "管理目录不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_BBS_Name,"""") Then GBL_CHK_TempStr = "论坛名称不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_SiteHomeUrl,"""") Then GBL_CHK_TempStr = "网站首页不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_BBS_DarkColor,"""") Then GBL_CHK_TempStr = "黑 暗 色不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_BBS_LightDarkColor,"""") Then GBL_CHK_TempStr = "淡 黑 色不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_BBS_Color,"""") Then GBL_CHK_TempStr = "论坛颜色不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_BBS_LightColor,"""") Then GBL_CHK_TempStr = "淡 颜 色不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_BBS_LightestColor,"""") Then GBL_CHK_TempStr = "最 淡 色不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_BBS_TableHeadColor,"""") Then GBL_CHK_TempStr = "表格头色不能包含有引号<br>" & VbCrLf
	If isNumeric(Form_DEF_BBS_MaxLayer) = 0 Then GBL_CHK_TempStr = "回复级数必须为数字<br>" & VbCrLf

	If isNumeric(Form_DEF_BBS_SearchMode) = 0 Then GBL_CHK_TempStr = "搜索模式必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_BBS_AnnouncePoints) = 0 Then GBL_CHK_TempStr = "发帖奖励必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_BBS_PrizeAnnouncePoints) = 0 Then GBL_CHK_TempStr = "删除惩罚必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_BBS_MakeGoodAnnouncePoints) = 0 Then GBL_CHK_TempStr = "精华奖励必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_BBS_MaxTopAnnounce) = 0 Then GBL_CHK_TempStr = "最多顶帖必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_BBS_MaxAllTopAnnounce) = 0 Then GBL_CHK_TempStr = "最多总固必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_BBS_DisplayTopicLength) = 0 Then GBL_CHK_TempStr = "主题长度必须为数字<br>" & VbCrLf
	If inStr(Form_DEF_BBS_LeftTDWidth,"""") Then GBL_CHK_TempStr = "论坛宽度不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_MasterCookies,"""") Then GBL_CHK_TempStr = "Cookies不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_SiteNameString,"""") Then GBL_CHK_TempStr = "网站名称不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_SupervisorUserName,"""") Then GBL_CHK_TempStr = "管 理 员不能包含有引号<br>" & VbCrLf
	If isNumeric(Form_DEF_MaxTextLength) = 0 Then GBL_CHK_TempStr = "内容长度必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_MaxListNum) = 0 Then GBL_CHK_TempStr = "显示记录数量必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_TopicContentMaxListNum) = 0 Then GBL_CHK_TempStr = "显示帖子数量必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_MaxJumpPageNum) = 0 Then GBL_CHK_TempStr = "跳转页数数量必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_DisplayJumpPageNum) = 0 Then GBL_CHK_TempStr = "显示跳转数量必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_MaxBoardMastNum) = 0 Then GBL_CHK_TempStr = "版主限制数量必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_EnableUserHidden) = 0 Then GBL_CHK_TempStr = "隐身设置必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_VOTE_MaxNum) = 0 Then GBL_CHK_TempStr = "投票项目必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_MaxLoginTimes) = 0 Then GBL_CHK_TempStr = "登录次数必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_RestSpaceTime) = 0 Then GBL_CHK_TempStr = "动作间隔必须为数字<br>" & VbCrLf

	If isNumeric(Form_DEF_EnableUpload) = 0 Then GBL_CHK_TempStr = "上传权限必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_EnableGFL) = 0 Then GBL_CHK_TempStr = "GFL SDK是否允许必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_UserOnlineTimeOut) = 0 Then GBL_CHK_TempStr = "在线超时必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_faceMaxNum) = 0 Then GBL_CHK_TempStr = "头像个数必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_AllDefineFace) = 0 Then GBL_CHK_TempStr = "自定头像必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_AllFaceMaxWidth) = 0 Then GBL_CHK_TempStr = "头像大小必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_BBS_EmailMode) = 0 Then GBL_CHK_TempStr = "邮件设置必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_EnableAttestNumber) = 0 Then GBL_CHK_TempStr = "验 证 码显示方式必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_EnableUnderWrite) = 0 Then GBL_CHK_TempStr = "签名设置显示方式必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_NeedOnlineTime) = 0 Then GBL_CHK_TempStr = "在线时间必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_EnableForbidIP) = 0 Then GBL_CHK_TempStr = "ＩＰ屏蔽必须为数字<br>" & VbCrLf
	If inStr(Form_DEF_TopAdString,"""") Then GBL_CHK_TempStr = "顶部广告不能包含有引号<br>" & VbCrLf
	If inStr(Form_DEF_AccessDatabase,"""") Then GBL_CHK_TempStr = "数 据 库连接不能包含有引号<br>" & VbCrLf
	If isNumeric(Form_DEF_DefaultStyle) = 0 Then GBL_CHK_TempStr = "默认风格必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_EnableFlashUBB) = 0 Then GBL_CHK_TempStr = "多 媒 体必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_EnableImagesUBB) = 0 Then GBL_CHK_TempStr = "插入图片必须为数字<br>" & VbCrLf
	If inStr(Form_DEF_AnnounceFontSize,"""") Then GBL_CHK_TempStr = "内容字体不能包含有引号<br>" & VbCrLf
	If isNumeric(Form_DEF_EditAnnounceDelay) = 0 Then GBL_CHK_TempStr = "编辑间隔必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_DisplayOnlineUser) = 0 Then GBL_CHK_TempStr = "在线会员显示方式必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_EnableSpecialTopic) = 0 Then GBL_CHK_TempStr = "特殊帖子必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_UBBiconNumber) = 0 Then GBL_CHK_TempStr = "插入表情个数必须为数字<br>" & VbCrLf
	Form_DEF_UBBiconNumber = Fix(cCur(Form_DEF_UBBiconNumber))
	If Form_DEF_UBBiconNumber > 99 Then Form_DEF_UBBiconNumber = 99
	If isNumeric(Form_DEF_EnableDelAnnounce) = 0 Then GBL_CHK_TempStr = "回 收 站是否允许必须为数字<br>" & VbCrLf
	If inStr(Form_DEF_PointsName,"""") Then GBL_CHK_TempStr = "积分名称不能包含有引号<br>" & VbCrLf
	If isNumeric(Form_DEF_EnableMakeTopAnc) = 0 Then GBL_CHK_TempStr = "回复提帖必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_EnableDatabaseCache) = 0 Then GBL_CHK_TempStr = "ＤＢ缓冲必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_WriteEventSpace) = 0 Then GBL_CHK_TempStr = "写入间隔必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_EnableTreeView) = 0 Then GBL_CHK_TempStr = "树型显示必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_EditAnnounceExpires) = 0 Then GBL_CHK_TempStr = "编辑到期必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_RepeatLoginTimeOut) = 0 Then GBL_CHK_TempStr = "重复登录时间必须为数字<br>" & VbCrLf
	If inStr(Form_DEF_FSOString,"""") Then GBL_CHK_TempStr = "FSO组件名称不能包含有引号<br>" & VbCrLf
	If isNumeric(Form_DEF_Now) = 0 Then GBL_CHK_TempStr = "时间设置必须为数字<br>" & VbCrLf	

End Function

Function MakeDataBaseLinkFile

	Dim n,TempStr
	TempStr = ""
	TempStr = TempStr & chr(60) & "%@ LANGUAGE=VBScript CodePage=936%" & chr(62) & VbCrLf
	TempStr = TempStr & chr(60) & "%Option Explicit" & VbCrLf
	TempStr = TempStr & "Response.Buffer = True" & VbCrLf
	TempStr = TempStr & "Const DEF_ManageDir = """ & Form_DEF_ManageDir & """" & VbCrLf
	TempStr = TempStr & VbCrLf

	TempStr = TempStr & "If isNumeric(application(DEF_MasterCookies & " & chr(34) & "SiteEnableFlagzoieiu" & chr(34) & ")) = 0 Then" & VbCrLf
	TempStr = TempStr & "	Application.Lock" & VbCrLf
	TempStr = TempStr & "	application(DEF_MasterCookies & " & chr(34) & "SiteEnableFlagzoieiu" & chr(34) & ") = 1" & VbCrLf
	TempStr = TempStr & "	Application.UnLock" & VbCrLf
	TempStr = TempStr & "End If"  &VbCrLf

	TempStr = TempStr & "If application(DEF_MasterCookies & " & chr(34) & "SiteEnableFlagzoieiu" & chr(34) & ") = 0 and application(DEF_MasterCookies & " & chr(34) & "SiteDisbleWhyszoieiu" & chr(34) & ")<>" & chr(34) & chr(34) & " and inStr(Replace(Lcase(Request.ServerVariables(" & chr(34) & "URL" & chr(34) & "))," & chr(34) & "\" & chr(34) & "," & chr(34) & "/" & chr(34) & ")," & chr(34) & "/"" & DEF_ManageDir & ""/" & chr(34) & ") = 0 Then" & VbCrLf
	TempStr = TempStr & "	Response.Write application(DEF_MasterCookies & " & chr(34) & "SiteDisbleWhyszoieiu" & chr(34) & ")" & VbCrLf
	TempStr = TempStr & "	Response.End" & VbCrLf
	TempStr = TempStr & "End If" & VbCrLf
	TempStr = TempStr & VbCrLf
	TempStr = TempStr & "Dim DEF_BBS_HomeUrl,DEF_SiteHomeUrl" & VbCrLf
	TempStr = TempStr & "const DEF_BBS_Name=" & Chr(34) & Replace(Form_DEF_BBS_Name,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf

	TempStr = TempStr & "DEF_BBS_HomeUrl = " & Chr(34) & Chr(34) & VbCrLf
	TempStr = TempStr & "DEF_SiteHomeUrl = " & Chr(34) & Replace(Form_DEF_SiteHomeUrl,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf
	TempStr = TempStr & "const DEF_BBS_DarkColor = " & Chr(34) & Form_DEF_BBS_DarkColor & Chr(34) & VbCrLf
	TempStr = TempStr & "const DEF_BBS_LightDarkColor = " & Chr(34) & Form_DEF_BBS_LightDarkColor & Chr(34) & VbCrLf
	TempStr = TempStr & "const DEF_BBS_Color = " & Chr(34) & Form_DEF_BBS_Color & Chr(34) & VbCrLf
	TempStr = TempStr & "const DEF_BBS_LightColor = " & Chr(34) & Form_DEF_BBS_LightColor & Chr(34) & VbCrLf
	TempStr = TempStr & "const DEF_BBS_LightestColor = " & Chr(34) & Form_DEF_BBS_LightestColor & chr(34) & VbCrLf
	TempStr = TempStr & "const DEF_BBS_TableHeadColor = " & Chr(34) & Form_DEF_BBS_TableHeadColor & Chr(34) & VbCrLf
	TempStr = TempStr & "const DEF_BBS_MaxLayer = " & Form_DEF_BBS_MaxLayer & VbCrLf
	TempStr = TempStr & "const DEF_BBS_SearchMode = " & Form_DEF_BBS_SearchMode & VbCrLf

	TempStr = TempStr & "const DEF_BBS_TOPMinID = 99999999990000" & VbCrLf
	TempStr = TempStr & "const DEF_BBS_AnnouncePoints = " & Form_DEF_BBS_AnnouncePoints & VbCrLf
	TempStr = TempStr & "const DEF_BBS_PrizeAnnouncePoints = " & Form_DEF_BBS_PrizeAnnouncePoints & VbCrLf
	TempStr = TempStr & "const DEF_BBS_MakeGoodAnnouncePoints = " & Form_DEF_BBS_MakeGoodAnnouncePoints & VbCrLf
	TempStr = TempStr & "const DEF_BBS_MaxTopAnnounce = " & Form_DEF_BBS_MaxTopAnnounce & VbCrLf
	TempStr = TempStr & "const DEF_BBS_MaxAllTopAnnounce = " & Form_DEF_BBS_MaxAllTopAnnounce & VbCrLf

	TempStr = TempStr & "Dim DEF_BBS_DisplayTopicLength,DEF_BBS_ScreenWidth" & VbCrLf
	TempStr = TempStr & "DEF_BBS_DisplayTopicLength = " & Form_DEF_BBS_DisplayTopicLength & VbCrLf

	TempStr = TempStr & "DEF_BBS_ScreenWidth = " & Chr(34) & Replace(Form_DEF_BBS_ScreenWidth,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf
	TempStr = TempStr & "const DEF_BBS_LeftTDWidth = " & Chr(34) & Replace(Form_DEF_BBS_LeftTDWidth,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf

	TempStr = TempStr & "const DEF_MasterCookies = " & Chr(34) & Replace(Form_DEF_MasterCookies,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf
	TempStr = TempStr & "const DEF_SiteNameString = " & Chr(34) & Replace(Form_DEF_SiteNameString,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf
	TempStr = TempStr & "const DEF_SupervisorUserName = " & Chr(34) & Replace(Form_DEF_SupervisorUserName,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf
	TempStr = TempStr & "const DEF_MaxTextLength = " & Form_DEF_MaxTextLength & VbCrLf

	TempStr = TempStr & "Dim DEF_MaxListNum" & VbCrLf
	TempStr = TempStr & "DEF_MaxListNum = " & Form_DEF_MaxListNum & VbCrLf
	TempStr = TempStr & "Const DEF_TopicContentMaxListNum = " & Form_DEF_TopicContentMaxListNum & VbCrLf
	TempStr = TempStr & "Const DEF_MaxJumpPageNum = " & Form_DEF_MaxJumpPageNum & VbCrLf
	TempStr = TempStr & "Const DEF_DisplayJumpPageNum = " & Form_DEF_DisplayJumpPageNum & VbCrLf

	TempStr = TempStr & "const DEF_MaxBoardMastNum = " & Form_DEF_MaxBoardMastNum & VbCrLf

	TempStr = TempStr & "const DEF_EnableUserHidden = " & Form_DEF_EnableUserHidden & VbCrLf
	TempStr = TempStr & "const DEF_VOTE_MaxNum = " & Form_DEF_VOTE_MaxNum & VbCrLf

	TempStr = TempStr & "const DEF_MaxLoginTimes = " & Form_DEF_MaxLoginTimes & VbCrLf
	TempStr = TempStr & "const DEF_RestSpaceTime = " & Form_DEF_RestSpaceTime & VbCrLf
	TempStr = TempStr & "const DEF_EnableUpload = " & Form_DEF_EnableUpload & VbCrLf
	TempStr = TempStr & "const DEF_EnableGFL = " & Form_DEF_EnableGFL & VbCrLf
	TempStr = TempStr & "const DEF_UserOnlineTimeOut = " & Form_DEF_UserOnlineTimeOut & VbCrLf
	TempStr = TempStr & "const DEF_faceMaxNum = " & Form_DEF_faceMaxNum & VbCrLf
	TempStr = TempStr & "const DEF_AllDefineFace = " & Form_DEF_AllDefineFace & VbCrLf
	TempStr = TempStr & "const DEF_AllFaceMaxWidth = " & Form_DEF_AllFaceMaxWidth & VbCrLf

	TempStr = TempStr & "const DEF_BBS_EmailMode = " & Form_DEF_BBS_EmailMode & VbCrLf
	TempStr = TempStr & "Const DEF_EnableAttestNumber = " & Form_DEF_EnableAttestNumber & VbCrLf

	TempStr = TempStr & "Dim DEF_BoardStyleString,DEF_BoardStyleStringNum" & VbCrLf

	TempStr = TempStr & "DEF_BoardStyleString = Array("
	For n = 0 to DEF_BoardStyleStringNum
		If n = 0 Then
			TempStr = TempStr & """" & DEF_BoardStyleString(n) & """"
		Else
			TempStr = TempStr & ",""" & DEF_BoardStyleString(n) & """"
		End If
	Next
	TempStr = TempStr & ")" & VbCrLf
	TempStr = TempStr & "DEF_BoardStyleStringNum = Ubound(DEF_BoardStyleString,1)" & VbCrLf

	TempStr = TempStr & "Const DEF_EnableUnderWrite = " & Form_DEF_EnableUnderWrite & VbCrLf
	TempStr = TempStr & "Const DEF_NeedOnlineTime = " & Form_DEF_NeedOnlineTime & VbCrLf
	TempStr = TempStr & "Const DEF_EnableForbidIP = " & Form_DEF_EnableForbidIP & VbCrLf

	TempStr = TempStr & "Const DEF_TopAdString = " & Chr(34) & Replace(Form_DEF_TopAdString,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf
	TempStr = TempStr & "Const DEF_AccessDatabase = " & Chr(34) & Replace(Form_DEF_AccessDatabase,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf

	TempStr = TempStr & "Const DEF_DefaultStyle = " & Form_DEF_DefaultStyle & VbCrLf
	TempStr = TempStr & "Const DEF_EnableFlashUBB = " & Form_DEF_EnableFlashUBB & VbCrLf
	TempStr = TempStr & "Const DEF_EnableImagesUBB = " & Form_DEF_EnableImagesUBB & VbCrLf
	TempStr = TempStr & "Const DEF_AnnounceFontSize = " & Chr(34) & Replace(Form_DEF_AnnounceFontSize,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf
	TempStr = TempStr & "Const DEF_EditAnnounceDelay = " & Form_DEF_EditAnnounceDelay & VbCrLf
	TempStr = TempStr & "Const DEF_DisplayOnlineUser = " & Form_DEF_DisplayOnlineUser & VbCrLf
	TempStr = TempStr & "Const DEF_EnableSpecialTopic = " & Form_DEF_EnableSpecialTopic & VbCrLf
	TempStr = TempStr & "Const DEF_UBBiconNumber = " & Form_DEF_UBBiconNumber & VbCrLf
	TempStr = TempStr & "Const DEF_EnableDelAnnounce = " & Form_DEF_EnableDelAnnounce & VbCrLf
	TempStr = TempStr & "const DEF_PointsName = " & Chr(34) & Replace(Form_DEF_PointsName,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf
	TempStr = TempStr & "Const DEF_EnableMakeTopAnc = " & Form_DEF_EnableMakeTopAnc & VbCrLf
	TempStr = TempStr & "Const DEF_EnableDatabaseCache = " & Form_DEF_EnableDatabaseCache & VbCrLf
	TempStr = TempStr & "Const DEF_WriteEventSpace = " & Form_DEF_WriteEventSpace & VbCrLf
	TempStr = TempStr & "Const DEF_EnableTreeView = " & Form_DEF_EnableTreeView & VbCrLf
	TempStr = TempStr & "Const DEF_EditAnnounceExpires = " & Form_DEF_EditAnnounceExpires & VbCrLf
	TempStr = TempStr & "Const DEF_RepeatLoginTimeOut = " & Form_DEF_RepeatLoginTimeOut & VbCrLf
	TempStr = TempStr & "Const DEF_FSOString = " & Chr(34) & Replace(Form_DEF_FSOString,Chr(34),Chr(34) & Chr(34)) & Chr(34) & VbCrLf
	TempStr = TempStr & "Dim DEF_Now" & VbCrLf
	If Form_DEF_Now = 0 Then
		TempStr = TempStr & "DEF_Now = now" & VbCrLf
	Else
		TempStr = TempStr & "DEF_Now = DateAdd(""n""," & Form_DEF_Now & ",now)" & VbCrLf
	End If

	TempStr = TempStr & "%" & chr(62) & VbCrLf

	ADODB_SaveToFile TempStr,"../../inc/BBSSetup.asp"
	If GBL_CHK_TempStr = "" Then
		Response.Write "<br><font color=Green class=GreenFont>2.成功完成设置！</font>"
	Else
		%><%=GBL_CHK_TempStr%><br>服务器不支持在线写入文件功能，请使用FTP等功能，将<font color=Red Class=RedFont>inc/BBSSetup.asp</font>文件替换成框中内容(注意备份)<p>
		<textarea name="fileContent" cols="80" rows="30" class=fmtxtra><%=Server.htmlencode(TempStr)%></textarea><%
		GBL_CHK_TempStr = ""
	End If
	Con.ExeCute("Update LeadBBS_SiteInfo Set SavePoints=" & Form_SavePoints)

End Function%>