📄 beifendata.asp
字号:
<!--#include file =../conn.asp-->
<!--#include file =../config.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=onlinerz.asp-->
<head>
<title></title>
<link rel="stylesheet" href="../1.css" type="text/css">
<meta NAME=GENERATOR Content="Microsoft FrontPage 5.0" FrontPage 3.0"" CHARSET=GB2312 Microsoft>
<%
dim dbpath
dim bkfolder
dim bkdbname
dim fso
dim folderpath,fso1,f
call main()
closedb
sub main()
%>
</head>
<table border="0" cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="tableBorder">
<tr >
<td width="100%" valign=top class="forumrow">
<%
if request("action")="Backup" then
call backupdata()
else
%>
<table width=100% cellspacing=0 cellpadding=0 height="43" >
<tr >
<th height=25> </th>
</tr>
<form method="POST" action="?action=Backup">
<input type=hidden size=15 name=bkfolder value=buk>
<input type=hidden size=15 name=DBpath value="<%=db%>">
<tr >
<td height=18 class="forumrow"> 备份数据库名称(填写名称)：
<input type=text size=15 name=bkDBname value='<%=db%>.bak' >
<button name="B1" type="submit" style="width: 95; height: 24">
进入下一步</button></td>
</tr>
</form>
</table>
<p> 默认数据库备份文件为：<font color=#ff00000><%=db%>.bak<br>
</font> 默认数据库备份路径为：<font color="#FF0000">administrator/buk/</font>
<br>
需要备份的SQL数据库为：<font color="#FF0000"><%=db%></font></p>
</td>
</tr>
</table>
<%
end if
end sub
sub backupdata()
Dbpath=trim(request.form("Dbpath"))
bkfolder=request.form("bkfolder")
dim objSQLServer,objBackup
bkdbname=request.form("bkdbname")
Set objSQLServer=Server.CreateObject("SQLDMO.SQLServer")
objSQLServer.Connect ""&Data_Source&"",""&User_ID&"",""&Pass_word&""
Set objBackup=Server.CreateObject("SQLDMO.Backup")
objBackup.BackupSetName=Dbpath&"back"
objBackup.Database= Dbpath
objBackup.Action =0
objBackup.Initialize=true
Set Fso=server.createobject("scripting.filesystemobject")
If CheckDir(bkfolder) = True Then
objBackup.Files=bkfolder&"\"&bkdbname
objBackup.SQLBackup(objSQLServer)
set objbackup=nothing
set objSQLServer=nothing
else
MakeNewsDir bkfolder
objBackup.Files=bkfolder&"\"&bkdbname
objBackup.SQLBackup(objSQLServer)
set objbackup=nothing
set objSQLServer=nothing
end if
response.write "<li>备份数据库成功！<br>"
response.write "<li><a href="""&web&"/administrator/buk/"&bkDBname&""">下载数据库</a><br>"
response.write "<li><a href=""del_buk.asp?bak="&bkDBname&""">删除数据库</a><br>"
response.write "<li>下载完成后请直接<a href=""del_buk.asp?bak="&bkDBname&""">删除备份数据库</a>！<br>"
end sub
Function CheckDir(FolderPath)
folderpath=Server.MapPath(".")&"\"&folderpath
Set fso1 = CreateObject("Scripting.FileSystemObject")
If fso1.FolderExists(FolderPath) then
CheckDir = True
Else
CheckDir = False
End if
Set fso1 = nothing
End Function
Function MakeNewsDir(foldername)
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.CreateFolder(foldername)
MakeNewsDir = True
Set fso1 = nothing
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -