hf.asp

来自「学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设」· ASP 代码 · 共 37 行

<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 
%>