<%
'###### Ce qui suit est un fichier de classe, et l'annotation suivante est la méthode pour appeler le classe############################################################################################################### ####################################################################################################################
'# Remarque: 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 d'accès
'# 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
'# Créer une méthode d'objet:
'# Définissez A = Nouveau Databasetools
'# par (xiao hanxue) sf
'##############################################################################################
Class Databasetols
Fonction publique CreatedBfile (ByVal dbFilename, byval dbver, byval savepath)
'Créer un fichier de base de données
'Si dbver est 0, créez un accès 97 dbfile
'Si dbver est 1, créez un accès 2000 dbfile
Sur l'erreur reprendre ensuite
Si bien (sauvegarde, 1) <> "/" ou droit (sauvegarde, 1) <> "/" puis sauverpath = TRIM (SAVEPATH) & "/"
Si vous êtes laissé (dbFileName, 1) = "/" ou gauche (dbFileName, 1) = "/" puis dbFileName = Trim (mid (dbFileName, 2, Len (dbFileName))))
Si les dbexistes (sauvegarde et dbfilename)
Response.Write ("Désolé, cette base de données existe déjà!")
CrééBFile = false
Autre
Cra sombre
SET CA = Server.CreateObject ("Adox.Catalog")
Si err.number <> 0 alors
Response.Write ("Impossible d'être établi, veuillez vérifier le message d'erreur
"& Err.number &"
"& Err.description)
Err.Clear
Fonction de sortie
Terminer si
Si dbver = 0 alors
Appelez CA.Create ("Provider = Microsoft.Jet.oledb.3.51; Data Source =" & SavePath & DbFileName)
Autre
Appelez CA.Create ("Provider = Microsoft.Jet.oledb.4.0; Data Source =" & SavePath & DbFileName)
Terminer si
Définir Ca = rien
CreatedBFile = True
Terminer si
Fonction finale
Fonction publique CompactDatabase (byval dbFileName, byval dbver, byval savepath)
«Fichiers de base de données de compression
'0 pour l'accès 97
'1 pour l'accès 2000
Sur l'erreur reprendre ensuite
Si bien (sauvegarde, 1) <> "/" ou droit (sauvegarde, 1) <> "/" puis sauverpath = TRIM (SAVEPATH) & "/"
Si vous êtes laissé (dbFileName, 1) = "/" ou gauche (dbFileName, 1) = "/" puis dbFileName = Trim (mid (dbFileName, 2, Len (dbFileName))))
Si les dbexistes (sauvegarde et dbfilename)
Response.Write ("Désolé, cette base de données existe déjà!")
CompactDatabase = false
Autre
Cd dim
Set cd = server.createObject ("jro. jetEngine")
Si err.number <> 0 alors
Response.Write ("Impossible de compresser, veuillez vérifier le message d'erreur
"& Err.number &"
"& Err.description)
Err.Clear
Fonction de sortie
Terminer si
Si dbver = 0 alors
Appelez cd.compactDatabase ("provider = Microsoft.jet.oledb.3.51; Data Source =" & SavePath & dbFileName "
Source = "& SavePath & dbFileName &" .bak.mdb; Jet Oledb; Encrypt Database = True ")
Autre
Appelez cd.compactDatabase ("provider = Microsoft.jet.oledb.4.0; Data Source ="
SavePath & dbFileName, "Provider = Microsoft.Jet.oledb.4.0; Data Source ="
SavePath & dbFileName & ".bak.mdb; Jet Oledb; Base de données Ecrypt = True")
Terminer si
«Supprimer les anciens fichiers de base de données
Appelez DeleteFile (SavePath & DbFileName)
'Restaurer le fichier de base de données compressée