asp mysql备份,用ASP备份和还原sql server数据库

数字人 发表于：2006-2-16 21:47:14

SQL Server 数据库的备份与恢复

On Error Resume Next

'默认的常量

Const conDefaultDBServerName = "localhost"

Const conDefaultDBName = "db"

Const conDefaultDBUserName = "sa"

Const conDefaultDBUserPwd = ""

Dim strDefaultBackupFile

'定义变量

Dim strDBServerName, strDBName, strDBUserName, strDBUserPwd

Dim strAct                  '数据库操作类型(Buckup,Restore)

Dim strBackupFile           '数据库备份的目的文件和恢复的源文件

Dim intLoginTimeout         '数据库登录超时时间

'变量初始化

strDBServerName = Request.Form("DBServerName")

strDBName = Request.Form("DBName")

strDBUserName = Request.Form("DBUserName")

strDBUserPwd = Request.Form("DBUserPwd")

strAct = Request.Form("Act")

strBackupFile = Request.Form("BackupFile")

intLoginTimeout = 15

'.sdb means SQL Data Backup File

If Trim(strBackupFile) = "" Then

strBackupFile = Server.MapPath("./") & "\" & Year(Now) & "_" & Month(Now) & Day(Now) & ".sdb"

End If

'Response.Write("strBackupFile:" & strBackupFile)

'执行操作

If strAct <> "" Then

Select Case strAct

Case "Buckup"

Call BackupDB(strDBServerName, strDBName, strDBUserName, strDBUserPwd, strBackupFile, intLoginTimeout)

strMessage = "备份数据库成功！"

Case "Restore"

Call RestoreDB(strDBServerName, strDBName, strDBUserName, strDBUserPwd, strBackupFile, intLoginTimeout)

strMessage = "还原数据库成功！"

Case Else

strMessage = "错误的操作类型！"

End Select

If Err.Number Then

'Call ShowMsg("发生未知的错误，请与技术支持人员联系！", "history.back();")

Response.Write(Err.Description)

Err.Clear

On Error GoTo 0

Else

Call ShowMsg(strMessage, "window.close();")

End If

End If

Sub ShowMsg(sMsg, sOper)

sMsg = Replace(sMsg, "'", "\'")

Response.Write ("

Response.Write ("