<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/User_setup.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_DEF_UserEnableUserTitle,Form_DEF_UserUserTitleNeedLevel,Form_LMT_UserNameEnableEnglishWords
Dim Form_LMT_UserNameEnableChineseChar,Form_LMT_UserNameEnableChineseWords
Dim Form_DEF_User_RegPoints,Form_LMT_EnableRegNewUsers,Form_DEF_ShortestUserName,Form_DEF_RegNewUserTotalRestTime
Dim Form_DEF_UserNewRegAttestMode,Form_DEF_UserActivationExpiresDay,Form_DEF_User_GetPassMode
Dim Form_DEF_UserLevelPoints,Form_DEF_UserLevelString,Form_DEF_UserOfficerString
Redim Form_DEF_UserLevelPoints(DEF_UserLevelNum),Form_DEF_UserLevelString(DEF_UserLevelNum),Form_DEF_UserOfficerString(DEF_UserOfficerNum)
Dim Form_DEF_FiltrateUserNameString

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="UserSetup.asp">
<input type="hidden" name="SubmitFlag" value=yes>
<p>
	<b>
		<a href=../SiteManage/SiteSetup.asp>论坛常用参数设置</a> <a href=../SiteManage/UploadSetup.asp>上传参数设置</a>
		<font color=gray class=GrayFont>用户注册参数设置</font>
		<a href=../SiteManage/UbbcodeSetup.asp>UBB编码参数设置</a>
		</b>
		<br><font color=8888888 class=GrayFont>(下面是您网站的用户注册参数，错误的设置将会发生严重错误)<br><br>
		如果在设置后发现网站不能正常运行，请将LeadBBS最新版的User_Setup.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

	Dim N
		%>
		<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><table border=0 cellpadding=0 cellspacing=0><tr>
				<td><input class=fmchkbox type=radio name=Form_DEF_UserEnableUserTitle value=0<%If Form_DEF_UserEnableUserTitle = 0 Then%> checked<%End If%>></td><td>禁止</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_UserEnableUserTitle value=1<%If Form_DEF_UserEnableUserTitle = 1 Then%> checked<%End If%>></td><td>允许 (<font color=gray Class=GrayFont>是否允许用户自定义头衔</font>)</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>头衔等级</td>
			<td>
				<select name=Form_DEF_UserUserTitleNeedLevel><%
				For N = 0 to DEF_UserLevelNum
					If N = Form_DEF_UserUserTitleNeedLevel Then
						Response.write "				<option value=" & N & " selected>" & N & "." & DEF_UserLevelString(N) & "</option>" & VbCrLf
					Else
						Response.write "				<option value=" & N & ">" & N & "." & DEF_UserLevelString(N) & "</option>" & VbCrLf
					End If
				Next%>(<font color=gray Class=GrayFont>用户自定义头衔所需要的等级</font>)
				</select> 如允许自定义头衔，请指定自定义头衔所要求达到的等级</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_LMT_UserNameEnableEnglishWords value=0<%If Form_LMT_UserNameEnableEnglishWords = 0 Then%> checked<%End If%>></td><td>禁止使用西文字符(字母数字)</td>
          		<td><input class=fmchkbox type=radio name=Form_LMT_UserNameEnableEnglishWords value=1<%If Form_LMT_UserNameEnableEnglishWords = 1 Then%> checked<%End If%>></td><td>允许使用西文字符(字母数字)</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_LMT_UserNameEnableChineseChar value=0<%If Form_LMT_UserNameEnableChineseChar = 0 Then%> checked<%End If%>></td><td>禁止使用中文符号(标点,日文等字符)</td>
          		<td><input class=fmchkbox type=radio name=Form_LMT_UserNameEnableChineseChar value=1<%If Form_LMT_UserNameEnableChineseChar = 1 Then%> checked<%End If%>></td><td>允许使用中文符号(标点,日文等字符)</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_LMT_UserNameEnableChineseWords value=0<%If Form_LMT_UserNameEnableChineseWords = 0 Then%> checked<%End If%>></td><td>禁止使用中文汉字</td>
          		<td><input class=fmchkbox type=radio name=Form_LMT_UserNameEnableChineseWords value=1<%If Form_LMT_UserNameEnableChineseWords = 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_User_RegPoints" maxlength="4" size="10" value="<%=htmlencode(Form_DEF_User_RegPoints)%>"><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_LMT_EnableRegNewUsers value=0<%If Form_LMT_EnableRegNewUsers = 0 Then%> checked<%End If%>></td><td>禁止注册新用户</td>
          		<td><input class=fmchkbox type=radio name=Form_LMT_EnableRegNewUsers value=1<%If Form_LMT_EnableRegNewUsers = 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_ShortestUserName" maxlength="2" size="10" value="<%=htmlencode(Form_DEF_ShortestUserName)%>"><font color=gray>(允许注册的用户名的最短字符个数，单位字节)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>注册间隔</td>
			<td><input class=fminpt type="text" name="Form_DEF_RegNewUserTotalRestTime" maxlength="6" size="10" value="<%=htmlencode(Form_DEF_RegNewUserTotalRestTime)%>"><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_UserNewRegAttestMode value=0<%If Form_DEF_UserNewRegAttestMode = 0 Then%> checked<%End If%>></td><td>无激活,注册即为正式会员</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_UserNewRegAttestMode value=1<%If Form_DEF_UserNewRegAttestMode = 1 Then%> checked<%End If%>></td><td>邮件激活(此项务必开启邮件发送功能)</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_UserNewRegAttestMode value=2<%If Form_DEF_UserNewRegAttestMode = 2 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_UserActivationExpiresDay" maxlength="3" size="10" value="<%=htmlencode(Form_DEF_UserActivationExpiresDay)%>"><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_User_GetPassMode value=0<%If Form_DEF_User_GetPassMode = 0 Then%> checked<%End If%>></td><td>禁止找回</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_User_GetPassMode value=1<%If Form_DEF_User_GetPassMode = 1 Then%> checked<%End If%>></td><td>即时密码更改</td>
          		<td><input class=fmchkbox type=radio name=Form_DEF_User_GetPassMode value=2<%If Form_DEF_User_GetPassMode = 2 Then%> checked<%End If%>></td><td>即时密码更改并发送邮件</td>
          		</tr></table></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>等级定义</td>
			<td>
				<table border=0 cellpadding=1 cellspacing=0>
				<tr>
					<td>&nbsp;级别</td>
					<td>&nbsp;级别称号</td>
					<td>&nbsp;要求发表文章</td>
				</td><%
			For n = 0 to DEF_UserLevelNum
				%>
				<tr>
					<td>&nbsp;<%=Right(" " & N,2)%>级</td>
					<td>&nbsp;<input class=fminpt type="text" name="Form_DEF_UserLevelString<%=N%>" maxlength="18" size="20" value="<%=htmlencode(Form_DEF_UserLevelString(n))%>"></td>
					<td>&nbsp;<input class=fminpt type="text" name="Form_DEF_UserLevelPoints<%=N%>" maxlength="14" size="10" value="<%=htmlencode(Form_DEF_UserLevelPoints(n))%>"></td>
				</td>
				<%
			Next
			%>
				</table>
				&nbsp;<font color=gray>发表文章指的是曾经发表过的文章(包括删除数量)</font></td>
		</tr>
		<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<td>荣誉称号</td>
			<td>
				<table border=0 cellpadding=1 cellspacing=0>
				<tr>
					<td>&nbsp;编号</td>
					<td>&nbsp;称呼</td>
				</td><%
			For n = 0 to DEF_UserOfficerNum
				%>
				<tr>
					<td>&nbsp;=<%=Right(" " & N,2)%></td>
					<td>&nbsp;<input class=fminpt type="text" name="Form_DEF_UserOfficerString<%=N%>" maxlength="100" size="50" value="<%=htmlencode(Form_DEF_UserOfficerString(n))%>"></td>
				</td>
				<%
			Next
			%>
				</table>
				&nbsp;<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_FiltrateUserNameString" maxlength="1024" size="50" value="<%=htmlencode(Form_DEF_FiltrateUserNameString)%>">
			<br><font color=gray>(使用|分隔，注册用户名及用户头衔和签名将不能包含此类名字)</font></td>
		</tr>
		</table>
		<%

