[求助]数据库备份问题
用ASP在做数据库备份时,ACCESS数据库和网站源文件都是放在一个目录下的,好备份!可SQL的怎么做备份啊?
不知道用sql语句怎么搞，可以用企业管理器，导入数据库
2007-07-26 17:44
2007-07-26 18:03
2007-07-27 09:18
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%= PageName %></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="sq_jail_com_cn">
<br>文件路径：<INPUT TYPE="text" name="bak_file" value="sq_jail_com_cn.bak">(备份或恢复的文件路径)<br>
<input type="submit" value="确定">
</form>
<%
'SQL Server 数据库的备份与恢复!
on error resume next
dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act
sqlserver = "127.0.0.1" 'sql服务器
sqlname = "sa" '用户名
sqlpassword = "123456" '密码
sqlLoginTimeout = 15 '登陆超时
databasename = trim(request("databasename"))
bak_file = trim(request("bak_file"))
bak_file = Server.MapPath("../databases/"&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,sqlname,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>"
response.end
end if
Response.write "<font color=green>备份成功!</font>"
response.end
srv.disconnect
Set srv = nothing
Set bak = nothing
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>"
response.end
end if
rest.SQLRestore srv
Response.write "<font color=green>恢复成功!</font>"
response.end
srv.disconnect
Set srv = nothing
Set rest = nothing
else
Response.write "<font color=red>没有选择操作</font>"
response.end
end if
end if
%>
</body>
</html>
2007-07-27 10:25
