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

SiteHead(DEF_SiteNameString & " - 管理员")
UserTopicTopInfo
DisplayUserNavigate("在线编辑其他文件")
If GBL_CHK_Flag=1 Then
	%>
	<p><ul>
	<li><a href=SiteEditFileContent.asp?file=-1>编辑新社员注册社区协议内容</a><br>
	<li><a href=SiteEditFileContent.asp?file=-3>在线编辑联系我们（关于我们）内容</a><br>
	</ul>
	<ul>
	<%
	Dim N
	For N = 0 to DEF_BoardStyleStringNum%>
	<li><a href=SiteEditFileContent.asp?file=<%=N%>>编辑风格样式定义-<%=DEF_BoardStyleString(N)%></a> &nbsp; [<a href=DefineStyleParameter.asp?StyleID=<%=N%>>定义更多参数</a>]
	<%Next%>
	</ul>
	注意，如果你的服务器不支持文件写入，将不能使用上述的任何功能，需要手动更改源程序来完成设置。
	<%
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
%>