?? compact.asp
字號:
<%if Session("admin")=true then%>
<!--#include file="config.asp"-->
<%
on error resume next
Sub RenameFile(sFrom, sTo)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
sDateTimeStamp = "." & year(now) & month(now) & day(now) & "-" & hour(now) & minute(now) & second(now)
fso.MoveFile sTo, Server.MapPath(path & db & sDateTimeStamp & ".bak")
fso.MoveFile sFrom, sTo
End Sub
sConnFrom = constr
sConnTo = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & Server.MapPath(path & "tempdb.mdb")
sFileFrom = Server.MapPath(path & db)
sFileTo = Server.MapPath(path & "tempdb.mdb")
if session("admin")=true then
set jro = server.createobject("jro.JetEngine")
jro.CompactDatabase sConnFrom, sConnTo
if err <> 0 then
bError = True
response.write "Error:<br>" & err.description
end if
RenameFile sFileTo, sFileFrom
if err <> 0 then
bError = True
response.write "Error:<br>" & err.description
end if
if not bError then
%>
<html>
<head>
<meta HTTP-EQUIV="Refresh" content="2; URL=main.asp">
<title>壓縮數(shù)據(jù)庫</title>
<link rel="stylesheet" href="master.css" type="text/css">
</head>
<body bgcolor="#efefff">
<p class="detaillabels"><br>
壓縮成功！<br>
</p>
<p class="sundog>壓縮完成！</p><br>
<span class="sundog"><span class="detaillabels">原數(shù)據(jù)庫被更名為"數(shù)據(jù)庫名.日期.bak"
<%
else
%>
<br>
<br>
壓縮時產(chǎn)生錯誤！ <br>
<%
end if
else
response.redirect "default.asp"
end if
%>
</span>
<%end if%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -