根据以下俩函数（过程）自己写个表单：
复制内容到剪贴板
代码:
sub yasuo2()
' call CompressData()
' Sub CompressData()
If Not IsObject(Conn) Then
CheckData Conn,GetConnstr
End If
Set Conn = Nothing
Dim DBPath
DBPath = Server.MapPath(Request.Form("Data_Path"))
Dim BoolIs97
BoolIs97 = Request.Form("boolIs97")
CompactDB DBPath,boolIs97
'End Sub
end sub
'=====================压缩参数=========================
Sub CompactDB(DBPath, boolIs97)
On Error Resume Next
Dim Fso, Engine, strDBPath,JET_3X
strDBPath = Left(DBPath,InstrRev(DBPath,"\"))
Set Fso = CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
Err.Clear()
response.write "<div style=""color:#ff0000;"">当前站点可能不支持FSO组件，压缩操作跳过。</div>"
Exit Sub
End If
If Fso.FileExists(DBPath) Then
Fso.CopyFile DBPath,strDBPath & "CompactDBTemp.mdb"
Set Engine = CreateObject("JRO.JetEngine")
If BoolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "CompactDBTemp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "CompactDBTemp1.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "CompactDBTemp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "CompactDBTemp1.mdb"
End If
Fso.CopyFile strDBPath & "CompactDBTemp1.mdb",DBPath
Fso.DeleteFile(strDBPath & "CompactDBTemp.mdb")
Fso.DeleteFile(strDBPath & "CompactDBTemp1.mdb")
Set Fso = nothing
Set Engine = nothing
If Err.Number <> 0 Then
Err.Clear()
response.write "<div style=""color:#ff0000;""><b>出错原因" & Err.Description & "操作,压缩操作跳过。</b></div>"
Exit Sub
End If
response.write "<div style=""color:#ff0000;"">你的数据库, " & Replace(DBPath,"\","\\") & ", 已经压缩成功!</div>"
Else
response.write "<div style=""color:#ff0000;"">数据库名称或路径不正确. 请重试!</div>"
End If
End Sub
