純編碼實(shí)現(xiàn)Access數(shù)據(jù)庫的建立或壓縮

<%
    ’#######以下是一個(gè)類文件，下面的注解是調(diào)用類的方法################################################
    ’# 注意：如果系統(tǒng)不支持建立Scripting.FileSystemObject對(duì)象，那么數(shù)據(jù)庫壓縮功能將無法使用
    ’# Access 數(shù)據(jù)庫類
    ’# CreateDbFile 建立一個(gè)Access 數(shù)據(jù)庫文件
    ’# CompactDatabase 壓縮一個(gè)Access 數(shù)據(jù)庫文件
    ’# 建立對(duì)象方法:
    ’# Set a = New DatabaseTools
    ’# by (蕭寒雪) s.f.
    ’#########################################################################################
    Class DatabaseTools
    Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath)
    ’建立數(shù)據(jù)庫文件
    ’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 ("對(duì)不起，該數(shù)據(jù)庫已經(jīng)存在!")
    CreateDBfile = False
    Else
    Dim Ca
    Set Ca = Server.CreateObject("ADOX.Catalog")
    If Err.number<>0 Then
    Response.Write ("無法建立，請(qǐng)檢查錯(cuò)誤信息
    " & 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