<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_Popfun.asp -->
<!-- #include file=inc/BoardMaster_Fun.asp -->
<%
DEF_BBS_HomeUrl = "../../"
initDatabase
GBL_CHK_TempStr = ""
CheckisBoardMasterFlag

SiteHead(DEF_SiteNameString & " - 总版主管理")

UserTopicTopInfo
DisplayUserNavigate("清除总固顶状态")%>
<br><br><%
If BDM_isBoardMasterFlag = 1 Then
	DeleteAllTopAnnounce
Else%>
	<table width=96%>
	<tr>
	<td>
	<%
	If Request("submitsure")="" 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 DeleteAllTopAnnounce

	If Request.Form("submitflag") = "yes" then
		Con.ExeCute ("delete from LeadBBS_TopAnnounce")
		GBL_DBNum = GBL_DBNum + 1
		Application.Lock
		Set application(DEF_MasterCookies & "TopAnc") = Nothing
		application(DEF_MasterCookies & "TopAnc") = "yes"
		application(DEF_MasterCookies & "TopAncList") = ""
		Application.UnLock
	
		Response.Write "<b><font color=Green Class=GreenFont>总固顶信息清除完毕并完成更新！</font></b>"
	Else%>
		<p><form action=ClearTopAnc.asp method=post>
		<br>
				注意：此功能将完成以下功能：<br><br>
				&nbsp; &nbsp; &nbsp; 1.解除所有总固顶帖子<br>
				&nbsp; &nbsp; &nbsp; 2.删除可能存在的冗余总固顶数据<br>
				&nbsp; &nbsp; &nbsp; 3.解决因论坛意外产生的冗余数据进而不能继续总固顶<br>
				<br><br>
				<b><font color=ff0000 class=RedFont>确认信息： 真的要进行上述操作么？</font></b><br><br>
				<p>
		<input type=hidden name=submitflag value="yes">
		<input type=submit value=点击开始清除 class=fmbtn>
		</form>
	<%
	End If

End Function
%>