📄 clear_step4.asp
字号:
<%@ 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">
<IMG src="images/tb_title.gif" align=absMiddle> ∷∷∷ 数据清理－第四步 □ 压缩数据库 ∷∷∷<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"> </font>
<%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"> </font>
<%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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -