<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<!--#include file="../Include/system_language.asp" -->
<!--#include file="CheckAdmin.asp"-->
<!--#include file="../Include/Version.asp" -->
<%
'*********************************************
'软件名称：博科企业网站内容管理系统（BOKECMS）
'软件开发：博科网络科技工作室
'网   址：http://www.bokew.net
'服务QQ：530051328
'服务邮箱：bbfhq@163.com
'微信公众号：bokewlkj
'*********************************************
m_SQL = "select count(*) from BokeCMS_Admin"
set rs = conn.Execute(m_SQL)
m_ManageNumber = rs(0)
Call CloseRs(rs)

m_SQL = "select count(*) from BokeCMS_Message"
set rs = conn.Execute(m_SQL)
m_Message = rs(0)
Call CloseRs(rs)

m_SQL = "select count(*) from BokeCMS_About"
set rs = conn.Execute(m_SQL)
m_About = rs(0)
Call CloseRs(rs)

m_SQL = "select count(*) from BokeCMS_Download"
set rs = conn.Execute(m_SQL)
m_Download = rs(0)
Call CloseRs(rs)

m_SQL = "select count(*) from BokeCMS_Link"
set rs = conn.Execute(m_SQL)
m_FriendLink = rs(0)
Call CloseRs(rs)

m_SQL = "select count(*) from BokeCMS_Recruitment"
set rs = conn.Execute(m_SQL)
m_Recruitment = rs(0)
Call CloseRs(rs)

m_SQL = "select count(*) from BokeCMS_Case"
set rs = conn.Execute(m_SQL)
m_Case = rs(0)
Call CloseRs(rs)

m_SQL = "select count(*) from BokeCMS_News"
set rs = conn.Execute(m_SQL)
m_News = rs(0)
Call CloseRs(rs)

m_SQL = "select count(*) from BokeCMS_Product"
set rs = conn.Execute(m_SQL)
m_Product = rs(0)
Call CloseRs(rs)

m_SQL = "select count(*) from BokeCMS_plugin"
set rs = conn.Execute(m_SQL)
m_App = rs(0)
Call CloseRs(rs)

m_SQL = "select count(*) from BokeCMS_Template"
set rs = conn.Execute(m_SQL)
m_Template = rs(0)
Call CloseRs(rs)
%>

<!DOCTYPE html>
<html lang="zh-cn">
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1">
<meta name="description" content="<%=Bokecms_Lang_Copyright(13)%>">
<meta name="author" content="<%=Bokecms_Lang_Copyright(3)%>">
<title><%=Bokecms_Lang_Copyright(1)%> <%=Soft_Version%></title>
<!--#Include file="BokeCMS_Css.Asp"-->
</head>

<body>
<!--#Include file="BokeCMS_Top.Asp"-->
<!--#Include file="BokeCMS_Meun.Asp"-->
<!-- start: Content -->
<div id="wrap"> 
    <div class="main">
        <div class="row">
            <ol class="breadcrumb">
                <li><i class="fa fa-home"></i> 当前位置</li>
                <li class="active">后台首页</li>
            </ol>	
        </div>	
      

        <div class="row">
            <div class="col-lg-3 col-md-4">
                <div class="panel panel-default">
                    <div class="panel-heading">
                        <h2><i class="fa fa-bar-chart-o"></i>网站统计</h2>
                    </div>
                    <div class="panel-body">
                        <table id="user" class="table table-bordered table-striped" style="clear: both">
                        <tr>         
                            <td width="65%">管理员</td>
                            <td width="35%"><%=m_ManageNumber%>个</td>
                        </tr>
                        <%
						set rs = server.CreateObject("adodb.recordset")
						rs.open "select * from BokeCMS_Module where ViewFlag Order by ID asc", conn, 1, 2
						do until rs.eof
							DataForm = Conn.execute("select * from BokeCMS_DataForm where ID="&rs("DataForm"))("DataForm")
							m_rs = Conn.execute("select count(*) from "&DataForm)(0)
							response.Write "<tr>"         
							response.Write "	<td>"&rs("SystemName")&"</td>"
							response.Write "	<td>"&m_rs&"条</td>"
							response.Write "</tr>"  
							rs.movenext
						loop
						rs.close : set rs = nothing
						%>
                        <tr>         
                            <td>插件应用</td>
                            <td><%=m_App%>条</td>
                        </tr> 
                        <tr>         
                            <td>在线留言</td>
                            <td><%=m_Message%>条</td>
                        </tr>   
                        <tr>         
                            <td>网站模板</td>
                            <td><%=m_Template%>套</td>
                        </tr>                                       
                        </table>
                    </div>
					<div class="panel-body">
                        <table id="user" class="table table-bordered table-striped" style="clear: both">
                        <tr>         
                            <td colspan="2">免责声明</td>
                        </tr>
                        <tr>         
                            <td colspan="2">1、互联网软件易受到各种安全问题的困扰，用户使用“本软件”涉及到互联网各种因素，可能会受到各个环节不稳定因素的影响，存在因不可抗力、计算机病毒、黑客攻击、系统不稳定、用户所在位置以及其他任何网络、技术、通信线路等原因造成的软件运行中断、数据丢失、信息泄露、造成损失或不能满足用户要求的风险，用户须明白并自行承担以上风险。
