<%
'#######以下是一個類文件,下面的註解是調用類的方法################################################
'#注意:如果系統不支持建立Scripting.FileSystemObject對象,那麼數據庫壓縮功能將無法使用
'#Access數據庫類
'#CreateDbFile建立一個Access數據庫文件
'#CompactDatabase壓縮一個Access數據庫文件
'#建立對象方法:
'#Seta=NewDatabaseTools
'#by(蕭寒雪)sf
'#########################################################################################
ClassDatabaseTools
PublicfunctionCreateDBfile(byValdbFileName,byValDbVer,byValSavePath)
'建立數據庫文件
'IfDbVeris0ThenCreateAccess97dbFile
'IfDbVeris1ThenCreateAccess2000dbFile
OnerrorresumeNext
IfRight(SavePath,1)<>"/"orRight(SavePath,1)<>"/"ThenSavePath=Trim(SavePath)&"/"
IfLeft(dbFileName,1)="/"orLeft(dbFileName,1)="/"ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName)))
IfDbExists(SavePath&dbFileName)Then
Response.Write("對不起,該數據庫已經存在!")
CreateDBfile=False
Else
DimCa
SetCa=Server.CreateObject("ADOX.Catalog")
IfErr.number<>0Then
Response.Write("無法建立,請檢查錯誤信息
"&Err.number&"
"&Err.Description)
Err.Clear
Exitfunction
EndIf
IfDbVer=0Then
callCa.Create("Provider=Microsoft.Jet.OLEDB.3.51;DataSource="&SavePath&dbFileName)
Else
callCa.Create("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&SavePath&dbFileName)
EndIf
SetCa=Nothing
CreateDBfile=True
EndIf
Endfunction
PublicfunctionCompactDatabase(byValdbFileName,byValDbVer,byValSavePath)
'壓縮數據庫文件
'0為access97
'1為access2000
OnErrorresumenext
IfRight(SavePath,1)<>"/"orRight(SavePath,1)<>"/"ThenSavePath=Trim(SavePath)&"/"
IfLeft(dbFileName,1)="/"orLeft(dbFileName,1)="/"ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName)))
IfDbExists(SavePath&dbFileName)Then