📄 admin_main.asp

📁 小游戏网站演示www.4399.io 拥有4万条游戏数据
💻 ASP
字号:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewAsp Site Management System Version 3.0
' 文件名称：admin_main.asp
' 更新日期：2006-12-20
' 官方网站：新云网络(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim theInstalledObjects(4)
theInstalledObjects(0) = "Gatherer.VBProcess"
theInstalledObjects(1) = "Scripting.FileSystemObject"
theInstalledObjects(2) = "adodb.connection"

theInstalledObjects(3) = "JMail.SMTPMail"
theInstalledObjects(4) = "CDONTS.NewMail"

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<title>管理页面</title>
<META http-equiv="Content-Type" content="text/html;charset=gb2312"/>
<link rel="stylesheet" href="images/css/admin_style_<%=AdminSkin%>.css" type="text/css" media="all" />
<body leftmargin="0" bottommargin="0" rightmargin="0" topmargin="5" marginheight="0" marginwidth="0" bgcolor="#DDEEFF">
<br/>
<table class="tableBorder" cellspacing="1" cellpadding="3" width="96%" align="center" border="0">
  <tr> 
    <th colspan="2" height="25" align="left">技术及升级支持</th>
  </tr>
  <tr> 
    <td colspan="2" bgcolor="#FFFFFF"> 
      <!--MopUnion Begin:-->
      <IFRAME id="p397" MARGINHEIGHT=0 MARGINWIDTH=0 FRAMEBORDER=0 WIDTH=700 HEIGHT=60 SCROLLING=NO SRC="http://game.wuhan.cc/dincoo.asp"></IFRAME>
      <!--MopUnion End-->
    </td>
  </tr>
</table><br>
<table class="tableBorder" cellspacing="1" cellpadding="2" width="96%" align="center" border="0">
	<tr>
		<th colspan="2" height="25" align="left">系统信息统计</th>
	</tr>
	<tr>
		<td class="BodyTitle" colspan="2" height="23" align="left">系统信息统计　　 <%
On Error Resume Next
Response.Write "今日软件下载：<font color=""red""><b>"
If IsSqlDataBase = 1 Then
	SQL = "SELECT SUM(DayHits) FROM NC_SoftList WHERE isAccept>0 And ChannelID=2 And Datediff(d,HitsTime,getdate())=0"
Else
	SQL = "SELECT SUM(DayHits) FROM NC_SoftList WHERE isAccept>0 And ChannelID=2 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> 人　"
%></td>
	</tr>
	<tr>
		<td class="TableRow1" width="50%" height="23">服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
		<td class="TableRow1" width="50%">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
	</tr>
	<tr>
		<td class="TableRow2" width="50%" height="23">站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
		<td class="TableRow2" width="50%">新云WEB采集组件： <%If Not IsObjInstalled(theInstalledObjects(0)) Then%><font color="#ff0066"><strong>&times;</strong></font><%else%><strong>&radic;</strong><%end if%></td>
	</tr>
	<tr>
		<td class="TableRow1" width="50%" height="23">FSO文本读写：<%If Not IsObjInstalled(theInstalledObjects(1)) Then%><font color="#ff0066"><strong>&times;</strong></font><%else%><strong>&radic;</strong><%end if%></td>
		<td class="TableRow1" width="50%">数据库使用：<%If Not IsObjInstalled(theInstalledObjects(2)) Then%><font color="#ff0066"><strong>&times;</strong></font><%else%><strong style="color: blue"><%If IsSqlDataBase = 1 Then%>MS SQL<%else%>ACCESS<%end if%></strong><%end if%></td>
	</tr>
	<tr>
		<td class="TableRow2" width="50%" height="23">Jmail组件支持：<%If Not IsObjInstalled(theInstalledObjects(3)) Then%><font color="#ff0066"><strong>&times;</strong></font><%else%><strong>&radic;</strong><%end if%></td>
		<td class="TableRow2" width="50%">CDONTS组件支持：<%If Not IsObjInstalled(theInstalledObjects(4)) Then%><font color="#ff0066"><strong>&times;</strong></font><%else%><strong>&radic;</strong><%end if%></td>
	</tr>
	<tr>
		<td class="TableRow1" colspan="2" height="25"><strong>快捷操作选项：</strong> <a href="admin_config.asp">网站基本设置</a>&nbsp; <a href="CleanCache.asp">重建系统缓存</a>&nbsp; <a href="admin_user.asp">会员管理</a>&nbsp; <a href="admin_online.asp">在线人数统计</a>&nbsp; <a href="admin_template.asp">模板样式总管理</a>&nbsp; <a href="admin_setting.asp">后台设置</a><br/>
		<a href="admin_database.asp?action=BackupData"><font color="red">数据定期备份：</font></a>请注意定期做好数据备份，数据的定期备份可最大限度的保障您网站数据的安全</td>
	</tr>
</table>
<br/>
<table class="tableBorder" cellspacing="1" cellpadding="3" width="100%" align="center" border="0">
	<tr>
		<th colspan="2" height="25" 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 target="main" href="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="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="admin_config.asp"><font color="#ff0000">常规设置-基本设置</font></a>&rdquo;<br />
		对你的网站信息和一些网站配置参数进行配置。</td>
	</tr>
</table>
<br/>
<table class="tableBorder" cellspacing="1" cellpadding="3" width="96%" align="center" border="0">
  <tr> 
    <th colspan="2" height="25" align="left">版权说明</th>
  </tr>
  <tr> 
    <td width="60" height="23" class="TableRow2">版权声明</td>
    <td class="TableRow2" style="line-height: 150%">　1、本软件为共享软件,未经书面授权，不得向任何第三方提供本软件系统;<br />
      　2、用户自由选择是否使用,在使用中出现任何问题和由此造成的一切损失作者将不承担任何责任;<br />
      　3、您可以对本系统进行修改和美化，但必须保留完整的版权信息; <br />
      　4、本软件受中华人民共和国《著作权法》《计算机软件保护条例》等相关法律、法规保护，作者保留一切权利。　</td>
  </tr>
</table>
💿 文件大小 11420 K
👤 上传用户 huanghuanl
📂 所属分类游戏
🏷️ 相关标签

#4399 #www #io #小游戏
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -