📄 backup.asp

📁 下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admin

💻 ASP

字号:

<%
if session("admin")="" then
response.redirect "admin.asp"
end if
if session("flag")>1 then
response.write "<br><p align=center>你没有操作权限！</p>"
response.end
end if
%>
<!--#include file="conn.asp"-->
<%
dim bkfolder
dim bkdbname
dim fso
dim folderpath,fso1,f
Dbpath=request.form("Dbpath")
Dbpath=server.mappath(Dbpath)
bkfolder=request.form("bkfolder")
bkdbname=request.form("bkdbname")
Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
If CheckDir(bkfolder) = True Then
fso.copyfile dbpath,bkfolder& "\"& bkdbname
else
MakeNewsDir bkfolder
fso.copyfile dbpath,bkfolder& "\"& bkdbname
end if
response.write "<link href=style.css rel=stylesheet><body bgcolor=#418598><center><br><br>数据库备份完成，请进行其他操作！<br>建立使用 FTP 工具将数据库备份，以保证数据安全<br><br><a href=javascript:history.go(-1)>>> 返 回 <<</a></center></body>"
else
response.write "<link href=style.css rel=stylesheet><body bgcolor=#418598><center><br><br>找不到您所需要备份的文件！<br><br><a href=javascript:history.go(-1)>>> 返 回 <<</a></center></body>"
end if

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