|
一个用asp备份与恢复SQL Server数据库的例子代码,另外可参考http://www.15seconds.com/howto/pg000945.htm
<HTML>
<HEAD>
<TITLE>数据库操作</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<form method="post" name=myform>
<%if action="restore" then%><INPUT TYPE="hidden" name="action" value="restore">准备恢复数据库。。。
<%elseif action="backup" then%><INPUT TYPE="hidden" name="action" value="backup">准备备份数据库。。。<%else%>
选择操作：
<INPUT TYPE="radio" name="action" id="act_backup"? value="backup"><label for=act_backup>备份</label>
<INPUT TYPE="radio" name="action" id="act_restore" value="restore"><label for=act_restore>恢复</label><%end if%>
<br>数据库名：<INPUT TYPE="text" name="databasename" value="50forum">
<br>文件路径：<INPUT TYPE="text" name="bak_file" value="50forum.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 = Server.MapPath("backup/"&bak_file)
act = lcase(request("action"))
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,sqlpassword
??Set bak?????= Server.CreateObject("SQLDMO.Backup")
??bak.Database???= databasename
??bak.Devices????= Files
??bak.Files????= bak_file
??bak.Action????= 0
??bak.Initialize???= 1
??'bak.ReplaceDatabase??= True
??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>"
??srv.disconnect
??Set srv = nothing
??Set bak = nothing
?elseif act = "restore" then
??'恢复时要在没有使用数据库时进行！
??Set srv=Server.CreateObject("SQLDMO.SQLServer")
??srv.LoginTimeout??= sqlLoginTimeout
??srv.Connect sqlserver,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>"
??srv.disconnect
??Set srv = nothing
??Set rest = nothing
?else
??Response.write "<font color=red>没有选择操作</font>"
?end if
end if
%>
</BODY>
</HTML> （编辑：源码网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
