?? master.asp
字號:
<%@ CODEPAGE = "936" %>
<%
'=================================
'
' 阿江酷站訪問統計系統
' Ajiang info@ajiang.net
' www.ajiang.net
'
' 版權所有·抄襲挪用必究
'
'=================================
if session.Contents("master") <> true then Response.Redirect "help.asp?error=你不是管理員，無權進入本頁面。"
%>
<!--#include file="inc_config.asp"-->
<%
'****************** 創建數據對象 ******************
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath(connpath)
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Copyright" content="Ajiang http://www.ajiang.net">
<title><%=countname%>－管理員控制臺</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<!--#include file="inc_menu.asp"-->
<body topmargin=5 rightmargin=0 leftmargin=0 vlink=#000000><!--#include file="inc_top.asp"-->
<br>
<table width="500" cellspacing="0" align="center" cellpadding="0" border="0">
<tr><td colspan="3"><IMG src="images/photoup.gif"></td></tr>
<tr height="30">
<td width="1" class="backs"><IMG height=1 src="images/touming.gif" width=1></td>
<td width="498" class="backq">
<IMG src="images/tb_index1.gif" align=absMiddle> <font style="FONT-SIZE: 16px"
> </font>管理員控制臺<br>
<%if isUpgrade() or (isupgrade12()=false) or isupgrade13()=false then%>
<li style="MARGIN-TOP: 15px; MARGIN-BOTTOM: 5px; MARGIN-LEFT: 50px">
<A class=a1 href="upgrade1.asp">數據庫結構升級</a> <p class="p1">如果原來是1.0版，請確認已經上傳了升級相關的文件。本操作刪除1.0版數據庫文件中的IP庫，并增加1.1以前版本不具備的的屏幕寬度字段，和1.2版本不具備的備份標記字段及開始統計日期字段。
<%end if%></p>
<li style="MARGIN-TOP: 15px; MARGIN-BOTTOM: 5px; MARGIN-LEFT: 50px">
<font class=fonts>數據備份和清理</font>
<p class="p1">統計器使用一段時間以后，主訪問記錄數據庫會變得很大，這不但占用了大量的網站空間，還使統計器的運行效率大大降低，所以應該定期清理訪問記錄數據庫。
<p class="p1">為了保證被清理的數據不至于完全丟失，應該在清理前先使用備份工具備份要清理的數據，現在的清理工具不會清理沒有備份過的記錄。
<p class="p1"><A href="bak_step1.asp" target=_blank>數據備份>>></a>
<A href="clear_step1.asp" target=_blank>數據清理>>></a>
<li style="MARGIN-TOP: 15px; MARGIN-BOTTOM: 5px; MARGIN-LEFT: 50px">
<A class=a1 href="update.asp?type=go&start=yes" >用新的IP數據庫更新所有已有數據</a>
<p class="p1">本操作將占用大量資源，建議現有記錄超過10000的朋友不要更新了。執行更新時屏幕將會不斷刷新，這是程序在執行，大約10分鐘可以更新10000條信息。更新可以隨時中止，并可到本控制臺繼續執行。
<p class="p1">本操作僅當更換了IP數據庫時使用，無需進行本操作。
<%if isupdate() then%></p>
<li style="MARGIN-TOP: 15px; MARGIN-BOTTOM: 5px; MARGIN-LEFT: 50px">
<A class=a1 href="update.asp?type=go">繼續上次未完成的更新</a>
<p class="p1">系統檢查到您上一次對主數據庫的更新尚未完成，點擊上面的連接可繼續進行。
<%end if%></p>
<li style="MARGIN-TOP: 15px; MARGIN-BOTTOM: 5px; MARGIN-LEFT: 50px">
<A class=a1 href="logout.asp" target=_top>退出控制臺</a>
<p class="p1">為防止您的管理員身份被別人利用，請離開電腦時關閉本窗口或者點擊上面的退出連接。</p></li>
</td>
<td width="1" class="backs"><IMG height=1 src="images/touming.gif" width=1></td>
</tr>
<tr><td colspan="4"><IMG src="images/photodown.gif"></td></tr>
</table>
<br><!--#include file="inc_bottom.asp"-->
<%
if thebottom="" or isnull(thebottom) then Response.Redirect "help%2Easp%3Ferror%3D%C4%FA%CA%B9%D3%C3%B5%C4%B0%E6%B1%BE%D2%D1%BE%AD%B1%BB%D0%DE%B8%C4%C1%CB%A3%AC%C7%EB%B4%D3%B0%A2%BD%AD%B5%C4%CD%F8%D5%BE%CF%C2%D4%D8%CD%EA%D5%FB%B5%C4%B0%E6%B1%BE%A1%A3"
if thebottom=replace(thebottom,chr(-20318) & chr(-16979),"") or thebottom=replace(thebottom,chr(65) & chr(106) & chr(105) & chr(97) & chr(110) & chr(103),"") then Response.Redirect "help.asp?error=%C4%FA%CA%B9%D3%C3%B5%C4%B0%E6%B1%BE%D2%D1%BE%AD%B1%BB%D0%DE%B8%C4%C1%CB%A3%AC%C7%EB%B4%D3%B0%A2%BD%AD%B5%C4%CD%F8%D5%BE%CF%C2%D4%D8%CD%EA%D5%FB%B5%C4%B0%E6%B1%BE%A1%A3"
%>
</body>
</html>
<%
'****************** 關閉數據對象 ******************
set rs=nothing
conn.Close
set conn=nothing
'****************** 自定義函數 ********************
function isUpgrade()
isUpgrade=true
on error resume next
sql="select * from ip"
conn.execute(sql)
if err<>0 then isUpgrade=false
end function
function isUpgrade12()
isUpgrade12=true
on error resume next
sql="select vwidth from view"
conn.execute(sql)
if err<>0 then isUpgrade12=false
end function
function isUpgrade13()
isUpgrade13=true
on error resume next
sql="select bakdays from view"
conn.execute(sql)
if err<>0 then isUpgrade13=false
end function
function isUpdate()
isUpdate=true
on error resume next
sql="select * from view where up_date=0"
conn.execute(sql)
if err<>0 then isUpdate=false
end function
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -