<!-- #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 = ""
checkSupervisorPass
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>LeadBBS管理员登陆</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 CheckSupervisorUserName = 1 Then%>
            <p><br>
              最高级管理员，您已经成功登录！<br></p>
              <%DisplaySystemInfo%>
              <br><br>
	<%Else%>
	       <p><br>
              已经成功登录！<br></p>
              <br><br>
              
	<%End If%>
	<br><br>
            </td>
        </tr>
      </table>
    
<%End Function

Function DisplaySystemInfo

	%>
	<table cellpadding="2" cellspacing="1" border="0" width="100%">
	<tr><td height=25 class=TBBG1><b>论坛信息一览，<a href=default.asp?need=1773>点击查看组件安装情况(极少数服务器会有不稳定现象，慎重)</a></b></td><tr>
	<tr>
	<td width="50%"  height=23>服务器时间：<%=now%>，论坛(计算时差)时间：<%=DEF_Now%></td>
	</tr>
	<tr>
	<td width="50%"  height=23>服务器类型：<%=Request.ServerVariables("OS")%>[IP:<%=Request.ServerVariables("LOCAL_ADDR")%>]</td>
	</tr>
	<tr>
	<td width="50%">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
	</tr>
	<tr>
	<td width="50%" height=23>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
	</tr><%If Request.QueryString("need") = "1773" Then%>
	<tr>
	<td width="50%">FileUp上传组件：<%
	CheckObjInstalled("FileUp.upload")
	Response.write GBL_CHK_TempStr%></td>
	</tr>
	<tr>
	<td width="50%" height=23>FSO文本读写：<%
	CheckObjInstalled2(DEF_FSOString)
	Response.write GBL_CHK_TempStr%></td>
	</tr>
	<tr>
	<td width="50%">数据库使用：<%
	CheckObjInstalled("adodb.connection")
	Response.write GBL_CHK_TempStr%></td>
	</tr>
	<tr>
	<td width="50%" height=23>Jmail组件支持：<%
	CheckObjInstalled("JMail.SMTPMail")
	Response.write GBL_CHK_TempStr%></td>
	</tr>
	<tr>
	<td width="50%">GflSDK组件支持：<%
	CheckObjInstalled("GflAx190.GflAx")
	Response.write GBL_CHK_TempStr%></td>
	</tr>
	<tr>
	<td width="50%">EasyMail邮件支持：<%
	CheckObjInstalled("easymail.Mailsend")
	Response.write GBL_CHK_TempStr%></td>
	</tr>
	<tr>
	<td width="50%">无组件上传：Scripting.Dictionary <%
	CheckObjInstalled("Scripting.Dictionary")
	Response.write GBL_CHK_TempStr%>
	ADODB.Stream <%
	CheckObjInstalled("Scripting.Dictionary")
	Response.write GBL_CHK_TempStr%> (全部支持才能正常上传)</td>
	</tr><%End If%>
	</table>
	<p>
	<b><a href=SiteManage/Space.asp>点击这里查看论坛空间占用情况</a></b>
	<br><br><br>
	<b>权限参考</b><p>
	1.屏蔽用户修改权限，如果是普通用户，无权更改自己的资料及发表的帖；论坛版主及以<br>
	 &nbsp; 上人员，则额外限制固顶，总固顶及编辑版面帖子。<br>
	2.认证会员对任何会员都有限制(包括管理员)，认证会员专版仅拥有认证资格的人员<br>
	 &nbsp; 才可以进入。<br>
	3.权限等级排序：管理员->总版主->论坛版主->普通会员。　<br>
	&nbsp; 其中认证会员属于特殊用户。<br>
	4.禁止转移帖子功能仅对版主以上有效。<br>
	5.默认版主拥有编辑，精华，删除，锁定，固顶版面帖权限，查看所有上传附件，<br>
	&nbsp; 发表带颜色标题帖。<br>
	6.总版主除拥有版主的权限外，还拥有总固顶的权限。<br>
	7.管理员拥有一切权限，可以发表html语法的主题及帖子内容，<br>
	&nbsp; 管理用户及论坛一切资料。<br>
	<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

Function CheckObjInstalled2(strClassString)

	On Error Resume Next
	Dim Temp
	Err = 0
	Dim TmpObj
	Set TmpObj = CreateObject(strClassString)
	Temp = Err
	If Temp = 0 Then
		CheckObjInstalled2 = True
		GBL_CHK_TempStr = "<font color=green class=GreenFont>√</font>"
	ElseIf Temp = -2147221005 Then
		GBL_CHK_TempStr = "<font color=red class=RedFont>组件未安装</font>"
		CheckObjInstalled2 = False
	ElseIf Temp = -2147221477 Then
		GBL_CHK_TempStr = "<font color=green class=GreenFont>√支持此组件</font>"
		CheckObjInstalled2 = True
	ElseIf Temp = 1 Then
		GBL_CHK_TempStr = "<font color=red class=RedFont>×未知的错误，组件可能未正确安装</font>"
		CheckObjInstalled2 = False
	End If
	Err.Clear
	Set TmpObj = Nothing
	Err = 0

End Function

Function CheckObjInstalled(strClassString)

	On Error Resume Next
	Dim Temp
	Err = 0
	Dim TmpObj
	Set TmpObj = Server.CreateObject(strClassString)
	Temp = Err
	If Temp = 0 Then
		CheckObjInstalled = True
		GBL_CHK_TempStr = "<font color=green class=GreenFont>√</font>"
	ElseIf Temp = -2147221005 Then
		GBL_CHK_TempStr = "<font color=red class=RedFont>组件未安装</font>"
		CheckObjInstalled = False
	ElseIf Temp = -2147221477 Then
		GBL_CHK_TempStr = "<font color=green class=GreenFont>√支持此组件</font>"
		CheckObjInstalled = True
	ElseIf Temp = 1 Then
		GBL_CHK_TempStr = "<font color=red>×未知的错误，组件可能未正确安装</font>"
		CheckObjInstalled = False
	End If
	Err.Clear
	Set TmpObj = Nothing
	Err = 0

End Function
%>