用Asp备份与恢复SQL Server 数据库_ASP教程

用Asp备份与恢复SQL Server 数据库

2019-11-05 10:37asp教程网 ASP教程

一个用asp备份与恢复SQL Server数据库的例子代码，希望对一些朋友有用。(注意：数据库使用中可能无法恢复)

复制代码代码如下:

	
	<HTML> 

	<HEAD>

	<TITLE>SQL Server 数据库的备份与恢复</TITLE> 

	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

	</HEAD>

	<BODY> 

	<form method="post" name=myform> 

	选择操作：<INPUT TYPE="radio" NAME="act" id="act_backup"  value="backup"><label for=act_backup>备份</label>　 

	<INPUT TYPE="radio" NAME="act" id="act_restore" value="restore"><label for=act_restore>恢复</label> 

	<br>数据库名：<INPUT TYPE="text" NAME="databasename" value="<%=request("databasename")%>"> 

	<br>文件路径：<INPUT TYPE="text" NAME="bak_file" value="c:\$1.bak">(备份或恢复的文件路径)<br> 

	<input type="submit" value="确定"> 

	</form> 

	<% 

	'SQL Server 数据库的备份与恢复! 

	'海娃 

	'http://www.51windows.Net 

	dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act 

	sqlserver = "localhost" 'sql服务器 

	sqlname = "sa"   '用户名 

	sqlpassword = "sa"  '密码 

	sqlLoginTimeout = 15 '登陆超时 

	databasename = trim(request("databasename")) 

	bak_file = trim(request("bak_file")) 

	bak_file = replace(bak_file,"$1",databasename) 

	act = lcase(request("act")) 

	if databasename = "" then 

	 response.write "input database name" 

	else 

	 if act = "backup" then 

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

	  srv.LoginTimeout = sqlLoginTimeout 

	  srv.Connect sqlserver,sqlname, sqlpassword 

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

	  bak.Database=databasename 

	  bak.Devices=Files 

	  bak.Files=bak_file 

	  bak.SQLBackup srv 

	  if err.number>0 then 

	   response.write err.number&"<font color=red><br>" 

	   response.write err.description&"</font>" 

	  end if 

	  Response.write "<font color=green>备份成功!</font>" 

	 elseif act = "restore" then 

	  '恢复时要在没有使用数据库时进行！ 

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

	  srv.LoginTimeout = sqlLoginTimeout 

	  srv.Connect sqlserver,sqlname, sqlpassword 

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

	  rest.Action=0 ' full db restore 

	  rest.Database=databasename 

	  rest.Devices=Files 

	  rest.Files=bak_file 

	  rest.ReplaceDatabase=True 'Force restore over existing database 

	  if err.number>0 then 

	   response.write err.number&"<font color=red><br>" 

	   response.write err.description&"</font>" 

	  end if 

	  rest.SQLRestore srv 

	  Response.write "<font color=green>恢复成功!</font>" 

	 else 

	  Response.write "<font color=red>没有选择操作</font>" 

	 end if 

	end if 

	%> 

	</BODY> 

	</HTML>