<!--#include file="../conn.asp"-->
<!--#include file="setup.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/check.asp"-->
<%
'=====================================================================
' 软件名称：新云网站内容管理系统
' 当前版本：NewAsp Content Management System Version 4.0
' 文件名称：admin_main.asp
' 更新日期：2008-5-16
' 官方网站：新云网络(www.NewAsp.net www.NewAsp.cn) QQ：94022511
'=====================================================================
' Copyright 2003-2008 NewAsp.net - All Rights Reserved.
' newasp is a trademark of NewAsp.net
'=====================================================================
Dim theInstalledObjects(6)
theInstalledObjects(0) = "ADODB.Stream"
theInstalledObjects(1) = "Scripting.FileSystemObject"
theInstalledObjects(2) = "adodb.connection"
theInstalledObjects(3) = "msxml2.XMLHTTP"

theInstalledObjects(4) = "JMail.SMTPMail"	'Jamil 4.2
theInstalledObjects(5) = "JMail.Message"	'Jamil 4.3
theInstalledObjects(6) = "CDONTS.NewMail"

Function IsObjInstalled(ByVal strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
Function CheckObj(objid)
	If Not IsObjInstalled(objid) Then
		CheckObj = "<font color=""#ff0066""><strong>&times;</strong></font>"
	Else
		CheckObj = "<strong>&radic;</strong>"
	End If
End Function

Dim SYS_SERVER_NAME,SYS_LOCAL_ADDR
SYS_SERVER_NAME = Request.ServerVariables("SERVER_NAME")
SYS_LOCAL_ADDR = Request.ServerVariables("LOCAL_ADDR")

%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="cache-control" content="no-cache" />
<meta http-equiv="pragma" content="no-cache" />
<title>后台控制面板--首页</title>
<link rel="stylesheet" type="text/css" href="images/skin_<%=AdminSkin%>/style.css" />
</head>
<body class="indexbody">
<table class="table1" cellspacing="1" cellpadding="3" align="center" border="0">
	<tr>
		<td class="tableline linetitle" width="200" align="left">后台首页</td>
		<td class="tableline" width="*" align="right">欢迎：<a href="users/admin_password.asp" title="点击修改管理员密码"><font color="red"><%=AdminName%></font> (<%=Session(AdminSessionName & "_AdminStatus")%>)</a>
		| <a href="admin_logout.asp" target="_parent">退出</a></td>
	</tr>
</table>
<table class="tableborder" cellspacing="1" cellpadding="3" align="center" border="0">
	<tr>
		<th colspan="2" align="left">系统信息统计</th>
	</tr>
	<tr>
		<td class="tablerow1" colspan="2" align="left">本程序由新云网络（NewAsp.Net）授权给 <%=NewAsp.MainSetting(1)%> 使用，当前使用版本为 新云网站管理系统(NewAspCMS) <%=cmsversion%></td>
	</tr>
	<tr>
		<td class="tablerow2" width="50%">服务器名：<%=SYS_SERVER_NAME%> (IP:<%=SYS_LOCAL_ADDR%>)</td>
		<td class="tablerow2" width="50%">数据库使用：<strong style="color: blue"><%If IsSqlDataBase = 1 Then
		Response.Write "Microsoft SQL Server"
	Else
		Response.Write "Microsoft Access"
	End If%></strong></td>
	</tr>
	<tr>
		<td class="tablerow1">IIS 版本： <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
		<td class="tablerow1">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
	</tr>
	<tr>
		<td class="tablerow2">站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
		<td class="tablerow2">远程采集组件： <%=CheckObj(theInstalledObjects(3))%></td>
	</tr>
	<tr>
		<td class="tablerow1">FSO文本读写：<%=CheckObj(theInstalledObjects(1))%></td>
		<td class="tablerow1">无组件上传类： <%=CheckObj(theInstalledObjects(0))%></td>
	</tr>
	<tr>
		<td class="tablerow2">Jmail组件支持：<%=CheckObj(theInstalledObjects(4))%></td>
		<td class="tablerow2">CDONTS组件支持：<%=CheckObj(theInstalledObjects(6))%>
		&nbsp;&nbsp;<a href="sys/admin_data.asp?action=detect">>>查看更详细服务器信息检测</a>
		</td>
	</tr>
	<tr>
		<td class="tablerow1" colspan="2" height="25"><strong>快捷操作选项：</strong> <a href="sys/admin_setting.asp">网站基本设置</a>&nbsp; <a href="admin_reloadcache.asp">重建系统缓存</a>&nbsp; <a href="users/admin_list.asp">会员管理</a>&nbsp; <a href="sys/admin_online.asp">在线人数统计</a>&nbsp; <a href="sys/admin_template.asp">模板样式总管理</a>&nbsp; <a href="sys/admin_config.asp">后台设置</a>&nbsp; <a href="users/admin_password.asp">修改管理员密码</a><br/>
		<a href="sys/admin_data.asp?action=BackupData"><font color="red">数据定期备份：</font></a>请注意定期做好数据备份，数据的定期备份可最大限度的保障您网站数据的安全</td>
	</tr>
	<tr>
		<td class="tablerow2" colspan="2" align="left" id="sponsored"><b>赞助合作：</b>
			<a href="http://www.bigwww.cn/?NewAsp.net" target="_blank">华夏名网</a>&nbsp;&nbsp;
			<a href="http://www.55idc.com/?NewAsp.net" target="_blank">武汉IDC数据中心</a>&nbsp;&nbsp;
			<a href="http://www.3366.net.cn/?NewAsp.net" target="_blank">点击网络</a>&nbsp;&nbsp;
			<a href="http://www.hb666.net/?NewAsp.net" target="_blank">佰网数据</a>&nbsp;&nbsp;
			<a href="http://www.linkwww.com/?NewAsp.net" target="_blank">联网科技</a>&nbsp;&nbsp;
			<a href="http://www.qy.com.cn/?NewAsp.net" target="_blank">群英网络</a>
		</td>
	</tr>
<%
If AdminDataCount=1 Then
%>
	<tr>
		<td class="tablerow1" colspan="2" align="left" id="DataCount"></td>
	</tr>
<%
End If
%>
</table>
<table class="tableborder" cellspacing="1" cellpadding="3" width="100%" align="center" border="0">
	<tr>
		<th colspan="2" align="left">网站管理系统说明</th>
	</tr>
	<tr>
		<td class="tablerow1" width="60" height="23">高级管理员</td>
		<td class="tablerow1" style="line-height: 150%">拥有系统的最高管理权限。<br />
		第一次使用时请到<font color="#ff0000">用户管理</font>-<a href="users/admin_password.asp"><font color="#ff0000">管理员密码修改</font></a>重新设置管理密码</td>
	</tr>
	<tr>
		<td class="tablerow2" height="23">普通管理员</td>
		<td class="tablerow2" style="line-height: 150%">需要高级管理员给予权限。<br />
		注:<a href="users/admin_master.asp"><font color="#ff0000">在管理员管理－设置权限!</font></a></td>
	</tr>
	<tr>
		<td class="tablerow1" height="23">使用设置</td>
		<td class="tablerow1" style="line-height: 150%">第一次使用<font color="#ff0000">新云</font>网站管理系统<br />
		点击左边管理导航菜单中的&ldquo;<a href="sys/admin_setting.asp"><font color="#ff0000">常规设置-基本设置</font></a>&rdquo;<br />
		对你的网站信息和一些网站配置参数进行配置。</td>
	</tr>
</table>
<table class="tableborder" cellspacing="1" cellpadding="3" align="center" border="0">
	<tr>
		<th colspan="2" align="left">网站管理系统版本</th>
	</tr>
	<tr>
		<td class="tablerow1" width="60" height="23">当前版本</td>
		<td class="tablerow1" style="line-height: 150%"><strong style="color: blue">新云网站管理系统 <%=cmsversion%></strong><br />
		</td>
	</tr>
	<tr>
		<td class="tablerow2" height="23">版权声明</td>
		<td class="tablerow2" style="line-height: 150%">　1、本软件为共享软件,未经书面授权，不得向任何第三方提供本软件系统;<br />
		　2、用户自由选择是否使用,在使用中出现任何问题和由此造成的一切损失作者将不承担任何责任;<br />
		　3、您可以对本系统进行修改和美化，但必须保留完整的版权信息; <br />
		　4、本软件受中华人民共和国《著作权法》《计算机软件保护条例》等相关法律、法规保护，作者保留一切权利。　</td>
	</tr>
</table>
<table class="tableborder" cellspacing="1" cellpadding="3" align="center" border="0">
	<tr>
		<th colspan="2" align="left">网站管理系统开发</th>
	</tr>
	<tr>
		<td class="tablerow1" width="60" height="23">程序制作</td>
		<td class="tablerow1">武汉市新云网络</td>
	</tr>
	<tr>
		<td class="tablerow2" height="23">联系方式</td>
		<td class="tablerow2">E-mail：newasp@163.com&nbsp;&nbsp;&nbsp;&nbsp;QQ：94022511&nbsp;&nbsp;94022589&nbsp;&nbsp;52747737<br />
		电话：027-85777659&nbsp;&nbsp;&nbsp;&nbsp;手机：013971626572<br />
		<b>说明：</b><font color="red">以上联系方式，只用于售前咨询，不提供技术支持</font></td>
	</tr>
	<tr>
		<td class="tablerow1" height="23">程序主页</td>
		<td class="tablerow1"><a target="_blank" href="http://www.NewAsp.net/">www.NewAsp.net</a>&nbsp;&nbsp;&nbsp;&nbsp;<a target="_blank" href="http://www.NewAsp.cn/">www.NewAsp.cn</a>&nbsp;&nbsp;&nbsp;&nbsp;<a target="_blank" href="http://www.xinyun.org/">www.xinyun.org</a></td>
	</tr>
</table>
<%
Admin_footer
Response.Write vbCrLf
If AdminDataCount=1 Then
	Dim Rs,SQL
	Response.Write "<div id=""DataCountText"" style=""display:none;"">" & vbCrLf
	Response.Write "<b>系统信息统计</b> "
	Response.Write "今日下载：<font color=""red""><b>"
	If IsSqlDataBase = 1 Then
		SQL = "SELECT SUM(DayHits) FROM NC_SoftList WHERE isAccept>0 And Datediff(d,HitsTime,getdate())=0"
	Else
		SQL = "SELECT SUM(DayHits) FROM NC_SoftList WHERE isAccept>0 And Datediff('d',HitsTime,Now())=0"
	End If
	Set Rs = NewAsp.Execute(SQL)
	If Rs.BOF And Rs.EOF Then
		Response.Write 0
	Else
		Response.Write NewAsp.CheckNumeric(Rs(0))
	End If
	Set Rs = Nothing
	Response.Write "</b></font> 次　"
	Response.Write "今日浏览：<font color=""red""><b>"
	If IsSqlDataBase = 1 Then
		SQL = "SELECT SUM(DayHits) FROM NC_Article WHERE isAccept>0 And Datediff(d,HitsTime,getdate())=0"
	Else
		SQL = "SELECT SUM(DayHits) FROM NC_Article WHERE isAccept>0 And Datediff('d',HitsTime,Now())=0"
	End If
	Set Rs = NewAsp.Execute(SQL)
	If Rs.BOF And Rs.EOF Then
		Response.Write 0
	Else
		Response.Write NewAsp.CheckNumeric(Rs(0))
	End If
	Set Rs = Nothing
	Response.Write "</b></font> 次　"
	Response.Write "今日观看：<font color=""red""><b>"
	If IsSqlDataBase = 1 Then
		SQL = "SELECT SUM(DayHits) FROM NC_FlashList WHERE isAccept>0 And Datediff(d,HitsTime,getdate())=0"
	Else
		SQL = "SELECT SUM(DayHits) FROM NC_FlashList WHERE isAccept>0 And Datediff('d',HitsTime,Now())=0"
	End If
	Set Rs = NewAsp.Execute(SQL)
	If Rs.BOF And Rs.EOF Then
		Response.Write 0
	Else
		Response.Write NewAsp.CheckNumeric(Rs(0))
	End If
	Set Rs = Nothing
	Response.Write "</b></font> 次　"
	Response.Write "当前在线：<font color=""red""><b>"
	If IsSqlDataBase = 1 Then
		SQL = "SELECT COUNT(id) FROM NC_Online WHERE DateDIff(s,lastTime,GetDate()) < 20*60"
	Else
		SQL = "SELECT COUNT(id) FROM NC_Online WHERE DateDIff('s',lastTime,Now()) < 20*60"
	End If
	Set Rs = NewAsp.Execute(SQL)
	If Rs.BOF And Rs.EOF Then
		Response.Write 0
	Else
		Response.Write NewAsp.CheckNumeric(Rs(0))
	End If
	Set Rs = Nothing
	Response.Write "</b></font> 人　"
	Response.Write "</div>" & vbCrLf
	Response.Write "<script language=""JavaScript"">document.getElementById('DataCount').innerHTML = document.getElementById('DataCountText').innerHTML;</script>" & vbCrLf
End If
NewAsp.PageEnd
%>