End Function

Function GetDefaultValue

	Dim N
	Form_DEF_UserEnableUserTitle = DEF_UserEnableUserTitle
	Form_DEF_UserUserTitleNeedLevel = DEF_UserUserTitleNeedLevel
	Form_LMT_UserNameEnableEnglishWords = LMT_UserNameEnableEnglishWords
	Form_LMT_UserNameEnableChineseChar = LMT_UserNameEnableChineseChar
	Form_LMT_UserNameEnableChineseWords = LMT_UserNameEnableChineseWords
	Form_DEF_User_RegPoints = DEF_User_RegPoints
	Form_LMT_EnableRegNewUsers = LMT_EnableRegNewUsers
	Form_DEF_ShortestUserName = DEF_ShortestUserName
	Form_DEF_RegNewUserTotalRestTime = DEF_RegNewUserTotalRestTime
	Form_DEF_UserNewRegAttestMode = DEF_UserNewRegAttestMode
	Form_DEF_UserActivationExpiresDay = DEF_UserActivationExpiresDay
	Form_DEF_User_GetPassMode = DEF_User_GetPassMode
	For n = 0 to DEF_UserLevelNum
		Form_DEF_UserLevelString(n) = DEF_UserLevelString(n)
		Form_DEF_UserLevelPoints(n) = DEF_UserLevelPoints(n)
	Next
	For n = 0 to DEF_UserOfficerNum
		Form_DEF_UserOfficerString(n) = DEF_UserOfficerString(n)
	Next
	Form_DEF_FiltrateUserNameString = DEF_FiltrateUserNameString

