<!-- #include file=../inc/BBSsetup.asp -->
<!-- #include file=../inc/Board_Popfun.asp -->
<!-- #include file=inc/List_fun.asp -->
<%
DEF_BBS_HomeUrl = "../"

Function LoginAccuessFul

	GBL_CHK_TempStr = ""
	DisplayAnnouncesSplitPages

End Function

Sub Main

	GBL_CHK_PWdFlag = 0
	initDatabase
	GBL_CHK_TempStr = ""
	BBS_SiteHead DEF_SiteNameString & " " & DEF_BBS_Name,0," &gt;&gt; 浏览全部帖子"
	UpdateOnlineUserAtInfo 0,"浏览全部帖子"

	If GBL_CHK_TempStr = "" Then
	%>
	<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<%=DEF_BBS_DarkColor%>" class=TBone>
	<tr>
		<td>
			<%LoginAccuessFul%></td>
	</tr>
	</table><%
	Else
		%>
	<br>
	<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr>
		<td>
			<%=GBL_CHK_TempStr%></td>
	</tr>
	</table>
	<%
	End If
	SiteBottom
	If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString
	closeDataBase

End Sub

Main
%>