压缩和备份数据库的程序代码
作者:不详
来源:
日期:2002-8-6
压缩和备份数据库的程序代码 ^O^ (已中文化)
把档名改成compact.asp
<%
Const Jet_Conn_Partial = "Provider=Microsoft.Jet.OLEDB.4.0; Data source="
Dim strDatabase, strFolder, strFileName
“#################################################
“# 修改以下两行
“#请输入你那个数据库的完整位置,如下面的那个是放在tools的档案内的
strFolder = "C:\InetPub\wwwroot\bbs\tools\"
“# Enter the name of the database
strDatabase = "kungdb.mdb"
“# 停止修改
“##################################################
Private Sub dbCompact(strDBFileName)
Dim SourceConn
Dim DestConn
Dim oJetEngine
Dim oFSO
SourceConn = Jet_Conn_Partial & strFolder & strDatabase
DestConn = Jet_Conn_Partial & strFolder & "Temp" & strDatabase
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oJetEngine = Server.CreateObject("JRO.JetEngine")
With oFSO
If Not .FileExists(strFolder & strDatabase) Then
Response.Write ("Not Found: " & strFolder & strDatabase)
Stop
Else
If .FileExists(strFolder & "Temp" & strDatabase) Then
Response.Write ("Something went wrong last time " _
& "Deleting old database... Please try again")
.DeleteFile (strFolder & "Temp" & strDatabase)
End If
End If
End With
With oJetEngine
.CompactDatabase SourceConn, DestConn
End With
oFSO.DeleteFile strFolder & strDatabase
oFSO.MoveFile strFolder & "Temp" _
& strDatabase, strFolder& strDatabase
Set oFSO = Nothing
Set oJetEngine = Nothing
End Sub
Private Sub dbList()
Dim oFolders
Set oFolders = Server.CreateObject("Scripting.FileSystemObject")
Response.Write ("<Select Name=""DBFileName"">")
For Each Item In oFolders.GetFolder(strFolder).Files
If LCase(Right(Item, 4)) = ".mdb" Then
Response.Write ("<Option Value=""" & Replace(Item, strFolder, "") _
& """>" & Replace(Item, strFolder, "") & "</Option>")
End If
Next
Response.Write ("</Select>")
Set oFolders = Nothing
End Sub
%>
<%
“#压缩数据库和告诉用户数据库已经完善
Select Case Request.form("cmd")
Case "压缩"
dbCompact Request.form("DBFileName")
Response.Write ("数据库 " & Request.form("DBFileName") & " 已经完善.")
End Select
%>
<p><font size="4">压缩和备份数据库</font></p>
<form method="POST" action="">
<p><%dbList%><input type="submit" value="压缩" name="cmd"></p>
</form>