?? 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 + -