ASP备份SQL Server数据库改进版

改进版ASP备份SQL Server数据库指南

亲爱的朋友们，如果你在网上找到的SQL Server数据库备份原理不够理想，这里有一份改进版的指南供你参考。

表单交互设计

我们提供了一个简单的表单，帮助你完成数据库的备份与恢复操作。请按照以下步骤进行：

```html

选择操作

备份

恢复

数据库名

（请填写需要备份或恢复的数据库名称）

文件路径

（请输入备份或恢复的文件存储路径）注意替换“$1”为您的数据库名称。

```

SQL Server数据库的备份与恢复

当表单提交后，我们将开始执行相应的操作。以下是关键代码段：

```asp

<%

'处理表单提交的动作

If request("action")="manageDatabase" Then

Dim sqlServer, sqlUser, sqlPassword, loginTimeout, dbName, backupFile, action

sqlServer = "localhost"

sqlUser = "sa"

sqlPassword = "password"

loginTimeout = 15

dbName = Trim(request("databaseName"))

backupFile = Trim(request("backupFile"))

backupFile = Replace(backupFile,"$1", dbName)

action = LCase(request("act"))

'验证数据库名称是否为空

If dbName = "" Then

Response.Write("请填写数据库名称")

ElseIf action = "backup" Then

Set srv = Server.CreateObject("SQLDMO.SQLServer")

srv.LoginTimeout = loginTimeout

srv.Connect sqlServer, sqlUser, sqlPassword

Set backup = Server.CreateObject("SQLDMO.Backup")

backup.Database = dbName

backup.Devices = Files

backup.Action = 0

backup.Initialize = True

'backup.Replace = True（根据需要决定是否启用此选项）

backup.Files = backupFile

backup.SQLBackup srv

'检查是否有错误发生并响应错误信息

If err.number > 0 Then

Response.Write "" & err.number & "
" & err.description & ""

Else

Response.Write "备份成功！"

End If

ElseIf action = "restore" Then

'恢复操作需要在没有使用数据库时进行，确保数据库处于安全状态。具体操作细节略。

'...（恢复操作的代码段）...

End If

创建一个服务器对象来处理SQL Server的连接。设置登录超时时间，并与SQL服务器建立连接。接着，为了数据库的恢复操作，我们再创建一个恢复对象。

```vbscript

Set srv = Server.CreateObject("SQLDMO.SQLServer")

srv.LoginTimeout = sqlLoginTimeout

srv.Connect sqlserver, sqlname, sqlpassword

Set rest = Server.CreateObject("SQLDMO.Restore")

rest.Action = 0 ' 表示执行完整数据库恢复操作

rest.Database = databasename ' 指定要恢复的数据库名称

rest.Devices = Files ' 设置设备类型为文件

rest.Files = bak_file ' 指定备份文件的路径

rest.ReplaceDatabase = True ' 如果目标数据库已存在，则强制覆盖

' 开始数据库恢复操作

If rest.SQLRestore Then

Response.write "恢复成功!"

Else

Response.write "数据库恢复失败，未执行操作。"

End If

```

在执行恢复操作时，我们可能会遇到一些错误，为了友好地展示错误信息，我们增加错误处理机制：

```vbscript

On Error Resume On ' 开启错误处理机制

'... [之前的代码不变] ...

If Err.Number > 0 Then ' 如果发生错误

Response.write Err.Number & "
" & Err.Description & ""

End If

```

为了使代码更加有条理和美观，可以适当添加注释和空行分隔代码块：

```vbscript

' 创建SQL Server连接对象并设置登录超时时间

Set srv = Server.CreateObject("SQLDMO.SQLServer")

srv.LoginTimeout = sqlLoginTimeout

srv.Connect sqlserver, sqlname, sqlpassword

' 创建数据库恢复对象并设置相关参数

Set rest = Server.CreateObject("SQLDMO.Restore")

rest.Action = 0 ' 执行数据库恢复操作

'... [其他设置不变] ...

' 开始数据库恢复操作并处理可能的错误情况

On Error Resume On ' 开启错误处理机制

'... [之前的恢复操作代码不变] ...

If Err.Number > 0 Then ' 错误处理

'... [展示错误信息不变] ...

End If

If rest.SQLRestore Then ' 检查是否成功执行恢复操作并给出相应提示信息（成功或失败）不变] ...