<%
'###### Im Folgenden finden Sie eine Klassendatei, und die folgende Annotation ist die Methode zum Aufrufen der Klasse############################################################################################################### ####################################################################################################################
'# Hinweis: Wenn das System die Erstellung von Scripting.FilesSystemObject -Objekt nicht unterstützt, wird die Datenbankkomprimierungsfunktion nicht verwendet.
'# Zugriffsdatenbankklasse
'# CreatedBFile erstellt eine Zugriffsdatenbankdatei
'# CompactDatabase komprimiert eine Zugriffsdatenbankdatei
'# Objektmethode erstellen:
'# Setze a = neue Datenbanksetools
'# von (xiao hanxue) sf
'#########################################################################################
Klassendatenbank
Öffentliche Funktion erstellte BFILE (Byval dbFileName, Byval dbver, Byval SavePath)
'Erstellen Sie eine Datenbankdatei
'Wenn dbver 0 ist, erstellen Sie Access97 DBFile
'Wenn dbver 1 ist, erstellen Sie Access2000 DBFile
Bei der nächsten Fehleraufnahme als nächstes
Wenn rechts (SavePath, 1) <> "/" oder rechts (Speichernpath, 1) <> "/" Dann speichernpath = trim (SavePath) & "/"
Wenn Sie links (dbFileName, 1) = "/" oder links (dbfilename, 1) = "/" Dann dbFileName = trim (Mid (dbFileName, 2, Len (dbfilename))))
Wenn dBexists (SavePath & dbFileName) dann dann
Antwort.Write ("Entschuldigung, diese Datenbank existiert bereits!")
CreatedbFile = false
Anders
Dim ca
Set Ca = Server.CreateObject ("adox.catalog")
Wenn err.number <> 0 dann
Antwort.Write ("Kann nicht festgelegt werden, bitte prüfen Sie auf Fehlermeldung
"& Err.number &"
"& Err.description)
Err.clear
Ausgangsfunktion
Ende wenn
Wenn dbver = 0 dann
Rufen Sie ca.create ("Provider = microsoft.jet.oledb.3.51; Data Source =" & SavePath & dbFileName) an.
Anders
Rufen Sie Ca.Create ("Provider = microsoft.jet.oledb.4.0; Data Source =" & SavePath & dbFileName) an.
Ende wenn
Setzen Sie ca = nichts
CreatedbFile = true
Ende wenn
Endfunktion
Öffentliche Funktion CompactDatabase (Byval DBFileName, Byval Dbver, Byval SavePath)
'Datenbankdateien komprimieren
'0 für Zugang 97
'1 für Zugang 2000
Bei der nächsten Fehleraufnahme als nächstes
Wenn rechts (SavePath, 1) <> "/" oder rechts (Speichernpath, 1) <> "/" Dann speichernpath = trim (SavePath) & "/"
Wenn Sie links (dbFileName, 1) = "/" oder links (dbfilename, 1) = "/" Dann dbFileName = trim (Mid (dbFileName, 2, Len (dbfilename))))
Wenn dBexists (SavePath & dbFileName) dann dann
Antwort.Write ("Entschuldigung, diese Datenbank existiert bereits!")
CompactDatabase = false
Anders
Dim CD
Setzen Sie CD = Server.createObject ("jro.jentengine")
Wenn err.number <> 0 dann
Antwort.Write ("Nicht komprimieren, bitte prüfen Sie die Fehlermeldung
"& Err.number &"
"& Err.description)
Err.clear
Ausgangsfunktion
Ende wenn
Wenn dbver = 0 dann
Rufen Sie CD.comPactDatabase auf ("Provider = microsoft.jet.oledb.3.51; Data Source =" & SavePath & DBFileName, "Provider = Microsoft.jet.OLEDB.3.51; Data;
Source = "& SavePath & dbFileName &" .bak.mdb;
Anders
Call CD.comPactDatabase ("Provider = microsoft.jet.oledb.4.0; Data Source =" &
SavePath & dbFileName, "Provider = microsoft.jet.oledb.4.0; Data Source =" &
SavePath & dbFileName & ".bak.mdb;
Ende wenn
'Alte Datenbankdateien löschen
Rufen Sie DeleteFile an (SavePath & DBFileName)
„Stellen Sie die komprimierte Datenbankdatei wieder her