asp高难度问题?高手进!

来源：百度知道 编辑：UC知道 时间：2024/06/18 15:39:17
请问各位高手:
如何通过asp来压缩数据库呢?还有清空数据库,还原数据库呢?它的原理是怎样的呀?请指点一下,谢谢了.

ASP 压缩数据库的例子
DIm Objfso
Objfso = "Scripting.FileSystemObject"
Dim Db
Db="dvbbs7.asp" '这里请根据你实际数据库名称替换
Call Compact

Sub Compact
Response.Write CompactDB(Server.Mappath(db),false)
End Sub
'=====================压缩数据库=========================
Function CompactDB(dbPath, boolIs97)
On Error Resume Next
Dim fso, Engine, strDBPath,JET_3X
strDBPath = left(dbPath,instrrev(DBPath,"\"))
Set fso = CreateObject(Objfso)
If Err Then
Err.Clear
CompactDB = Lang.item("g_110") & vbCrLf
Exit Function
End If
If fso.FileExists(dbPath) Then
fso.CopyFile dbpath,strDBPath & "temp.mdb"
Set Engine = CreateObject("JRO.JetEngine")

If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb&qu