2、用户必须遵守国家和当地有关法律、法规、行政规章，不得利用本软件制作、复制、发布、传播任何法律法规禁止的有害信息、虚假信息。用户违法造成的法律责任和纠纷自行承担，与博科网络科技工作室无关。</td>
                        </tr>                                       
                        </table>
                    </div>
                </div>	
            </div>
                    
            <div class="col-md-6">
                <div class="panel panel-default">
                    <div class="panel-heading">
                        <ul class="nav tab-menu nav-tabs" id="myTab">
                            <li class=""><a href="#info">系统基本信息</a></li>
                            <li class="active"><a href="#messages">关于BOKECMS</a></li>
                        </ul>
                    </div>
                    <div class="panel-body">
                        <div id="myTabContent" class="tab-content">
                            <div class="tab-pane" id="info">
							<%
                            set rs = server.createobject("adodb.recordset") 
                            sql = "select top 1 * from BokeCMS_AdminLog where [id] < (select max(id) from BokeCMS_AdminLog) order by [id] desc" 
                            rs.open sql,conn,1,1
							If rs.eof Then
								LoginTime = "暂无"
								LoginIP = "暂无"
							Else
								LoginTime = rs("LoginTime")
								LoginIP = rs("LoginIP")
							End If
                            rs.close : set rs = nothing

                            set rs1 = server.createobject("adodb.recordset") 
                            sql = "select top 1 * from BokeCMS_AdminLog order by id desc " 
                            rs1.open sql,conn,1,1
                            %>							
                            <table id="user" class="table table-bordered table-striped" style="clear: both">
                            <tr>         
                                <td width="35%">登陆角色</td>
                                <td width="65%"><%=session("AdminName")%> (<%=session("UserName")%>)</td>
                            </tr>
                            <tr>         
                                <td>本次登陆时间</td>
                                <td><%=rs1("LoginTime")%></td>
                            </tr>  
                            <tr>         
                                <td>本次登陆IP地址</td>
                                <td><%=rs1("LoginIP")%> </td>
                            </tr>
                            <tr>         
                                <td>最近一次登陆时间</td>
                                <td><%=LoginTime%></td>
                            </tr> 
                            <tr>         
                                <td>最近一次登陆IP地址</td>
                                <td><%=LoginIP%></td>
                            </tr> 
                            <tr>         
                                <td>服务器名称</td>
                                <td><%=Request.ServerVariables("SERVER_NAME")%> (IP:<%=Request.ServerVariables("LOCAL_ADDR")%>) 端口:<%=Request.ServerVariables("SERVER_PORT")%></td>
                            </tr>
                            <tr>         
                                <td>服务器脚本引擎</td>
                                <td><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> </td>
                            </tr> 
                            <tr>         
                                <td>站点物理路径</td>
                                <td><%=request.ServerVariables("APPL_PHYSICAL_PAth")%></td>
                            </tr> 
                            <tr>         
                                <td>IIS版本</td>
                                <td><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
                            </tr> 
                            <tr>         
                                <td>脚本超时时间</td>
                                <td><%=Server.ScriptTimeout%> s</td>
                            </tr>                                       
                            </table>
  <table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#F3F3F3">
    <tr>
      <td height="28" bgcolor="#F3F3F3"><span style="font-size: 9pt"><font size="3"><font size="2">&nbsp;</font></font></span><b>基本组件检测</b> （如果下面几项都是<font color=green><b>√</b></font>即支持我们的系统）</td>
    </tr>
