📄 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>
<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 + -