<%
'###### El siguiente es un archivo de clase, y la siguiente anotación es el método para llamar al clase############################################################################################################### #################################################################################################################################################################################################################################.
'# NOTA: Si el sistema no admite la creación de scripting.filesystemObject Object, la función de compresión de la base de datos no se utilizará.
'# Clase de base de datos de acceso
'# Creatingbfile crea un archivo de base de datos de acceso
'# CompactDatabase comprime un archivo de base de datos de acceso
'# Crear método de objeto:
'# Establecer a = nuevo databasetools
'# por (Xiao Hanxue) SF
'#########################################################################################################################################################################.
Clase DataBASETOOLS
Función pública creadabfile (Byval dbFilename, Byval dbver, byval savePath)
'Cree un archivo de base de datos
'Si dbver es 0, cree Access97 DBFile
'Si dbver es 1, cree Access2000 DBFile
En el currículum de error siguiente
Si es correcto (SavePath, 1) <> "/" o Right (SavePath, 1) <> "/" entonces SavePath = TRIM (SavePath) & "/"
Si a la izquierda (dbFileName, 1) = "/" o izquierda (dbFileName, 1) = "/" entonces dbfilename = trim (Mid (dbFileName, 2, len (dbFileName)))))
Si dBExists (SavePath y DBFileName) entonces
Response.write ("Lo siento, esta base de datos ya existe!")
Creadobfile = falso
Demás
CA CA DIME
Establecer CA = Server.CreateObject ("Adox.Catalog")
Si err.number <> 0 entonces
Response.write ("no se puede establecer, verifique el mensaje de error
"& Err.number &"
"& Err.Description)
Err.Clear
Función de salida
Final si
Si dbver = 0 entonces
Llame a CA.Create ("Provider = Microsoft.Jet.OLEDB.3.51; Data Source =" & SavePath & DBFileName)
Demás
Llame a CA.Create ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & SavePath & DBFileName)
Final si
Establecer CA = nada
Creadobfile = true
Final si
Función final
Función pública compactDatabase (Byval dbFilename, Byval dbver, byval savePath)
'Comprimir archivos de base de datos
'0 para el acceso 97
'1 para Access 2000
En el currículum de error siguiente
Si es correcto (SavePath, 1) <> "/" o Right (SavePath, 1) <> "/" entonces SavePath = TRIM (SavePath) & "/"
Si a la izquierda (dbFileName, 1) = "/" o izquierda (dbFileName, 1) = "/" entonces dbfilename = trim (Mid (dbFileName, 2, len (dbFileName)))))
Si dBExists (SavePath y DBFileName) entonces
Response.write ("Lo siento, esta base de datos ya existe!")
CompactDatabase = falso
Demás
CD Dim
Establecer CD = Server.CreateObject ("JRO.JetEngine")
Si err.number <> 0 entonces
Response.Write ("No se puede comprimir, verifique el mensaje de error
"& Err.number &"
"& Err.Description)
Err.Clear
Función de salida
Final si
Si dbver = 0 entonces
Llame a CD.CompActDatabase ("Provider = Microsoft.Jet.OLEDB.3.51; Data Source =" & SavePath & DbFileName, "Provider = Microsoft.Jet.OLEDB.3.51; Data Data
Fuente = "& SavePath & dbfilename &" .bak.mdb; jet OLEDB; CiCrypt Database = True ")
Demás
Llame a 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; cicrypt database = true")
Final si
'Eliminar archivos de base de datos antiguos
Llame a DeleteFile (SavePath y DBFileName)
'Restaurar el archivo de base de datos comprimido