www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\adminadmin\admin_main.asp
<!--#include file="../conn.asp"-->
<!--#include file="setup.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/check.asp"-->
<%
'=====================================================================
' 软件名称：801w软件代理系统
' 当前版本：NewAsp Content Management System Version 4.0
' 文件名称：admin_main.asp
' 更新日期：2008-5-16
' 官方网站：801w代理系统(www.801w.cn www.801w.com) QQ：274667447
'=====================================================================
' Copyright 2003-2008 801w.cn - All Rights Reserved.
' newasp is a trademark of 801w.cn
'=====================================================================
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>×</strong></font>"
Else
CheckObj = "<strong>√</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">本程序由801w软件代理系统（801w.cn）授权给 <%=NewAsp.MainSetting(1)%> 使用，当前使用版本为 801w软件代理系统(801wAspCMS) <%=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))%>
<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> <a href="admin_reloadcache.asp">重建系统缓存</a> <a href="users/admin_list.asp">会员管理</a> <a href="sys/admin_online.asp">在线人数统计</a> <a href="sys/admin_template.asp">模板样式总管理</a> <a href="sys/admin_config.asp">后台设置</a> <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.801w.cn/" target="_blank">801w营销联盟</a>
<a href="http://www.801w.com/" target="_blank">帮你赚钱网</a>
<a href="http://www.178hezu.com/" target="_blank">一起合租网</a>
<a href="http://www.alixinyu.com/" target="_blank">阿里信誉兼职网</a>
<a href="http://www.017cy8.cn/" target="_blank">捷易通</a>
<a href="http://www.801w.cn/" 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">801w软件代理系统说明</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">801w</font>软件代理系统<br />
点击左边管理导航菜单中的“<a href="sys/admin_setting.asp"><font color="#ff0000">常规设置-基本设置</font></a>”<br />
对你的网站信息和一些网站配置参数进行配置。</td>
</tr>
</table>
<table class="tableborder" cellspacing="1" cellpadding="3" align="center" border="0">
<tr>
<th colspan="2" align="left">801w软件代理系统版本</th>
</tr>
<tr>
<td class="tablerow1" width="60" height="23">当前版本</td>
<td class="tablerow1" style="line-height: 150%"><strong style="color: blue">801w软件代理系统 <%=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">801w软件代理系统开发</th>
</tr>
<tr>
<td class="tablerow1" width="60" height="23">程序制作</td>
<td class="tablerow1">北京801w软件代理科技</td>
</tr>
<tr>
<td class="tablerow2" height="23">联系方式</td>
<td class="tablerow2">E-mail：cydz108@163.com QQ：274667447 51869715 274667447<br />
电话：010-85777659 手机：013128927055<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.801w.cn/">801w软件代理</a> <a target="_blank" href="http://www.801w.com/">帮你赚钱网</a> <a target="_blank" href="http://www.alixinyu/">阿里信誉兼职网</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
%>