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

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

UserTopicTopInfo
DisplayUserNavigate("首页")
If GBL_CHK_Flag=1 Then
	LoginAccuessFul
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
SiteBottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString

Function LoginAccuessFul%>

<table width="97%" border="0" cellspacing="0" cellpadding="0">
<tr>
	<td>
	<%If BDM_isBoardMasterFlag = 1 Then%>
            <p><br>
			<br><%=GBL_CHK_User%>，您好：)<br></p>
              <%DisplaySystemInfo%>
              <br><br>
	<%Else%>
	       <p><br>
              已经成功登录！<br></p>
              <br><br>
              
	<%End If%>
	<br><br>
            </td>
        </tr>
      </table>
    
<%End Function

Function DisplaySystemInfo

	%>基本信息<p>
	服务器时间：<%=now()%>，论坛(计算时差)时间<%=DEF_Now%><p>
	总在线人数： <b><%=application(DEF_MasterCookies & "ActiveUsers")%></b> 人<p>
	是否有扩展权限：<b><%If BDM_SpecialPopedomFlag = 0 Then
		Response.Write "<font color=Red class=RedFont>无</font>"
	Else
		Response.Write "<font color=Green class=GreenFont>有</font>"
	End If%></b>
	[ 扩展权限包括封用户ＩＰ，屏蔽用户发言，禁止发言等 ]
	<p><b>LeadBBS</b></p>
	程序制作：LeadBBS工作室，主编SpiderMan(QQ:527274)<br>
	版本信息：<a href=http://www.leadbbs.com target=_blank><b><font color=ff0000 class=RedFont>LeadBBS</font></b></a> v3.14
	<%

End Function
%>