📄 backupdbsave.asp
字号:
<!--#include file="check.asp"-->
<!--#include file="checkpower.asp"-->
<!--#INCLUDE FILE="connect.asp" -->
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>备份结果</title></HEAD>
<body>
<%
function MakeName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakeName=fname
end function
dim msvr,muid,mpwd,mdb,mto
set rs=server.createobject("adodb.recordset")
sql="select sqlname,basename,username,password,savepath from sysconfig where type=2 or type=1 order by type desc"
rs.open sql,conn,1,1
if rs.eof then
response.redirect "error.htm"
response.end
end if
msvr=rs("sqlname")
muid=rs("username")
mpwd=rs("password")
mdb=rs("basename")
backupname=MakeName()
mto=rs("savepath")&backupname
rs.close
set rs=nothing
if mpwd="" then mpwd=""""
on error resume next
set dmosvr=server.CreateObject("SQLDMO.SQLServer")
dmosvr.connect msvr,muid,mpwd
if err.number>0 then Response.Redirect("backuperr.asp?err="&err.number)
mdevname="Backup_"&muid&"_"&mdb
set dmodev=server.CreateObject("SQLDMO.BackupDevice")
dmodev.name=mdevname
dmodev.type=2
dmodev.PhysicalLocation=mto
dmosvr.BackupDevices.Add dmodev
if err.number>0 then Response.Redirect("backuperr.asp?err="&err.number)
set dmobak=server.CreateObject("SQLDMO.Backup")
dmobak.database=mdb
dmobak.devices=mdevname
%>
<%
dmobak.sqlbackup dmosvr
if err.number>0 then Response.Redirect("backuperr.asp?err="&err.number)
dmosvr.backupdevices(mdevname).remove
set dmobak=nothing
set dmodev=nothing
dmosvr.disconnect
set dmosvr=nothing
ipaddress=request.servervariables("remote_addr")
set rs=server.createobject("adodb.recordset")
sql="select * from sqlbackup where id=1"
rs.open sql,conn,1,3
rs.addnew
rs("sqlpath")=mto
rs("server")=msvr
rs("handleid")=session("uid")
rs("discript")=request("discript")
rs("ipaddress")=ipaddress
rs("backuptime")=CDate(now())
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=javascript>alert('数据库"&mdb&"备份成功!')</script>"
response.write "<script language=javascript>location.href='backupdb.asp'</script>"
response.end
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -