<%
'###### Ce qui suit est un fichier de classe, et l'annotation suivante est la méthode pour appeler le classe############################################################################################################### ####################################################################################################################
'#Note: Si le système ne prend pas en charge la création de l'objet Scripting.FileSystemObject, la fonction de compression de la base de données ne sera pas utilisée.
«Classe de base de données #Access
'#CreatedBFile crée un fichier de base de données d'accès
'#CompactDatabase compresse un fichier de base de données d'accès
«Méthode d'objet #create:
'# Seta = newdatabasetools
'#By (Xiao Hanxue) SF
'##############################################################################################
ClassDatabasetools
PublicFonctionCreatedBFile (ByValdBFilename, ByValdBver, ByvalSavepath)
'Créer un fichier de base de données
'Ifdbveris0thenreateAccess97dbfile
'Ifdbveris1thenreateAccess2000dbfile
Onerrorresumenext
Ifright (sauvegarde, 1) <> "/" Orright (SavePath, 1) <> "/" thensavepath = Trim (SavePath) & "/"
Ifleft (dbFileName, 1) = "/" orleft (dbFileName, 1) = "/" thendbFileName = Trim (mid (dbFileName, 2, Len (dbFileName))))
Ifdbexists (sauvepath & dbfilename) alors
Response.Write ("Désolé, cette base de données existe déjà!")
CrééBFile = false
Autre
Dimca
Setca = server.createObject ("Adox.catalog")
IFerr.Number <> 0THEN
Response.Write ("Impossible d'être établi, veuillez vérifier le message d'erreur
"& Err.number &"
"& Err.description)
Err.Clear
Sortie
Endire
Ifdbver = 0Then
callca.create ("provider = Microsoft.Jet.oledb.3.51; DataSource =" & SavePath & dbFileName)
Autre
callca.create ("provider = Microsoft.Jet.oledb.4.0; DataSource =" & SavePath & dbFileName)
Endire
Setca = rien
CreatedBFile = True
Endire
Finition de fin
PublicFonctionCompactDatabase (ByValdBFilename, ByValdbver, ByvalSavepath)
«Fichiers de base de données de compression
'0 pour l'accès97
'1 est Access2000
Onerrorresumenext
Ifright (sauvegarde, 1) <> "/" Orright (SavePath, 1) <> "/" thensavepath = Trim (SavePath) & "/"
Ifleft (dbFileName, 1) = "/" orleft (dbFileName, 1) = "/" thendbFileName = Trim (mid (dbFileName, 2, Len (dbFileName))))
Ifdbexists (sauvepath & dbfilename) alors