<%
'###### a seguir é um arquivo de classe, e a anotação a seguir é o método de chamar o aula############################################################################################################### ###########.##.##.##CONHon###N###T.C.T.C.Ndon##T.C.C. NONás
'# Nota: se o sistema não suportar a criação do objeto Scripting.FilesystemObject, a função de compactação do banco de dados não será usada.
'# Classe de banco de dados de acesso
'# CreateDBFile cria um arquivo de banco de dados de acesso
'# CompactDatabase comprime um arquivo de banco de dados de acesso
'# Criar método de objeto:
'# Set A = Novo DatabaseTools
'# por (xiao hanxue) sf
'#########################################################################################
Classe DatabaseTools
Função pública CreateDBFile (ByVal DBFileName, Byval DBVER, BYVAL SAVEPATH)
'Crie um arquivo de banco de dados
'Se o dbver for 0, crie Access97 dbfile
'Se o dbver for 1, crie Access2000 dbfile
Em erro de erro em seguida
Se à direita (salveira, 1) <> "/" ou à direita (salvina, 1) <> "/" então salvarpath = Trim (salveira) & "/"
Se esquerdo (dbfileName, 1) = "/" ou esquerda (dbfileName, 1) = "/" então dbfileName = TRIM (MID (dbfileName, 2, len (dbfileName))))
Se dBexists (savepath & dbfileName) então
Response.Write ("Desculpe, este banco de dados já existe!")
CreateDBFile = false
Outro
Dim ca
Definir CA = Server.CreateObject ("Adox.catalog")
Se err.number <> 0 então
Response.Write ("Não pode ser estabelecido, verifique a mensagem de erro
"& Err.number &"
"& Err.Description)
Err.clear
Função de saída
Final se
Se dbver = 0 então
Ligue para C.Create ("Provedor = Microsoft.Jet.oledb.3.51; Data Source =" & SavePath & dbfileName)
Outro
Ligue para C.Create ("Provedor = Microsoft.Jet.oledb.4.0; Data Source =" & SavePath & dbfileName)
Final se
Definir CA = nada
CreateDBFile = true
Final se
Função final
Função pública CompactDatabase (ByVal DBFilename, Byval DBVER, BYVAL SAVEPATH)
'Compacte arquivos de banco de dados
'0 para acesso 97
'1 para acessar 2000
Em erro de erro em seguida
Se à direita (salveira, 1) <> "/" ou à direita (salvina, 1) <> "/" então salvarpath = Trim (salveira) & "/"
Se esquerdo (dbfileName, 1) = "/" ou esquerda (dbfileName, 1) = "/" então dbfileName = TRIM (MID (dbfileName, 2, len (dbfileName))))
Se dBexists (savepath & dbfileName) então
Response.Write ("Desculpe, este banco de dados já existe!")
CompactDatabase = false
Outro
Dim CD
Definir CD = server.createObject ("jro.jetengine")
Se err.number <> 0 então
Response.Write ("Não é possível compactar, verifique a mensagem de erro
"& Err.number &"
"& Err.Description)
Err.clear
Função de saída
Final se
Se dbver = 0 então
Ligue para CD.compactDatabase ("Provedor = Microsoft.Jet.oledb.3.51; Data Source =" & SavePath & dbfileName "," Provider = Microsoft.Jet.oledb.3.51; Data
Fonte = "& salvath e dbfilename &" .bak.mdb; jet oledb; banco de dados Encrypt = true ")
Outro
Ligue para CD.compactdatabase ("Provedor = Microsoft.Jet.oledb.4.0; Data Source =" &
SavePath & dbfileName, "Provider = Microsoft.Jet.oledb.4.0; Data Source =" &
SavePath & dbfilename & ".Bak.mdb; jet olEdb; banco de dados Encrypt = true")
Final se
'Exclua arquivos de banco de dados antigos
Ligue para DeLeteFile (SavePath & dbfileName)
'Restaure o arquivo de banco de dados compactado