admin_backup.asp
来自「本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习」· ASP 代码 · 共 99 行
ASP
99 行
<!--#include file="conn.asp"-->
<link rel="stylesheet" href="css.css" type="text/css">
<body bgcolor="#FFFFCC" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" vspace="0" hspace="0" bgcolor="#FFFFFF">
<tr bgcolor="#FFCC33">
<td height="27" bgcolor="#FFCC33" background="images/admin_bg_1.gif">.:: 56770网络制作 http://www.56770.com</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="2" vspace="0" hspace="0" bgcolor="#FFFFFF">
<tr>
<td height="25" bgcolor="#799AE1">
<div align="center"><strong>备份数据库</strong></div><%
if request("action")="Backup" then
call backupdata()
else
%></td>
</tr>
<tr>
<form method="post" action="admin_backup.asp?action=Backup">
<td>
<tr>
<td height="25" bgcolor="#799AE1"><strong>备份商城数据文件</strong>[需要FSO权限]</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="2" vspace="0" hspace="0" bgcolor="#FFFFFF">
<tr>
<td height="22" bgcolor="#799AE1"> 当前数据库路径</td>
<td height="22" bgcolor="#799AE1"><input type=text size=50 name=DBpath value="<%=db%>"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="2" vspace="0" hspace="0" bgcolor="#FFFFFF">
<tr>
<td height="22" bgcolor="#799AE1"> 备份数据库目录[如目录不存在，程序将自动创建]</td>
</tr>
<tr>
<td height="22" bgcolor="#799AE1"><input type=text size=50 name=bkfolder value=Databackup></td>
</tr>
<tr>
<td height="22" bgcolor="#799AE1">备份数据库名称[如备份目录有该文件，将覆盖，如没有，将自动创建]</td>
</tr>
<tr>
<td height="22" bgcolor="#799AE1"><input type=text size=30 name=bkDBname></td>
</tr>
<tr>
<td height="22" bgcolor="#799AE1"><div align="center">
<input type=submit value="备份数据库">
</div></td>
</tr>
<tr>
<td height="22" bgcolor="#799AE1">
本程序的默认数据库文件为<%=db%><br>
您可以用这个功能来备份您的法规数据，以保证您的数据安全！<br>
注意：所有路径都是相对与程序空间根目录的相对路径</td>
</tr>
</table></td>
</form>
</tr>
</table>
<%end if%><%
sub backupdata()
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 "备份数据库成功，您备份的数据库路径为" &bkfolder& "\"& bkdbname
Else
response.write "找不到您所需要备份的文件。"
End if
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 + =
减小字号Ctrl + -
显示快捷键?