bak.asp

一个简单的图书管理系统

<!--#include file="conn.asp"-->
<%
if request("do")="bak" then
dim path
path=server.MapPath("./")
'response.Write""&path&""

sql="backup database 谢贵文 to disk='"&path&"\\谢贵文.bak' with init"
db.execute(sql)
response.Write"<script>alert('备份成功. 备份文件在目录下');history.go(-1)</script>"
end if
%>

<%if request("do")="restore" then
'判断悲愤文件是否存在
set iFso=server.CreateObject("Scripting.FileSystemObject")'FSO组件
dim bak_path
bak_path=server.MapPath("./谢贵文 .bak")
if not iFso.FileExists(bak_path) then
response.Write"<script>alert('备份文件不存在');history.go(-1)</script>"
else
sql1="use master"'获得派他访问权 短开与当前系统数据的连接
sql="restore database 谢贵文 from disk='"&server.MapPath("./")&"\\谢贵文.bak' "
db.execute(sql1)
db.execute(sql)
response.Write"<script>alert('还原成功.');history.go(-1)</script>"
end if
end if'页面history.go(-1)时自己会重新连接数据库 

%>