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

<%@ CODEPAGE = "936" %> <% '================================= ' ' 阿江酷站访问统计系统 ' Ajiang info@ajiang.net ' www.ajiang.net ' ' 版权所有·抄袭挪用必究 ' '================================= %> <% '权限检查 if session.Contents("master") <> true then Response.Redirect "help.asp?error=你不是管理员，无权进入本页面。" dbPath=server.MapPath(connpath) strDBPath = left(DBPath,instrrev(DBPath,"\")) Set fso = CreateObject("Scripting.FileSystemObject") on error resume next fso.CopyFile strDBPath & "temp.mdb",dbpath if err<>0 then coperr=true fso.DeleteFile(strDBPath & "temp.mdb") if err<>0 then delerr=true Set fso = nothing %> <%=countname%>－数据清理－第五步－整理文件

∷∷∷ 数据清理－第五步 □ 整理文件 ∷∷∷

<%if coperr or delerr then%>

在复制和删除文件时出现错误，请进入FTP查对您的文件，count.mdb和temp.mdb中较小的一个应该保留，较大的删除，保留的一个最终要改名为count.mdb。

关闭窗口 <%else%>

已经完成了文件的最后整理。

关闭窗口 <%end if%>