</table>
<%
Function IsObjInstalled(strClassString)'定义函数
 On Error Resume Next'有错则跳过
 IsObjInstalled = False'函数名初始值设为FALSE
 Err = 0'错误计数器置零
 Dim xTestObj'定义对象
 Set xTestObj = Server.CreateObject(strClassString)'初始化对象
 If 0 = Err Then IsObjInstalled = True'如果错误计数器为0 则函数名为真 意思是已经安装了
 Set xTestObj = Nothing'销毁对象
 Err = 0'错误计数器置零
End Function'结束函数

Function GetVer(ClassStr)
 On Error Resume Next
 GetVer = ""
 Err = 0
 Dim xTestObj
 Set xTestObj = Server.CreateObject(ClassStr)
 If 0 = Err Then GetVer = xTestObj.Version
 Set xTestObj = Nothing
 Err = 0
End Function

Sub WRITE_LINE(str)
 Response.Write LTrim(str)'输出str 去除左边空格的
End Sub

Dim InstallObj(6)'检查各个组件 0-6 意思自己百度
InstallObj(0) = "adodb.connection"
InstallObj(1) = "Scripting.FileSystemObject"
InstallObj(2) = "Persits.Jpeg"
InstallObj(3) = "JMail.Message"
InstallObj(4) = "Msxml2.ServerXMLHTTP.5.0"
InstallObj(5) = "Msxml2.ServerXMLHTTP.6.0"

Dim name(6)'各个组件简称
name(0) = "Access"
name(1) = "FSO"
name(2) = "ASPJpeg"
name(3) = "JMail"
name(4) = "XMLHTTP"
name(5) = "XMLHTTP"

Dim Effect(6)'各个组件的作用
Effect(0) = "使用Access存取数据"
Effect(1) = "FSO 文件系统管理、文本文件读写、文件生成或删除"
Effect(2) = "系统通过ASPJpeg组件生成图片标题、水印、阻止伪装图片木马上传等"
Effect(3) = "系统通过JMail组件发送电子邮件"
Effect(4) = "系统通过Msxml2.ServerXMLHTTP实现QQ快捷登录等。5.0或6.0满足其中一个即可。"
Effect(5) = "系统通过Msxml2.ServerXMLHTTP实现QQ快捷登录等。5.0或6.0满足其中一个即可。"


Dim Suggestion(6)'建议
Suggestion(0) = "联系空间商解决Access数据库问题"
Suggestion(1) = "找支持FSO的空间"
Suggestion(2) = "服务器要安装ASPJpeg组件。"
Suggestion(3) = "服务器要安装JMail组件，或找支持JMail的空间，否则无法发送邮件"
Suggestion(4) = "服务器要安装Msxml2.ServerXMLHTTP.6.0或Msxml2.ServerXMLHTTP.5.0组件"
Suggestion(5) = "服务器要安装Msxml2.ServerXMLHTTP.6.0或Msxml2.ServerXMLHTTP.5.0组件"
%> 
    <tr>
      <td><table border=1 width="100%" cellspacing=1 cellpadding=3>
  <tr class="backs"><td width="80">组件名称</td> <td width="100">简称</td> <td width="450" >作 用</td><td width="70">支持/版本</td><td width="350">建议</td></tr>
  <tr><td>Active Server Page</td> <td>ASP</td> <td>与数据库和其它程序进行交互</td><td><%response.write "<font color=green><b>√</b></font>"%></td><td >已支持</td></tr> 

<%Dim i,FoundFso
i=0
for i=0 to 5%>
  <tr><td width="300"><%=InstallObj(i)%></td>
  <td width="100" ><%=name(i)%></td>
  <td width="300" ><%=Effect(i)%></td>
   <td width="50" ><%
FoundFso = IsObjInstalled(InstallObj(i))
 
If FoundFso Then
 Response.Write "<font color=green><b>√</b></font>"&GetVer(InstallObj(i))&""
Else
 Response.Write "<font color=red><b>×</b></font>"
