asp备份sql数据库代码

<%@ Language=VBScript %>
<%
Dim conn, cmd, backupPath, dbName

' 设置数据库连接信息
conn = "Provider=SQLOLEDB;Data Source=your_server_name;Initial Catalog=your_database_name;Integrated Security=SSPI;"
dbName = "your_database_name"

' 设置备份路径
backupPath = "C:\Backup\your_database_name_" & Date & ".bak"

' 创建并打开数据库连接
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open conn

' 创建并执行备份命令
Set cmd = Server.CreateObject("ADODBC.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
%>