ASP.Net中怎样在线压缩Access数据库？如果下载－压缩-上传太麻烦。

Question

asp的代码,asp.net差不多:
Sub dbCompact()
 Const Jet_Conn_Partial = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  
Dim strDatabase,  strFileName strDatabase = Server.MapPath("friend.asp") 
Dim SourceConn 
Dim DestConn 
Dim oJetEngine 
Dim oFSO SourceConn = Jet_Conn_Partial & strDatabase 
DestConn = Jet_Conn_Partial &  strDatabase & "T"Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 
Set oJetEngine = Server.CreateObject("JRO.JetEngine") With oFSO If Not .FileExists( strDatabase) Then 
Response.Write ("Not Found: " &  strDatabase) 
Stop 
Else 
If .FileExists( strDatabase& "T") Then 
Response.Write ("Something went wrong last time " _ 
& "Deleting old database... Please try again") 
.DeleteFile ( strDatabase & "T") 
End If 
End If 
End With   
call oJetEngine.CompactDatabase (SourceConn, DestConn ) 
oFSO.DeleteFile  strDatabase 
oFSO.MoveFile  strDatabase& "T", strDatabase Set oFSO = Nothing 
Set oJetEngine = Nothing 
End Sub sub repair()
dim dbEngine
Set dbEngine = Server.CreateObject("JRO.JetEngine") 
DBEngine.RepairDatabase strDatabase
Set dbEngine = Nothing 
end sub