<!--#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)時自己會重新連接數據庫 

%>