<%@language=vbscript codepage=936 %>
<%
Option Explicit
response.buffer = True
Const PurviewLevel = 0
Const PurviewLevel_Channel = 0
Const PurviewLevel_Others = ""
%>
<!--#include file="../conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<html>
<head>
<title><%=SiteName & "--后台管理首页"%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Admin_Style.css">
<style type="text/css">
<!--
body {
    background-color: #FFFFFF;
    margin-left: 0px;
}
.STYLE4 {color: #000000}
-->
</style>
</head>
<body topmargin="0" marginheight="0">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="392" rowspan="2"><img src="Images/adminmain01.gif" width="392" height="126"></td>
    <td height="114" valign="top" background="Images/adminmain0line2.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="20"></td>
      </tr>
      <tr>
        <td><span class="STYLE4">帮助公告</span></td>
      </tr>
      <tr>
        <td height="8"><img src="Images/adminmain0line.gif" width="283" height="1" /></td>
      </tr>
      <tr>
        <td><div id="peinfo1">正在读取数据中...</div><div id="peinfo2" style="z-index: 1; visibility: hidden; position: absolute"></div></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="9" valign="bottom" background="Images/adminmain03.gif"><img src="Images/adminmain02.gif" width="23" height="12"></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
  </tr>
</table>
<table width="100%" height="10"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="100%" border="0" cellpadding="3" cellspacing="0">
      
      <tr>
        <td width="31%" height="87" align="right"><table width="94%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><%=AdminName%>您好， </td>
            </tr>
            <tr>
              <td valign="top">今天是
                <script language="JavaScript" type="text/JavaScript" src="../js/date.js"></script>
                您尚有：</td>
            </tr>
            <tr>
              <td valign="top"><%=ShowUnPassedInfo%></td>
            </tr>
        </table></td>
        <td width="1%"><table width="3" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="3" height="65" bgcolor="#1890CC"></td>
            </tr>
        </table></td>
        <td width="68%">欢迎您进入<%=SiteName%>网站后台管理系统！在这里您可以利用系统提供的强大的HTML生成功能，便捷的后台管理功能，栏目无限级分类，任意添加网站频道功能，栏目批量设置、批量移动等功能有效地管理网站。您可以随时使用顶部的<font color="#FF0000">关闭左栏</font>功能关闭或打开左边的管理导航，以扩展操作界面。初次架设网站请配置以下信息：</td>
      </tr>
      <tr>
        <td height="5" colspan="3"></td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20" rowspan="2">&nbsp;</td>
    <td width="400" align="center" class="topbg"><span class="Glow">建 站 管 理 快 捷 入 口</span></td>
    <td width="40" rowspan="2">&nbsp;</td>
    <td width="400" align="center" class="topbg"><span class="Glow">日 常 管 理 快 捷 入 口</span></td>
    <td width="21" rowspan="2">&nbsp;</td>
  </tr>
  <tr class="topbg2">
    <td height="1"></td>
    <td></td>
  </tr>
</table>
<table width="100%" height="10"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20" rowspan="2">&nbsp;</td>
        <td width="100" align="center" class="topbg"><a class='Class' href="Admin_SiteConfig.asp">网站信息配置</a></td>
    <td width="300">&nbsp;</td>
    <td width="40" rowspan="2">&nbsp;</td>
        <td width="100" align="center" class="topbg"><a class="Class" href="Admin_Class.asp?ChannelID=1" target="main">网站栏目管理</a></td>
    <td width="300">&nbsp;</td>
    <td width="21" rowspan="2">&nbsp;</td>
  </tr>
  <tr class="topbg2">
    <td height="1" colspan="2"></td>
    <td colspan="2"></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20">&nbsp;</td>
    <td width="400">　　网站基本信息配置：如网站的名称、地址、LOGO、版权信息等；网站功能选项配置：如显示频道、保存远程图片等；用户选项配置：如是否允许新用户注册、是否需要认证等；另有邮件服务器选项等。<br>
      　　快捷菜单：<a href="Admin_SiteConfig.asp" target="main"><u><font color="#FF0000">网站信息配置</font></u></a>
      | <a href="Admin_SiteConfig.asp#SiteOption" target="main"><u><font color="#FF0000">网站选项配置</font></u></a>
    | <a href="Admin_SiteConfig.asp#User" target="main"><u><font color="#FF0000">用户选项</font></u></a></td>
    <td width="40">&nbsp;</td>
    <td width="400">　　管理网站各频道中所设置的各级栏目，栏目具有无级分类功能。可对栏目进行添加、删除、排序、复位、合并和批量设置等管理。<br>
      　　<font color="#0000FF">初次安装请在各频道中先添加栏目</font>。<br>
      　　快捷菜单：<a href="Admin_Class.asp?ChannelID=1" target="main"><u><font color="#FF0000">文章栏目管理</font></u></a>
      | <a href="Admin_Class.asp?ChannelID=2" target="main"><u><font color="#FF0000">下载栏目管理</font></u></a>
      | <a href="Admin_Class.asp?ChannelID=3" target="main"><u><font color="#FF0000">图片栏目管理</font></u></a></td>
    <td width="21">&nbsp;</td>
  </tr>
</table>
<table width="100%" height="10"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20" rowspan="2">&nbsp;</td>
    <td width="100" align="center" class="topbg"><a class='Class' href="Admin_CreateIndex.asp" target="main">首页生成管理</a></td>
    <td width="300">&nbsp;</td>
    <td width="40" rowspan="2">&nbsp;</td>
    <td width="100" align="center" class="topbg"><a class="Class" href="Admin_Article.asp?ChannelID=1&Action=Add&AddType=2" target="main">网站内容添加</a></td>
    <td width="300">&nbsp;</td>
    <td width="21" rowspan="2">&nbsp;</td>
  </tr>
  <tr class="topbg2">
    <td height="1" colspan="2"></td>
    <td colspan="2"></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20">&nbsp;</td>
    <td width="400">　　首次安装系统请<a href="Admin_CreateIndex.asp" target="main"><font color="#FF0000">生成网站首页</font></a>。首页、栏目页、内容页、专题页……都可以生成完全的HTML页面（评论和点击数统计除外）。各频道启用生成功能请在<a href=Admin_Channel.asp target=main title="动易网站管理系统中，频道是指某一功能模板的集合。某一频道可以是具备文章系统功能，或具备下载系统、图片系统的功能。"><U><font color="#FF0000">网站频道管理</font></U></a>中设置。</td>
    <td width="40">&nbsp;</td>
    <td width="400">　　系统提供强大的<a href="#" title="在线编辑器能够在网页上实现许多桌面编辑软件（如：Word）所具有的强大可视编辑内容的功能。"><u>在线编辑器</u></a>（文章中心），增加、删除、修改网站各个频道下各栏目的相关内容（文字、软件、图片等），方便设置内容的相关属性等。<br>
      　　快捷菜单：<a href="Admin_Article.asp?ChannelID=1&Action=Add&AddType=2" target="main"><u><font color="#FF0000">添加文章</font></u>
      </a><a href="Admin_Article.asp?ChannelID=1&Action=Manage&Passed=All"><u><font color="#FF0000">管理</font></u></a>
      | <a href="Admin_Soft.asp?ChannelID=2&Action=Add&AddType=2" target="main"><u><font color="#FF0000">添加软件</font></u></a>
      <a href="Admin_Article.asp?ChannelID=2&Action=Manage&Passed=All"><u><font color="#FF0000">管理</font></u></a> | <a href="Admin_Photo.asp?ChannelID=3&Action=Add&AddType=2" target="main"><u><font color="#FF0000">添加图片</font></u></a>
      <a href="Admin_Article.asp?ChannelID=3&Action=Manage&Passed=All"><u><font color="#FF0000">管理</font></u></a></td>
    <td width="21">&nbsp;</td>
  </tr>
</table>
<table width="100%" height="10"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20" rowspan="2">&nbsp;</td>
    <td width="100" align="center" class="topbg"><a class="Class" href="Admin_Admin.asp" target="main">管理员管理</a></td>
    <td width="300">&nbsp;</td>
    <td width="40" rowspan="2">&nbsp;</td>
    <td width="100" align="center" class="topbg"><a class="Class" href="Admin_GuestBook.asp?Passed=All" target="main">网站留言管理</a></td>
    <td width="300">&nbsp;</td>
    <td width="21" rowspan="2">&nbsp;</td>
  </tr>
  <tr class="topbg2">
    <td height="1" colspan="2"></td>
    <td colspan="2"></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20">&nbsp;</td>
    <td width="400">　　强大的<a href="Admin_Admin.asp" target="main"><U><font color="#FF0000">网站权限管理</font></U></a>，可增删管理员和指定详细的管理权限，使网站的管理分级分类多人共同管理。设置网站添加<a href="Admin_Admin.asp?Action=Add" target="main" title="超级管理员：拥有所有权限。某些权限（如管理员管理、网站信息配置、网站选项配置等管理权限）只有超级管理员才有。"><U>超级管理员</U></a>和<a href="Admin_Admin.asp?Action=Add" target="main" title="普通管理员：捅有指定部分网站管理功能，需要详细指定每一项管理权限。"><U>普通管理员</U></a>，您也可以自由设定<a href="Admin_UserGroup.asp" target="main" title="用户组是用户账户的集合，通过创建用户组，赋予相关用户享有授予组的权力和权限。具体的权限设置在“频道管理”及各频道的“栏目管理”中。"><font color="#FF0000"><U>用户组</U></font></a>以管理注册用户级别。</td>
    <td width="40">&nbsp;</td>
    <td width="400">　　对用户的留言进行审核、修改、删除、回复等操作。留言的审核功能请在<a href=Admin_Channel.asp target=main title="网站管理系统中，频道是指某一功能模板的集合。某一频道可以是具备文章系统功能，或具备下载系统、图片系统的功能。"><U>网站频道管理</U></a>中设置。<br>
      　　快捷菜单：<a href="Admin_GuestBook.asp?Passed=False" target="main"><u><font color="#FF0000">审核留言</font></u></a>
      | <a href="Admin_GuestBook.asp?Passed=All" target="main"><u><font color="#FF0000">管理留言</font></u></a></td>
    <td width="21">&nbsp;</td>
  </tr>
</table>
<table width="100%" height="10"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20" rowspan="2">&nbsp;</td>
    <td width="100" align="center" class="topbg"><a class="Class" href="Admin_Channel.asp" target="main" title="网站管理系统中，频道是指某一功能模板的集合。某一频道可以是具备文章系统功能，或具备下载系统、图片系统的功能。">网站频道管理</a></td>
    <td width="300">&nbsp;</td>
    <td width="40" rowspan="2">&nbsp;</td>
    <td width="100" align="center" class="topbg"><a class="Class" href="Admin_Advertisement.asp" target="main">网站广告管理</a></td>
    <td width="300">&nbsp;</td>
    <td width="21" rowspan="2">&nbsp;</td>
  </tr>
  <tr class="topbg2">
    <td height="1" colspan="2"></td>
    <td colspan="2"></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20">&nbsp;</td>
    <td width="400">　　<a href="Admin_Channel.asp" target="main">管理网站的各个频道的功能模块，如文章、下载、图片和留言等频道。</a>频道可分为<a href="#" title="系统内部频道指的是在MY动力现有功能模块（新闻、文章、图片等）基础上添加新的频道，新频道具备和所使用功能模块完全相同的功能。"><U>系统内部频道</U></a>与<a href="#" title="外部频道指链接到MY动力系统以外的地址中。当此频道准备链接到网站中的其他系统时"><U>外部频道</U></a>。频道类型请慎重选择，频道一旦添加后就不能再更改频道类型。</td>
    <td width="40">&nbsp;</td>
    <td width="400">　　系统提供强大的<a href="Admin_Advertisement.asp" target=main title="在线编辑器能够在网页上实现许多桌面编辑软件（如：Word）所具有的强大可视编辑内容的功能。"><u>网站广告管理</u></a>功能，对网站的广告版位及广告进行增加、修改、删除等操作。<br>
    快捷菜单：<a href="Admin_Advertisement.asp?Action=ZoneList" target="main"><u><font color="#FF0000">广告版位管理</font></u></a> | <a href="Admin_Advertisement.asp?Action=AddZone" target="main"><u><font color="#FF0000">添加新版位</font></u></a> | <a href="Admin_Advertisement.asp?Action=ADList" target="main"><u><font color="#FF0000">网站广告管理</font></u></a> | <a href="Admin_GuestBook.asp?Passed=All" target="main"></a><a href="Admin_Advertisement.asp?Action=AddAD" target="main"><u><font color="#FF0000">添加新广告</font></u></a></td>
    <td width="21">&nbsp;</td>
  </tr>
</table>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
  <tr align="center">
    <td height=25 colspan=2 class="topbg"><span class="Glow">服 务 器 信 息</span><tr>
    <td width="50%"  class="tdbg" height=23>服务器类型：      <%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
    <td width="50%" class="tdbg">脚本解释引擎：
    <%
    response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion
    If CSng(ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion) < 5.6 Then
        response.write "&nbsp;&nbsp;<a href='http://www.microsoft.com/downloads/release.asp?ReleaseID=33136' target='_blank'><font color='green'>版本过低，请点此更新</font></a>"
    End If
    %>
    </td>
  </tr>
  <tr>
    <td width="50%" class="tdbg" height=23>站点物理路径：      <%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
    <td width="50%" class="tdbg">数据库使用：<%ShowObjectInstalled("adodb.connection")%></td>
  </tr>
  <tr>
    <td width="50%" class="tdbg" height=23>FSO文本读写：<%ShowObjectInstalled(objName_FSO)%></td>
    <td width="50%" class="tdbg">数据流读写：<%ShowObjectInstalled("Adodb.Stream")%></td>
  </tr>
  <tr>
    <td width="50%" class="tdbg" height=23>XMLHTTP组件支持：<%ShowObjectInstalled("Microsoft.XMLHTTP")%></td>
    <td width="50%" class="tdbg">XMLDOM组件支持：<%ShowObjectInstalled("Microsoft.XMLDOM")%></td>
  </tr>
  <tr>
    <td width="50%" class="tdbg" height=23>XML组件支持：<%ShowObjectInstalled("MSXML2.XMLHTTP")%></td>
    <td width="50%" class="tdbg">AspJpeg组件支持：<%ShowObjectInstalled("Persits.Jpeg")%></td>
  </tr>
  
  <tr>
    <td width="50%" class="tdbg" height=23>Jmail组件支持：<%ShowObjectInstalled("JMail.SMTPMail")%></td>
    <td width="50%" class="tdbg">CDONTS组件支持：<%ShowObjectInstalled("CDONTS.NewMail")%></td>
  </tr>
  <tr>
    <td width="50%" class="tdbg" height=23>ASPEMAIL组件支持：<%ShowObjectInstalled("Persits.MailSender")%></td>
    <td width="50%" class="tdbg">WebEasyMail组件支持：<%ShowObjectInstalled("easymail.MailSend")%></td>
  </tr>
  <tr>
    <td class="tdbg" height=23>动易组件支持：
      <%If Not IsObjInstalled("PE_CMS6.GetVersion") Then%>
      <font color="red"><b>×</b> 请联系你的空间商安装组件，否则将不能使用本系统！<span id='version'></span></font>
      <%else%>
      <b>√</b> <font color='red'>组件版本：<span id='version'><%=Get_PE_Version()%></span></font>
      <%end if%>
      <br>官方最新组件版本：<font color='blue'><span id='peversion'></span></font> <span id='tips'> </span>
    </td>
    <td align="right" class="tdbg"><a href="Admin_ServerInfo.asp">点此查看更详细的服务器信息&gt;&gt;&gt;</a></td>
  </tr>
</table>
<script language='javascript'>
  if(document.getElementById("version").innerText<document.getElementById("peversion").innerText){
    document.getElementById("tips").innerHTML="<font color='green'>请联系空间商安装最新版的动易组件！</font>";
  }
</script>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
  <tr align="center">
    <td height=25 class="topbg"><span class="Glow">Copyright 2003-2006 &copy; <%=SiteName%> All Rights Reserved.</span>
  </tr>
</table>
<div id="peinfo3" style="height:1;overflow=auto;visibility:hidden;">

</div>
<script language="JavaScript">
marqueesHeight=36;
scrillHeight=20;
scrillspeed=60;
stoptimes=50;
stopscroll=false;preTop=0;currentTop=0;stoptime=0;
peinfo1.scrollTop=0;
with (peinfo1)
{
  style.width=0;
  style.height=marqueesHeight;
  style.overflowX='visible';
  style.overflowY='hidden';
  noWrap=true;
  onmouseover=new Function("stopscroll=true");
  onmouseout=new Function("stopscroll=false");
}
function init_srolltext()
{
  peinfo2.innerHTML='';
  peinfo2.innerHTML+=peinfo3.innerHTML;
  peinfo1.innerHTML=peinfo3.innerHTML+peinfo3.innerHTML;
  setInterval("scrollUp()",scrillspeed);
}
function scrollUp()
{
  if(stopscroll==true) return;
  currentTop+=1;
  if(currentTop==scrillHeight)
  {
   stoptime+=1;
   currentTop-=1;
   if(stoptime==stoptimes) { currentTop=0; stoptime=0; }
  }
  else
  {
   preTop=peinfo1.scrollTop;
   peinfo1.scrollTop+=1;
   if(preTop==peinfo1.scrollTop){ peinfo1.scrollTop=peinfo2.offsetHeight-marqueesHeight; peinfo1.scrollTop+=1; }
  }
}
setInterval("",1000);
init_srolltext();
</script>
</body>
</html>
<%
Call CloseConn


Function ShowUnPassedInfo()
    Dim rsCount, UnPassed_Article, UnPassed_Soft, UnPassed_Photo, UnPassed_Message, strInfo
    Set rsCount = Conn.Execute("select count(ArticleID) from PE_Article where Deleted=" & PE_False & " and Status=0")
    If Not (rsCount.EOF And rsCount.bof) Then
        UnPassed_Article = rsCount(0)
    Else
        UnPassed_Article = 0
    End If
    Set rsCount = Conn.Execute("select count(SoftID) from PE_Soft where Deleted=" & PE_False & " and Status=0")
    If Not (rsCount.EOF And rsCount.bof) Then
        UnPassed_Soft = rsCount(0)
    Else
        UnPassed_Soft = 0
    End If
    Set rsCount = Conn.Execute("select count(PhotoID) from PE_Photo where Deleted=" & PE_False & " and Status=0")
    If Not (rsCount.EOF And rsCount.bof) Then
        UnPassed_Photo = rsCount(0)
    Else
        UnPassed_Photo = 0
    End If
    Set rsCount = Conn.Execute("select count(GuestID) from PE_GuestBook where GuestIsPassed=" & PE_False)
    If Not (rsCount.EOF And rsCount.bof) Then
        UnPassed_Message = rsCount(0)
    Else
        UnPassed_Message = 0
    End If
    Set rsCount = Nothing
    strInfo = strInfo & "<img src='Images/img_u.gif' align='absmiddle'>待审文章："
    strInfo = strInfo & "<font color=red>" & UnPassed_Article & "</font>篇&nbsp;&nbsp;"
    strInfo = strInfo & "<img src='Images/img_u.gif' align='absmiddle'>待审下载："
    strInfo = strInfo & "<font color=red>" & UnPassed_Soft & "</font>个<br>"
    strInfo = strInfo & "<img src='Images/img_u.gif' align='absmiddle'>待审图片："
    strInfo = strInfo & "<font color=red>" & UnPassed_Photo & "</font>个&nbsp;&nbsp;"
    strInfo = strInfo & "<img src='Images/img_u.gif' align='absmiddle'>待审留言："
    strInfo = strInfo & "<font color=red>" & UnPassed_Message & "</font>条"
    ShowUnPassedInfo = strInfo
End Function

Function Get_PE_Version()
    On Error Resume Next
    Dim PE_Version, strVersion
    Set PE_Version = server.CreateObject("PE_CMS6.GetVersion")
    If Err Then
        Err.Clear
        strVersion = "未知"
    Else
        strVersion = PE_Version.strVersion
    End If
    Set PE_Version = Nothing
    Get_PE_Version = strVersion
End Function

Sub ShowObjectInstalled(strObjName)
	If IsObjInstalled(strObjName) Then
		Response.Write "<b>√</b>"
	Else
		Response.Write "<font color='red'><b>×</b></font>"
	End If
End Sub
%>
