📄 bf.asp
字号:
<style type="text/css">
<!--
body {
background-color: #DEE7FF;
}
-->
</style>
<%
Server.ScriptTimeOut=90000
d=day(now())
if d<10 then
d="0" & d
end if
m=month(now())
if m<10 then
m="0" & m
end if
BQ=session("sqlName")
dayth=year(now()) & m & d
dayth=dayth&".bak"
dayth=BQ&"_"&dayth
PathName="Bak"
Set hdobj = Server.CreateObject("HD.ComOpen")
BP=hdobj.BackPath("P")
dim sql,cnn
SQL="backup database "& BQ &" to disk='"&Server.MapPath(PathName)&"\"&dayth&"'"
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'>数据备份成功</p>"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -