最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp数据库备份代码
时间:2008-05-20 编辑:简简单单 来源:一聚教程网
代码如下 | 复制代码 | ||||||||||||
<% '===================================================================== ' 软件名称:新云网站管理系统 ' 当前版本:NewCloud Site Management System Version 2.1 ' 文件名称:admin_database.asp ' 更新日期:2004-11-20 '===================================================================== ' Copyright 2002-2005 newasp.net - All Rights Reserved. ' newasp is a trademark of newasp.net '===================================================================== Dim bkfolder, bkdbname, fso, fso1 Dim Action Action = LCase(Request("action")) Select Case Action Case "spacesize" '系统空间占用 Case Else ReturnError(ErrMsg) End Select
<% End Sub Sub SQLUserReadme()
<% End Sub '====================数据库更名========================= Sub RenameData() If IsSqlDataBase = 1 Then SQLUserReadme() Exit Sub End If Dim AccDataPath,AccDataName,sAccDataPath AccDataPath = Replace(db,"/","\") sAccDataPath = Split(AccDataPath, "\") AccDataName = sAccDataPath(UBound(sAccDataPath)) %>
<% End Sub '====================恢复数据库========================= Sub RestoreData()
<% Else %>
<% End If End Sub '====================备份数据库========================= Sub BackupData() If IsSqlDataBase = 1 Then %>
<% Else %>
<% End If End Sub Sub BackupDatabase() If IsSqlDataBase = 1 Then
<% End Sub Sub CompressDatabase() If dbpath <> "" Then If fso.FileExists(dbPath) Then If boolIs97 = "True" Then fso.CopyFile strDBPath & "temp1.mdb", dbpath End Function Sub Showspecialspaceinfo(method) If method = "All" Then showsize = Size & " Byte" Function Drawbar(drvpath) drvpath = server.mappath(drvpath) barsize = CDbl((Size / TotalSize) * 400) Function Drawspecialbar() Set fc = d.Files barsize = CDbl((Size / TotalSize) * 400) Sub CheckSql() End If If Trim(Request.Form("SqlUserPass")) = "" Then FoundErr = True ErrMsg = ErrMsg & " End If If Trim(Request.Form("SqlUserID")) = "" Then FoundErr = True ErrMsg = ErrMsg & " End If If Trim(Request.Form("SqlServer")) = "" Then FoundErr = True ErrMsg = ErrMsg & " End If If Trim(Request.Form("BackupSqlName")) = "" Then FoundErr = True ErrMsg = ErrMsg & " End If If Trim(Request.Form("BackupSqlDir")) = "" Then FoundErr = True ErrMsg = ErrMsg & " End If End Sub '====================备份SQL数据库========================= Sub BackupSqlDatabase() On Error Resume Next Dim SqlDataName, SqlUserPass, SqlUserID, SqlServer, SqlLoginTimeout Dim srv, bak, BackupFilePath, BackupSqlDir, BackupSqlName,BackupFileName SqlDataName = Trim(Request.Form("SqlDataName")) SqlUserPass = Trim(Request.Form("SqlUserPass")) SqlUserID = Trim(Request.Form("SqlUserID")) SqlServer = Trim(Request.Form("SqlServer")) BackupSqlDir = Trim(Request.Form("BackupSqlDir")) BackupSqlName = Trim(Request.Form("BackupSqlName")) SqlLoginTimeout = 20 '登陆超时 CheckSql If FoundErr = True Then Exit Sub If CheckDir(BackupSqlDir) = False Then MakeNewsDir BackupSqlDir End If BackupFileName = SqlDataName & "_" & Replace(FormatDateTime(now,2), "-", "") & "_" & Replace(FormatDateTime(now,3), ":", "") BackupFilePath = BackupSqlDir & "\" & BackupSqlName BackupFilePath = Replace(BackupFilePath, "$1", BackupFileName) Set srv = Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = SqlLoginTimeout srv.Connect SqlServer, SqlUserID, SqlUserPass Set bak = Server.CreateObject("SQLDMO.Backup") bak.Database = SqlDataName 'bak.Devices = Files bak.Files = BackupFilePath bak.SQLBackup srv If Err.Number>0 Then Response.Write Err.Number & " " Response.Write Err.Description & "" End If Set srv = Nothing Set bak = Nothing Succeed(" End Sub '====================恢复SQL数据库========================= Sub RestoreSqlDatabase() On Error Resume Next Dim SqlDataName, SqlUserPass, SqlUserID, SqlServer, SqlLoginTimeout Dim srv, rest, BackupFilePath, BackupSqlDir, BackupSqlName, FSO SqlDataName = Trim(Request.Form("SqlDataName")) SqlUserPass = Trim(Request.Form("SqlUserPass")) SqlUserID = Trim(Request.Form("SqlUserID")) SqlServer = Trim(Request.Form("SqlServer")) BackupSqlDir = Trim(Request.Form("BackupSqlDir")) BackupSqlName = Trim(Request.Form("BackupSqlName")) SqlLoginTimeout = 20 '登陆超时 CheckSql If FoundErr = True Then Exit Sub BackupFilePath = BackupSqlDir & "/" & BackupSqlName BackupFilePath = Replace(BackupFilePath, "$1", SqlDataName) BackupFilePath = Server.MapPath(BackupFilePath) Set FSO = Server.CreateObject("scripting.filesystemobject") If FSO.FileExists(BackupFilePath) Then Set srv = Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = SqlLoginTimeout srv.Connect SqlServer, SqlUserID, SqlUserPass Set rest = Server.CreateObject("SQLDMO.Restore") rest.Action = 0 rest.Database = SqlDataName 'rest.Devices = Files rest.Files = BackupFilePath rest.ReplaceDatabase = True rest.SQLRestore srv If Err.Number>0 Then ErrMsg = ErrMsg & " ErrMsg = ErrMsg & " ErrMsg = ErrMsg & Err.Number & " 'Response.Write Err.Number&" " ErrMsg = ErrMsg & Err.Description&" FoundErr = True Exit Sub End If Set srv = Nothing Set rest = Nothing Succeed(" Else FoundErr = True ErrMsg = "备份目录下并无您的备份文件!" Exit Sub End If Set FSO = Nothing End Sub %> |
相关文章
- ASP备份数据库 01-19
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16