<%=countname%>－数据清理－第一步

<%@ CODEPAGE = "936" %> <% '================================= ' ' 阿江酷站访问统计系统 ' Ajiang info@ajiang.net ' www.ajiang.net ' ' 版权所有·抄袭挪用必究 ' '================================= %> <% '权限检查 if session.Contents("master") <> true then Response.Redirect "help.asp?error=你不是管理员，无权进入本页面。" %> <%=countname%>－数据清理－第一步－准备

∷∷∷ 数据清理－第一步 □ 准备 ∷∷∷

清理数据的步骤是这样的，首先系统按照你的要求清除主访问信息库中相应的记录，然后提示你使用数据库压缩工具对库文件进行压缩。

1、在对数据库进行清理之前，请你确认你已经将你要清理的数据备份，并且你已经确认你不需要再在统计报告和自定义统计中使用这些信息了，因为这种清理是无法恢复的。

2、如果您的服务器上没有安装FSO组件，程序就无法用压缩过的数据库覆盖原来的数据库，也无法删除临时的文件。你就必须准备好FTP软件等可以控制您的系统的其他办法，在清理完成后完成文件的更名。（<% if IsObjInstalled("Scripting.FileSystemObject") then %>您的空间支持FSO。<% else%>你的空间不支持FSO！<%end if%>）

注意：数据一旦从主访问记录库中清理出去，就无法在任何统计报告中看到这些记录，就是说不仅仅是在“详细记录”中看不到，而是在所有的统计报告中都看不到，自定义统计功能也无法查询到被清理掉的部分。使用“后备库查看器”可以查看被备份过的数据，但是功能很有限，所以应该在保证程序正常运行的情况下，保留尽量多的详细记录。（目前后备库查看器尚未完成）

准备好以后，请输入要清理的数据的条件并点击开始。 <%if Request("offtime")<>"" then%>

清理 "> 年 "> 月 "> 日前的数据。是否强制清理 <%else%>

清理年月日前的数据。是否强制清理 <%end if%>

注意：当选择了“强制清理”时，没有备份过的数据也将被清理，请慎用。建议此选项仅在数据库已经出错无法备份的情况下使用。

下一步清理数据开始

<% '组件检查函数 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %>