?? hf.asp
字號:
<style type="text/css">
<!--
body {
background-color: #DEE7FF;
}
-->
</style><%
Server.ScriptTimeOut=90000
userb =Session("AdminUser")
if Mid(userb, 1, 3)<>"adm" then
response.write "<br><br><br><br><br><br><p align='center'>對不起,你沒有獲得使用本功能的授權。</p>"
esponse.end
end if
SQLname="Bak"
PathName="Bak"
FileNam=trim(Request.QueryString("FileNam"))
Set hdobj = Server.CreateObject("HD.Pk")
BP=hdobj.BackPath("P")
BQ=session("sqlName")
SQL="Restore database "& BQ &" from disk='"&Server.MapPath(SQLname)&"\"&FileNam&"'"
set cnn=Server.createobject("adodb.connection")
cnn.open "driver={SQL Server};"& BP
cnn.execute SQL
on error resume next
if err<>0 then
response.write "錯誤:"&err.Descripting
else
response.write "<br><br><br><br><br><br><p align='center'>"
response.write FileNam
response.write "數據恢復成功!</p>"
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -