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

SiteHead(DEF_SiteNameString & " - 管理员")
GBL_CHK_TempStr = ""
UserTopicTopInfo
DisplayUserNavigate("删除社区空版面")%>
<br><br><%
GBL_DELETEID = Left(Request("GBL_DELETEID"),14)
If isNumeric(GBL_DELETEID)=0 Then GBL_DELETEID=0
GBL_DELETEID = cCur(GBL_DELETEID)
If GBL_CHK_Flag=1 Then
	If Request.Form("DeleteSuer")="E72ksiOkw2" Then
		GBL_BoardID = GBL_DELETEID
		If DeleteForumBoard(GBL_DELETEID)>0 Then
			Response.Write "<p><font color=008800 class=GreenFont><b>已经成功删除ID为" & GBL_DELETEID & "的社区版面！</b></font></p>"
		Else
			Response.Write "<p><font color=ff0000 class=RedFont><b>" & GBL_CHK_TempStr & "</b></font></p>"
		End If
	Else
		%><p><form action=ForumBoardDelete.asp method=post>
		注意：删除社区不删除一切社区帖子和其它社员信息！<br>
		　　　在删除前务必确认此社区已经为空。<br><br>
		<font color=Red class=RedFont>警告</font>：在删除版面时将同时删除此版面的专区信息<br><br>
		<b><font color=ff0000 class=RedFont>确认信息： 真的要删除此社区版面吗？<br><br>
		<input type=hidden name=GBL_DELETEID value="<%=urlencode(GBL_DELETEID)%>">
		<input type=hidden name=DeleteSuer value="E72ksiOkw2">
			
		<input type=button value=不能删啊 onclick="javascript:history.go(-1);" class=fmbtn>
		<input type=submit value=当然删除 class=fmbtn>
		</form>
	<%End If
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%>