sysbackup.aspx.vb

电子合同管理系统C#

Imports System.Data.SqlClient
Imports System.IO
Public Class SysBackUp
    Inherits System.Web.UI.Page
    Protected WithEvents BackUpBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents RestoreBtn As System.Web.UI.WebControls.LinkButton

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If System.IO.File.Exists(Server.MapPath("Database_BackUp\") + "DBbackup") Then
            RestoreBtn.Visible = True
        Else
            RestoreBtn.Visible = False
        End If
    End Sub

    Private Sub BackUpBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackUpBtn.Click
        Dim sqlstr As String = "backup database Contract to Disk='" + Server.MapPath("Database_BackUp\") + "DBbackup'"
        Dim obj As DBController = New DBController()
        Dim objLog As SysLog = New SysLog()
        Dim UserInfo As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        Try
            obj.ExecNonSql(sqlstr)
            objLog.AddLog(UserInfo, "系统备份", Request.UserHostAddress.ToString, "成功")
        Catch
            objLog.AddLog(UserInfo, "系统备份", Request.UserHostAddress.ToString, "失败")
            Response.Write("<script>javascript:alert('系统备份失败！！！');</script>")
            Response.Write(sqlstr)
            Response.End()
        End Try
        obj.Close()
        Response.Write("<script>javascript:alert('系统备份成功！！！');</script>")
        RestoreBtn.Visible = True
    End Sub

    Private Sub RestoreBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RestoreBtn.Click

        Dim sqlstr As String = "restore database Contract from Disk='" + Server.MapPath("Database_BackUp\") + "DBbackup'"
        Dim Connstr As String = System.Configuration.ConfigurationSettings.AppSettings("ConnectionString").ToString.Trim
        Connstr = Connstr.Replace("Contract", "master")
        Dim conn As SqlConnection = New SqlConnection(Connstr)

        Dim UserInfo As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        Try
            conn.Open()
            Dim Cmd As SqlCommand = New SqlCommand(sqlstr, conn)
            Cmd.ExecuteNonQuery()
            Dim obj As DBController = New DBController()
            Dim objLog As SysLog = New SysLog()
            obj.ExecNonSql(sqlstr)
            obj.Close()
            objLog.AddLog(UserInfo, "系统还原", Request.UserHostAddress.ToString, "成功")
        Catch
            Dim objLog As SysLog = New SysLog()
            objLog.AddLog(UserInfo, "系统还原", Request.UserHostAddress.ToString, "失败")
            Response.Write("<script>javascript:alert('有用户正在使用这个数据库，系统还原失败！！！');</script>")
            Response.Write("<Td>您可以重新SQL Server服务管理器，然后查询分析器里运行此SQL语句：</td>")
            Response.Write("<Td>" + sqlstr + "</td>")

            Response.End()
        Finally
            conn.Close()
        End Try
        '
        Response.Write("<script>javascript:alert('系统还原成功！！！');</script>")

    End Sub
End Class