asp备份access数据库

<%@ Language=VBScript %>
Dim dbPath, backupPath, fso, db, bakFile

' 设置数据库路径和备份路径
dbPath = "C:\path\to\your\database.mdb"
backupPath = "C:\path\to\backup\database_backup_" & FormatDateTime(Date, vbShortDate) & ".mdb"

' 创建文件系统对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 检查备份目录是否存在，如果不存在则创建
If Not fso.FolderExists(Left(backupPath, InStrRev(backupPath, "\"))) Then
    fso.CreateFolder Left(backupPath, InStrRev(backupPath, "\"))
End If

' 创建备份文件
bakFile = fso.CreateTextFile(backupPath, True)

' 打开数据库
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath

' 执行备份命令
db.Execute "BACKUP DATABASE " & dbPath & " TO DISK='" & backupPath & "'"

' 关闭数据库连接
db.Close

' 清理对象
Set db = Nothing
Set fso = Nothing

Response.Write "Database backup completed successfully."