<%
'###### Berikut ini adalah file kelas, dan anotasi berikut adalah metode memanggil kelas############################################################################################################### ########################################################
'# Catatan: Jika sistem tidak mendukung pembuatan objek Scripting.FilesystemObject, fungsi kompresi database tidak akan digunakan.
'# Akses kelas database
'# CreateBFile Membuat file database akses
'# CompactDatabase mengompres file database akses
'# Buat metode objek:
'# Set A = DataBasetools baru
'# oleh (xiao hanxue) sf
'######################################################
Kelas Databasetools
Fungsi Publik CreateBFile (ByVal DBFileName, Byval DBVER, ByVal Savepath)
'Buat file database
'Jika DBVER adalah 0 maka buat Access97 DBFile
'Jika DBVER 1 maka buat Access2000 DBFile
Pada kesalahan resume berikutnya
Jika benar (savePath, 1) <> "/" atau kanan (savePath, 1) <> "/" lalu savePath = trim (savePath) & "/"
Jika kiri (dbfilename, 1) = "/" atau kiri (dbfileName, 1) = "/" lalu dbfileName = trim (mid (dbfilename, 2, len (dbfileName))))
Jika dbexists (savepath & dbfileName)
Response.write ("Maaf, basis data ini sudah ada!")
CreatedBfile = false
Kalau tidak
Redup ca
Setel ca = server.createObject ("adox.catalog")
Jika err.number <> 0 lalu
Response.write ("tidak dapat ditetapkan, silakan periksa pesan kesalahan
"& Err.number &"
"& Err.Description)
Err.clear
Fungsi keluar
Akhiri jika
Jika dbver = 0 lalu
hubungi ca.create ("penyedia = microsoft.jet.oledb.3.51; Sumber data =" & savePath & dbfileName)
Kalau tidak
hubungi ca.create ("penyedia = microsoft.jet.oledb.4.0; Sumber data =" & savePath & dbfileName)
Akhiri jika
Setel ca = tidak ada
CreatedBfile = true
Akhiri jika
Fungsi akhir
Fungsi Publik CompactDatabase (Byval DBFileName, Byval DBVER, ByVal Savepath)
'Kompres file database
'0 untuk akses 97
'1 untuk akses 2000
Pada kesalahan resume berikutnya
Jika benar (savePath, 1) <> "/" atau kanan (savePath, 1) <> "/" lalu savePath = trim (savePath) & "/"
Jika kiri (dbfilename, 1) = "/" atau kiri (dbfileName, 1) = "/" lalu dbfileName = trim (mid (dbfilename, 2, len (dbfileName))))
Jika dbexists (savepath & dbfileName)
Response.write ("Maaf, basis data ini sudah ada!")
Compactdatabase = false
Kalau tidak
CD redup
Setel CD = Server.CreateObject ("jro.jetengine")
Jika err.number <> 0 lalu
Response.write ("tidak dapat mengompres, silakan periksa pesan kesalahan
"& Err.number &"
"& Err.Description)
Err.clear
Fungsi keluar
Akhiri jika
Jika dbver = 0 lalu
Hubungi CD.COMPACTDataBase ("Penyedia = Microsoft.jet.oledb.3.51; Sumber Data =" & SavePath & DBFileName, "Provider = microsoft.jet.oledb.3.51; data
Source = "& savePath & dbfileName &" .bak.mdb; jet oledb; enkripsi database = true ")
Kalau tidak
Hubungi CD.COMPACTDataBase ("Penyedia = Microsoft.jet.oledb.4.0; Sumber Data =" & &
SavePath & dbfilename, "penyedia = microsoft.jet.oledb.4.0; sumber data =" & &
SavePath & dbfileName & ".bak.mdb; jet oledb; Encrypt Database = true")
Akhiri jika
'Hapus file database lama
Hubungi DeleteFile (SavePath & DBFileName)
'Kembalikan file database terkompresi