End Function


Function GetFormValue

	Dim N
	Form_DEF_UserEnableUserTitle = Trim(Request.Form("Form_DEF_UserEnableUserTitle"))
	Form_DEF_UserUserTitleNeedLevel = Trim(Request.Form("Form_DEF_UserUserTitleNeedLevel"))
	Form_LMT_UserNameEnableEnglishWords = Trim(Request.Form("Form_LMT_UserNameEnableEnglishWords"))
	Form_LMT_UserNameEnableChineseChar = Trim(Request.Form("Form_LMT_UserNameEnableChineseChar"))
	Form_LMT_UserNameEnableChineseWords = Trim(Request.Form("Form_LMT_UserNameEnableChineseWords"))
	Form_DEF_User_RegPoints = Trim(Request.Form("Form_DEF_User_RegPoints"))
	Form_LMT_EnableRegNewUsers = Trim(Request.Form("Form_LMT_EnableRegNewUsers"))
	Form_DEF_ShortestUserName = Trim(Request.Form("Form_DEF_ShortestUserName"))
	Form_DEF_RegNewUserTotalRestTime = Trim(Request.Form("Form_DEF_RegNewUserTotalRestTime"))
	Form_DEF_UserNewRegAttestMode = Trim(Request.Form("Form_DEF_UserNewRegAttestMode"))
	Form_DEF_UserActivationExpiresDay = Trim(Request.Form("Form_DEF_UserActivationExpiresDay"))
	Form_DEF_User_GetPassMode = Trim(Request.Form("Form_DEF_User_GetPassMode"))
	For n = 0 to DEF_UserLevelNum
		Form_DEF_UserLevelString(n) = Trim(Request.Form("Form_DEF_UserLevelString" & N))
		Form_DEF_UserLevelPoints(n) = Trim(Request.Form("Form_DEF_UserLevelPoints" & N))
	Next
	For n = 0 to DEF_UserOfficerNum
		Form_DEF_UserOfficerString(n) = Trim(Request.Form("Form_DEF_UserOfficerString" & N))
	Next
	Form_DEF_FiltrateUserNameString = Trim(Request.Form("Form_DEF_FiltrateUserNameString"))
	
	If isNumeric(Form_DEF_UserEnableUserTitle) = 0 Then GBL_CHK_TempStr = "是否允许用户自定义头衔必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_UserUserTitleNeedLevel) = 0 Then GBL_CHK_TempStr = "指定自定义头衔所要求达到的等级必须为数字<br>" & VbCrLf
	If isNumeric(Form_LMT_UserNameEnableEnglishWords) = 0 Then GBL_CHK_TempStr = "是否允许用户名使用西文字符(字母数字)必须为数字<br>" & VbCrLf
	If isNumeric(Form_LMT_UserNameEnableChineseChar) = 0 Then GBL_CHK_TempStr = "是否允许用户使用中文符号(标点,日文等字符)必须为数字<br>" & VbCrLf
	If isNumeric(Form_LMT_UserNameEnableChineseWords) = 0 Then GBL_CHK_TempStr = "是否允许用户使用中文汉字必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_User_RegPoints) = 0 Then GBL_CHK_TempStr = "注册用户就拥有的积分点数必须为数字<br>" & VbCrLf
	If isNumeric(Form_LMT_EnableRegNewUsers) = 0 Then GBL_CHK_TempStr = "开关注册必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_ShortestUserName) = 0 Then GBL_CHK_TempStr = "户名的最短字符个数必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_RegNewUserTotalRestTime) = 0 Then GBL_CHK_TempStr = "注册间隔必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_UserNewRegAttestMode) = 0 Then GBL_CHK_TempStr = "注册认证方式必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_UserActivationExpiresDay) = 0 Then GBL_CHK_TempStr = "激活时间必须为数字<br>" & VbCrLf
	If isNumeric(Form_DEF_User_GetPassMode) = 0 Then GBL_CHK_TempStr = "密码找回必须为数字<br>" & VbCrLf
	For n = 0 to DEF_UserLevelNum
		If inStr(Form_DEF_UserLevelString(n),"""") Then
			GBL_CHK_TempStr = "第" & N & "等级名称不能包含有引号<br>" & VbCrLf
		End If
		If isNumeric(Form_DEF_UserLevelPoints(n)) = 0 Then
			GBL_CHK_TempStr = "第" & N & "等级要求发表文章数量必须为数字<br>" & VbCrLf
			Exit Function
		End If
	Next
	For n = 0 to DEF_UserOfficerNum
		If inStr(Form_DEF_UserOfficerString(n),"""") Then
			GBL_CHK_TempStr = "第" & N & "编号荣誉名称不能包含有引号<br>" & VbCrLf
		End If
	Next
	If inStr(Form_DEF_FiltrateUserNameString,"""") Then GBL_CHK_TempStr = "密码找回不能包含有引号<br>" & VbCrLf

End Function

Function MakeDataBaseLinkFile

	Dim TempStr,N
	TempStr = ""
	TempStr = TempStr & chr(60) & "%" & VbCrLf
	TempStr = TempStr & "const DEF_UserEnableUserTitle = " & Form_DEF_UserEnableUserTitle & VbCrLf	
	TempStr = TempStr & "const DEF_UserUserTitleNeedLevel = " & Form_DEF_UserUserTitleNeedLevel & VbCrLf
	TempStr = TempStr & "const LMT_UserNameEnableEnglishWords = " & Form_LMT_UserNameEnableEnglishWords & VbCrLf
	TempStr = TempStr & "const LMT_UserNameEnableChineseChar = " & Form_LMT_UserNameEnableChineseChar & VbCrLf
	TempStr = TempStr & "const LMT_UserNameEnableChineseWords = " & Form_LMT_UserNameEnableChineseWords & VbCrLf
	TempStr = TempStr & "const DEF_User_RegPoints = " & Form_DEF_User_RegPoints & VbCrLf
	TempStr = TempStr & "const LMT_EnableRegNewUsers = " & Form_LMT_EnableRegNewUsers & VbCrLf
	TempStr = TempStr & "const DEF_ShortestUserName = " & Form_DEF_ShortestUserName & VbCrLf
	TempStr = TempStr & "const DEF_RegNewUserTotalRestTime = " & Form_DEF_RegNewUserTotalRestTime & VbCrLf
	TempStr = TempStr & "const DEF_UserNewRegAttestMode = " & Form_DEF_UserNewRegAttestMode & VbCrLf
	TempStr = TempStr & "const DEF_UserActivationExpiresDay = " & Form_DEF_UserActivationExpiresDay & VbCrLf
	TempStr = TempStr & "const DEF_User_GetPassMode = " & Form_DEF_User_GetPassMode & VbCrLf
	
	TempStr = TempStr & "Dim DEF_UserLevelString,DEF_UserLevelNum,DEF_UserLevelPoints" & VbCrLf
	TempStr = TempStr & "DEF_UserLevelString = Array("
	For n = 0 to DEF_UserLevelNum
		If n = 0 Then
			TempStr = TempStr & """" & Form_DEF_UserLevelString(n) & """"
		Else
			TempStr = TempStr & ",""" & Form_DEF_UserLevelString(n) & """"
		End If
	Next
	TempStr = TempStr & ")" & VbCrLf
	
	TempStr = TempStr & "DEF_UserLevelPoints = Array("
	For n = 0 to DEF_UserLevelNum
		If n = 0 Then
			TempStr = TempStr & Form_DEF_UserLevelPoints(n)
		Else
			TempStr = TempStr & "," & Form_DEF_UserLevelPoints(n)
		End If
	Next
	TempStr = TempStr & ")" & VbCrLf

	TempStr = TempStr & "DEF_UserLevelNum = Ubound(DEF_UserLevelString,1)" & VbCrLf	
	TempStr = TempStr & "Dim DEF_UserOfficerString,DEF_UserOfficerNum" & VbCrLf	
	TempStr = TempStr & "DEF_UserOfficerString = Array("
	For n = 0 to DEF_UserOfficerNum
		If n = 0 Then
			TempStr = TempStr & """" & Form_DEF_UserOfficerString(n) & """"
		Else
			TempStr = TempStr & ",""" & Form_DEF_UserOfficerString(n) & """"
		End If
	Next
	TempStr = TempStr & ")" & VbCrLf

	TempStr = TempStr & "DEF_UserOfficerNum = Ubound(DEF_UserOfficerString,1)" & VbCrLf
	TempStr = TempStr & "const DEF_FiltrateUserNameString = " & Chr(34) & LCase(Form_DEF_FiltrateUserNameString) & chr(34) & VbCrLf

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

	ADODB_SaveToFile TempStr,"../../inc/User_Setup.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/User_Setup.ASP</font>文件替换成框中内容(注意备份)<p>
		<textarea name="fileContent" cols="80" rows="30" class=fmtxtra><%=Server.htmlencode(TempStr)%></textarea><%
		GBL_CHK_TempStr = ""
	End If

End Function
%>