【www.gdgbn.com--CMS技巧】

<%
""#######以下是一个类文件，下面的注解是调用类的方法################################################
""# 注意：如果系统不支持建立Scripting.FileSystemObject对象，那么数据库压缩功能将无法使用
""# Access 数据库类
""# CreateDbFile 建立一个Access 数据库文件
""# CompactDatabase 压缩一个Access 数据库文件
""# 建立对象方法:
""# Set a = New DatabaseTools
""# by (萧寒雪) s.f.
""#########################################################################################
Class DatabaseTools
Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath)
""建立数据库文件
""If DbVer is 0 Then Create Access97 dbFile
""If DbVer is 1 Then Create Access2000 dbFile
On error resume Next
If Right(SavePath,1)<>"" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & ""
If Left(dbFileName,1)="" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))
If DbExists(SavePath & dbFileName) Then
Response.Write ("对不起，该数据库已经存在!")
CreateDBfile = False
Else
Dim Ca
Set Ca = Server.CreateObject("ADOX.Catalog")
If Err.number<>0 Then
Response.Write ("无法建立，请检查错误信息
" & Err.number & "
" & Err.Description)
Err.Clear
Exit function
End If
If DbVer=0 Then
call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName)
Else
call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName)
End If
Set Ca = Nothing
CreateDBfile = True
End If
End function
Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)
""压缩数据库文件
""0 为access 97
""1 为access 2000
On Error resume next

本文来源：http://www.gdgbn.com/wangyezhizuo/2795/