det kan det da, her er koden ti lat gøre detmed:
<%
Const Jet_Conn_Partial = "Provider=Microsoft.Jet.OLEDB.4.0; Data source="
Dim strDatabase, strFolder, strFileName
'#################################################
'# Edit the two lines below (strFolder and strDatabase)
'# Define the full path to where your database is,
'# choose a virtual or static path for 'strFolder'
'# Important: Create an empty folder named "temp" in the same folder as your database!
'strFolder = "D:\server\path\"
strFolder = Server.MapPath("/db/")
'# The variable (\Database)
strDatabase = ("\database.mdb")
'# Stop editing here
'##################################################
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 oFSO.FileExists(strFolder & strDatabase) Then
Response.Write ("Not Found: " & strFolder & strDatabase)
Stop
Else
If oFSO.FileExists(strFolder & "\Temp" & strDatabase) Then
Response.Write ("Something went wrong last time " _
& "Deleting old database... Please try again")
oFSO.DeleteFile (strFolder & "\Temp" & strDatabase)
End If
End If
End With
With oJetEngine
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
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title></title>
</head>
<body>
<table border="0" width="100%">
<br>
<tr>
<td class="title">Compact Database</td>
</tr>
</table>
<hr size="1" color="#8b4513" noshade>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><br>
<table border="0" width="100%" cellspacing="1" cellpadding="4" height="247">
<tr>
<td valign="top" height="19"><b>Confirm Compacting of:
<font color="#FF0000"> <%=(strFolder & strDatabase)%></font></b></td>
</tr>
<tr>
<td valign="top" height="77">
<div>
<i>!!! This feature works only with Access-Database !!!</i> <br>
<br>
Compacting may take some time depending on your database size. <br>
<br>
Are you sure that you want to compact the database?
</div>
<div align="center">
</div>
</td>
</tr>
<tr>
<td valign="top" height="65">
<div align="center">
<form method="POST" action="compactdb.asp">
<input type="submit" value="Compact" name="cmd"> |
<a href="reports.asp"><b><font size="3">No</font></b></a>
</form>
<b><font color="#FF0000">
<%
' Compact database and tell the user the database is optimized
Select Case Request.form("cmd")
Case "Compact"
dbCompact Request.form("DBFileName")
Response.Write ("Database " & strDatabase & " is optimized.")
End Select
%> </font></b>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
