asp备份sql数据库

<%@ Language=VBScript %>
<%
    Dim conn, cmd, backupPath
    Dim dbName As String = "YourDatabaseName"
    Dim backupDir As String = "C:\Backups\"

    ' 设置备份路径
    backupPath = backupDir & dbName & "_" & Format(Date, "yyyyMMddHHmmss") & ".bak"

    ' 创建数据库连接
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=YourServerName;Initial Catalog=" & dbName & ";Integrated Security=SSPI;"

    ' 创建备份命令
    Set cmd = Server.CreateObject("ADODB.Command")
    cmd.ActiveConnection = conn
    cmd.CommandText = "BACKUP DATABASE [" & dbName & "] TO DISK = N'" & backupPath & "' WITH NOFORMAT, NOINIT, NAME = N'" & dbName & "-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10"
    cmd.Execute

    ' 关闭连接
    cmd.ActiveConnection.Close
    Set cmd = Nothing
    Set conn = Nothing

    Response.Write "Database backup completed successfully at " & backupPath
%>