?? admin_main.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>×</strong></font><%else%><strong>√</strong><%end if%></td>
</tr>
<tr>
<td class="TableRow1" width="50%" height="23">FSO文本讀寫：<%If Not IsObjInstalled(theInstalledObjects(1)) Then%><font color="#ff0066"><strong>×</strong></font><%else%><strong>√</strong><%end if%></td>
<td class="TableRow1" width="50%">數據庫使用：<%If Not IsObjInstalled(theInstalledObjects(2)) Then%><font color="#ff0066"><strong>×</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>×</strong></font><%else%><strong>√</strong><%end if%></td>
<td class="TableRow2" width="50%">CDONTS組件支持：<%If Not IsObjInstalled(theInstalledObjects(4)) Then%><font color="#ff0066"><strong>×</strong></font><%else%><strong>√</strong><%end if%></td>
</tr>
<tr>
<td class="TableRow1" colspan="2" height="25"><strong>快捷操作選項：</strong> <a href="admin_config.asp">網站基本設置</a> <a href="CleanCache.asp">重建系統緩存</a> <a href="admin_user.asp">會員管理</a> <a href="admin_online.asp">在線人數統計</a> <a href="admin_template.asp">模板樣式總管理</a> <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 />
點擊左邊管理導航菜單中的“<a href="admin_config.asp"><font color="#ff0000">常規設置-基本設置</font></a>”<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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -