<%=countname%>－管理员控制台

<%@ CODEPAGE = "936" %> <% '================================= ' ' 阿江酷站访问统计系统 ' Ajiang info@ajiang.net ' www.ajiang.net ' ' 版权所有·抄袭挪用必究 ' '================================= if session.Contents("master") <> true then Response.Redirect "help.asp?error=你不是管理员，无权进入本页面。" %> <% '****************** 创建数据对象 ****************** 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") %> <%=countname%>－管理员控制台


	管理员控制台 <%if isUpgrade() or (isupgrade12()=false) or isupgrade13()=false then%> 数据库结构升级如果原来是1.0版，请确认已经上传了升级相关的文件。本操作删除1.0版数据库文件中的IP库，并增加1.1以前版本不具备的的屏幕宽度字段，和1.2版本不具备的备份标记字段及开始统计日期字段。 <%end if%> 数据备份和清理统计器使用一段时间以后，主访问记录数据库会变得很大，这不但占用了大量的网站空间，还使统计器的运行效率大大降低，所以应该定期清理访问记录数据库。为了保证被清理的数据不至于完全丢失，应该在清理前先使用备份工具备份要清理的数据，现在的清理工具不会清理没有备份过的记录。数据备份>>> 数据清理>>> 用新的IP数据库更新所有已有数据本操作将占用大量资源，建议现有记录超过10000的朋友不要更新了。执行更新时屏幕将会不断刷新，这是程序在执行，大约10分钟可以更新10000条信息。更新可以随时中止，并可到本控制台继续执行。本操作仅当更换了IP数据库时使用，无需进行本操作。 <%if isupdate() then%> 继续上次未完成的更新系统检查到您上一次对主数据库的更新尚未完成，点击上面的连接可继续进行。 <%end if%> 退出控制台为防止您的管理员身份被别人利用，请离开电脑时关闭本窗口或者点击上面的退出连接。

<% 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" %> <% '****************** 关闭数据对象 ****************** 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 %>