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

<%@ CODEPAGE = "936" %> <% '================================= ' ' 阿江酷站访问统计系统 ' Ajiang info@ajiang.net ' www.ajiang.net ' ' 版权所有·抄袭挪用必究 ' '================================= %> <% '权限检查 if session.Contents("master") <> true then Response.Redirect "help.asp?error=你不是管理员，无权进入本页面。" Set Engine = CreateObject("JRO.JetEngine") dbPath=server.MapPath(connpath) strDBPath = left(DBPath,instrrev(DBPath,"\")) Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb" Set Engine = nothing %> <%=countname%>－数据清理－第四步－压缩

∷∷∷ 数据清理－第四步 □ 压缩数据库 ∷∷∷

已经完成了数据库的压缩，现在有两个库文件，<%=DBPath%>是经过清理但没有压缩过的库文件，<%=strdbpath & "temp.mdb"%>是清理后经过压缩的库文件。下一步的操作是将压缩过的库文件复制为<%=DBPath%>，然后删除temp.mdb。 <%if IsObjInstalled("Scripting.FileSystemObject") then%>

请点击下一步完成该操作。

下一步整理文件开始 <%else%>

因为您的主机不支持FSO组件，所以这一步必须您手工完成。请您登录FTP，找到<%=DBPath%>这个文件，删除它（最好在删除前先下载它），然后将<%=strdbpath & "temp.mdb"%>改名为<%=DBPath%>。

关闭窗口 <%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 %>