End If
%></td>
<td width="350"><%If FoundFso Then
Response.Write "已支持"
Else
 Response.Write Suggestion(i)
End If
%></a>
  </tr>
 <%
 next%>

 </table></td>
    </tr>
  </table>
                            </div>
                            <div class="tab-pane active" id="messages">
                                <table id="user" class="table table-bordered table-striped" style="clear: both">
                                <tr>         
                                    <td width="30%">当前版本</td>
                                    <td width="70%"><%=Soft_Version%></td>
                                </tr>
                                <tr>         
                                    <td>最新版本</td>
                                    <td><a href="http://www.bokew.net/" target="_blank">关注最新版本</a></td>
                                </tr>
        
                                <tr>         
                                    <td>版权所有</td>
                                    <td><a href="http://www.bokew.net/" target="_blank">博科网络科技工作室</a></td>
                                </tr> 
                           
                                </table>
                            </div>
                        </div>
                    </div>
                </div>				
            </div>

            <div class="col-lg-3 col-md-4">
                <div class="panel panel-default">
                    
                    <div class="panel-heading">
                        <h2><i class="fa fa-file-text-o"></i>官方公告</h2>
                    </div>
                    
                    <div class="panel-body">
                        <iframe name="mofine_products" src="skin_a/Announcement_a.htm" frameborder="0" scrolling="auto" width="100%" height="30"></iframe>
                    </div>
                    <div class="panel-body">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;博科企业网站管理系统简介<br><br>
                        &nbsp;&nbsp;&nbsp;&nbsp;博科企业网站管理系统(BOKECMS)，是博科网络科技工作室集思广益、博采众长开发的一个企业自助建站软件，是建站快捷、功能齐全、功能强大、后台系统管理方便、高性价比的企业网站内容管理平台,可以帮您迅速、轻松地构建起一个强大专业的企业网站。<br>
    &nbsp;&nbsp;&nbsp;&nbsp;系统采用DIV+html5+css3架构，UTF－8编码，ASP+ACCESS或MS SQL数据库，兼容性强，空间要求低，架设、维护方便，网页整洁美观，同时具备PC和手机平板等模块，适合现代潮流。通用性比较好，适合国内外服务器和浏览器，兼容Firefox、Maxthon、TT等常用浏览器。<br>
    &nbsp;&nbsp;&nbsp;&nbsp;主要功能模块有企业信息、新闻动态、产品展示、案例展示，资源下载、人才招聘、视频中心、留言反馈等。后台可以全站生成静态 。采用模板化和标签调用，扩展性强，可任意修改网页布局、风格；SEO搜索优化,最大限度的优化页面打开速度并更利于搜索引擎的收录。后台有强大的广告管理功能。删除文章或产品时同时删除相关的图片和文件，也可一键删除没用的图片或文件，防止垃圾产生。程序通用性强，参数后台自定义，只要在后台设置好网站基本信息和分类栏目，不懂网页制作者也可轻松建站，管理网站更方便。博科企业网站管理系统简繁是企业、政府机关、学校等单位建站的最佳选择！
                    </div>
                </div>	
            </div>               
        </div>
            
        <div class="row">
            <div class="col-lg-12">
                <div class="panel panel-default">

                    <div class="panel-heading">
                        <h2><i class="fa fa-bullhorn"></i><span class="break"></span>提示信息</h2>
                        <div class="panel-actions">
                            <a href="ui-elements.html#" class="btn-setting"><i class="fa fa-wrench"></i></a>
                            <a href="ui-elements.html#" class="btn-minimize"><i class="fa fa-chevron-up"></i></a>
                            <a href="ui-elements.html#" class="btn-close"><i class="fa fa-times"></i></a>
                        </div>
                    </div>
                    <div class="panel-body alerts">   
                        <div class="alert alert-info">
                            <button type="button" class="close" data-dismiss="alert">×</button>
                            系统升级建议在官方技术人员指导下进行，注意请做好数据备份！
                        </div>
                    </div>
                </div>
            </div>		
        </div>
    </div>
    <!-- end: Content -->
	<!--#Include file="BokeCMS_End.Asp"-->				
</div>
<!--#Include file="BokeCMS_Js.Asp"-->	
</body>
</html>