广汉网站设计ASP+SQLServer2000数据库备份与恢复_公司最新新闻

<%
'数据库备份
Function DbBackup(DbName, FileName, BackupType)
On Error Resume Next

     Err.Clear

     Dim strSQL
     Dim objConn

Set objConn = Server.CreateObject("ADODB.CONNECTION")
objConn.Open "provider=sqloledb;data source=(local);initial catalog=MyDB;user id=sa;password=;"

     Select Case BackupType
     Case "all" '完全备份
         strSQL = "BACKUP DATABASE [" & DbName & "] TO DISK='" & FileName & "' WITH FORMAT, NAME='Full Backup of [" & DbName & "]'"
     Case "dif" '差异备份
         strSQL = "BACKUP DATABASE [" & DbName & "] TO DISK='" & FileName & "' WITH DIFFERENTIAL, NAME='Different Backup of [" & DbName & "]'"
     End Select

     objConn.Execute strSQL   'objConn为数据库连接对象

     If Err.Number <> 0 Then
         DbBackup = False
     Else
         DbBackup = True
     End If

     objConn.Close
     Set objConn = Nothing

End Function

'数据库恢复
Function DbRestore(DbName, FileName)
On Error Resume Next

     Err.Clear

     Dim strSQL
     Dim iRe
     Dim iSQL

     Dim objConn

Set objConn = Server.CreateObject("ADODB.CONNECTION")
objConn.Open "provider=sqloledb;data source=(local);initial catalog=MyDB;user id=sa;password=;"

     Set iRe = Server.CreateObject("ADODB.Recordset")
     iSQL = "select spid from master..sysprocesses where dbid=db_id('" & DbName & "')"
     iRe.Open iSQL, objConn, 1, 1
     While Not iRe.EOF
         iSQL = "kill " & iRe(0)
         objConn.Execute iSQL
         iRe.MoveNext
     Wend
     iRe.Close
     Set iRe = Nothing

     strSQL = "RESTORE DATABASE [" & DbName & "] FROM DISK='" & FileName & "'"

     objConn.Execute strSQL

     If Err.Number <> 0 Then
         DbRestore = False
     Else
         DbRestore = True
     End If

objConn.Close
Set objConn = Nothing
End Function
%>