<!--#include file="../Inc/Cls_Main.Asp"-->
<!--#include file="inc/Cls_Admin.Asp"-->
<!--#include file="Admin_MapPath.Asp"-->
<!--#include file="Admin_Check.Asp"-->
<%
Dim CmsAdmin, ToUrl, UpLoadFilePath
'=============================================================================
ToUrl = CmsFun.LoadToUrl()
If Easp.IsN(CmsUpLoadFile) Then
    UpLoadFilePath = "/UpFile/"
Else
    UpLoadFilePath = CmsUpLoadFile
End If
'=============================================================================
Set CmsAdmin = New Cls_Admin
CmsAdmin.SetAdminTitle = CmsSiteName
CmsAdmin.SetAdminPath = CmsAdminMapPath
CmsAdmin.LoadHead()
'=============================================================================
Dim Action
'=============================================================================
Action = Easp.Get("action")
Select Case Action
    Case "pageload"
        Call PageLoad()
    Case Else
        Call PageLoad()
End Select
CmsAdmin.LoadFooter()
Set CmsAdmin = Nothing

Sub PageLoad()
%>
<div class="navigation nav_icon"> 你好，<i><%=Easp.Cookie("ZjjCmsCms>AdminName")%>(<%=Easp.Cookie("ZjjCmsCms>RoleName")%>)</i>，欢迎进入后台管理中心</div>
<div class="line10"> </div>
<div class="nlist1">
  <ul>
    <li>登录IP：<%=Easp.Cookie("ZjjCmsCms>LoginIp")%></li>
    <li>登录时间：<%=Easp.Cookie("ZjjCmsCms>LoginTime")%></li>
    <li>登录次数：<%=Easp.Cookie("ZjjCmsCms>LoginNum")%></li>
  </ul>
</div>
<div class="line10"> </div>
<div class="nlist2 clearfix">
  <h2> 站点信息</h2>
  <ul>
    <li>站点名称：<%=CmsSiteName%></li>
    <li>公司名称：<%=CmsCompName%></li>
    <li>网站域名：<%=CmsSiteUrl%></li>
    <li>安装目录：<%=SiteWebFilePath%></li>
    <li>服务器名称：<%=Request.ServerVariables("SERVER_NAME")%></li>
    <li>服务器IP：<%=Request.ServerVariables("LOCAL_ADDR")%></li>
    <li>IIS版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></li>
    <li>服务器端口：<%=Request.ServerVariables("SERVER_PORT")%></li>
    <li>FSO 文本文件读写：<%=Get_ObjInfo("scripting.filesystemobject", 0)%></li>
    <li>ADO 数据对象：<%=Get_ObjInfo("adodb.connection", 1)%></li>
    <li>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></li>
    <li>Stream 文件流：<%=Get_ObjInfo("Adodb."&"Stream", 0)%></li>
    <li>AspUpload 上传组件：<%=Get_ObjInfo("Persits.Upload.1", 1)%></li>
    <li>Jmail组件支持：<%=Get_ObjInfo("JMail.SMTPMail",1)%></li>
    <li>AspJpeg 图像处理组件：<%=Get_ObjInfo("Persits.Jpeg",1)%></li>
  </ul>
  <div class="line10"> </div>
</div>
<div class="clear" style="height: 20px;"> </div>
<div class="sub_nav_list">
  <h3> 建站快捷导航</h3>
  <ul>
    <li><a href="javascript:parent.f_addTab('sys_config','系统参数设置','sys/Admin.Setting.Asp')"> <img src="images/icon_setting.png" alt="系统参数设置" /><br />
      参数设置</a></li>
    <li><a href="javascript:parent.f_addTab('sys_channel','系统频道设置','channel/Admin.Index.Asp')"> <img src="images/icon_channel.png" alt="系统频道设置" /><br />
      频道设置</a></li>
    <li><a href="javascript:parent.f_addTab('templabel','系统模板管理','tpl/Admin.Index.Asp')"> <img src="images/icon_templet.png" alt="系统模板管理" /><br />
      模板管理</a></li>
    <li><a href="javascript:parent.f_addTab('manager_list','管理员管理','manager/Admin.Index.Asp')"> <img src="images/icon_manaer.png" alt="管理员管理" /><br />
      管理员</a></li>
    <li><a href="javascript:parent.f_addTab('sys_create','生成静态','create/Admin.Index.Asp')"> <img src="images/icon_mark.png" alt="生成静态" /><br />
      生成静态</a></li>
    <li><a href="javascript:parent.f_addTab('plugin_links','友情链接管理','link/Admin.Index.Asp')"> <img src="images/icon_link.png" alt="友情链接管理" /><br />
      链接管理</a></li>
    <li><a href="javascript:parent.f_addTab('plugin_ad','广告管理','ad/Admin.Index.Asp')"> <img src="images/icon_code.png" alt="广告管理" /><br />
      广告管理</a></li>
    <li><a href="javascript:parent.f_addTab('sys_tagguide','系统标签向导','create/Admin.Tag.Asp')"> <img src="images/icon_log.png" alt="系统标签向导" /><br />
      标签向导</a></li>
  </ul>
</div>
<div class="note_list">
  <h3 class="site"> 建站三步曲</h3>
  <ul>
    <li>1、进入后台管理中心，点击"系统参数设置"修改网站配置信息；</li>
    <li>2、点击"系统频道设置"建立系统的频道；</li>
    <li>3、制作好网站模板，上传到站点Theme目录下，点击"系统模板管理"；</li>
  </ul>
  <h3 class="msg"> 官方消息</h3>
  <ul id="zjjcmsmsg">
  </ul>
</div>
<script>
$(function() {
    $.ajax({
        type: 'get',
        beforeSend: function() {
            $('#zjjcmsmsg').html('<li>官方消息加载中……</li>');
        },
        url: 'handler/ajax.asp',
        data: {
            action: 'zjjcms',
            n: Math.random()
        },
        dataType: 'html',
        error: function(XMLHttpRequest, textStatus, errorThrown) {
            $('#zjjcmsmsg').html('<li>官方消息加载失败...</li>');
        },
        success: function(data, textStatus) {
            //
            if (data != '') {
                $('#zjjcmsmsg').html(data);
            }
        }
    })
})
</script>
<%
End Sub
Function Get_ObjInfo(obj, ver)
    On Error Resume Next
    Dim objTest, sTemp
    Set objTest = Server.CreateObject(obj)
    If Err.Number <> 0 Then
        Err.Clear
        Get_ObjInfo = "<span style=""color:#00F;"">不支持</span>"
    Else
        sTemp = ""
        If ver = 1 Then
            sTemp = objTest.Version
            If IsNull(sTemp) Then sTemp = objTest.about
            sTemp = Replace(sTemp, "Version", "")
            sTemp = "　<span style=""color:blue;"">v" & sTemp & "</span>"
        End If
        Get_ObjInfo = "<span style=""color:blue;"">支持</span>" & sTemp
    End If
    Set objTest = Nothing
    If Err.Number <> 0 Then Err.Clear
End Function
%>
