<%@ CODEPAGE = "936" %>
<%
'=================================
'
'      阿江酷站访问统计系统
'    Ajiang   info@ajiang.net 
'        www.ajiang.net
'
'     版权所有·抄袭挪用必究
'
'=================================
%>
<!--#include file="inc_config.asp"-->
<%
'权限检查
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 

%>
<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"></td>
    <td width="498" class="backq">
    
		&nbsp; <IMG src="images/tb_title.gif" align=absMiddle> &nbsp;∷∷∷ 数据清理－第四步&nbsp; □ 压缩数据库 ∷∷∷<br>

<table width="90%" align=center><tr>
          <td>
<p class="p1">已经完成了数据库的压缩，现在有两个库文件，<%=DBPath%>是经过清理但没有压缩过的库文件，<%=strdbpath & "temp.mdb"%>是清理后经过压缩的库文件。下一步的操作是将压缩过的库文件复制为<%=DBPath%>，然后删除temp.mdb。
<%if IsObjInstalled("Scripting.FileSystemObject") then%>
<p class="p1">请点击下一步完成该操作。
<p class="p1" align="right"><a href='clear_step5.asp'>下一步 整理文件 开始</a> <a href='clear_step5.asp' target="_parent"><img src="images/arbutton.gif" align="absmiddle" border="0"></a> <font style="font-size:16px">&nbsp;</font>&nbsp;
<%else%>
<p class="p1">因为您的主机不支持FSO组件，所以这一步必须您手工完成。请您登录FTP，找到<%=DBPath%>这个文件，删除它（最好在删除前先下载它），然后将<%=strdbpath & "temp.mdb"%>改名为<%=DBPath%>。
<p class="p1" align="right"><a href='#'onclick="window.close()">关闭窗口</a> <a href='#'onclick="window.close()"><img src="images/arbutton.gif" align="absmiddle" border="0"></a> <font style="font-size:16px">&nbsp;</font>&nbsp;
<%end if%>
</td></tr></table>

	</td>
    <td width="1" class="backs"></td>
  </tr>
  <tr><td colspan="4"><IMG src="images/photodown.gif"></td></tr>
</table>
<br><!--#include file="inc_bottom.asp"-->
</body>
</html>
<%
'组件检查函数
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
%>
