backup.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 150 行

<!--#include file="conn.asp"-->
<!--#include file="checkAdmin.asp"-->
<%
dim bkfolder,Dbpath
dim bkdbname
dim fso
dim folderpath,fso1,f
call main()
conn.close
set conn=nothing
sub main()
%>

<%
if request("action")="Backup" then
call readsession()
call chgUpfile()
call backupdata()
else
%>
<link href="css/css.css" rel="stylesheet" type="text/css" />

<table width="97%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FAFAFA" style="border:1px solid #DDDDDD">
<tr> 
<td align="center" background="../images/admin_bg_1.gif">&nbsp;</td>
</tr>
<tr>
  <td height="24" style="padding-left:20px;padding-right:20px;"><b>备份还原数据库&nbsp; (如果您没有备份过数据库，将会还原至初始状态，点击还原，所有网站数据将被旧数据覆盖 )</b></td>
</tr>
<tr>
<td height="24" style="padding-left:20px;padding-right:20px;">
<font color="#FF0000">注意：备份数据需要FSO组件支持！此功能谨慎使用,可能在有些空间备份后,在本机上不能用ACCESS打开。</font></td>
</tr>
<form method="post" action="Backup.asp?action=Backup">
<tr>
  <td style="padding-left:20px;padding-right:20px;">&nbsp;</td>
</tr>
<tr>
<td style="padding-left:20px;padding-right:20px;display:none;">
当前数据库路径：<input name=DBpath type=text class="editbox" value="../database/sldk2456fhQ#234$6$Qh/f5ls%$kdld$#%8f&/#asd$#@kf234hshop_db.asp" size=24> 
请正确添写您当前使用的数据库路径！<BR>
备份数据库目录：<input name=bkfolder type=text class="editbox" value="../Databackup" size=24>
如果目录不存在，程序将自动创建！<BR>
备份数据库名称：<input name=bkDBname type=text class="editbox" value="#asd$#@kf234hshop_db.asp" size=24>
如果备份目录有该文件，将覆盖，如果没有，程序将自动创建！</td>
</tr>
<tr>
  <td height="30" style="padding-left:20px;padding-right:20px;"><input name="提交2" type="submit" class="Button" value="开始备份" onclick="return confirm('您确认这样操作吗?此操作将不可还原')" />
    &nbsp;&nbsp;使用还原之前请确定您在此创建了备份，如果没有备份，将还原为初始状态</td>
</tr></form>
<form method="post" action="Backup.asp?action=Backup">
<tr>
  <td style="padding-left:20px;padding-right:20px;">&nbsp;</td>
</tr>
<tr>
<td style="padding-left:20px;padding-right:20px;display:none;">
当前数据库路径：<input name=bkfolder type="text" class="editbox" value="../database/sldk2456fhQ#234$6$Qh/f5ls%$kdld$#%8f&/" size=24> 
请正确添写您当前使用的数据库路径！<BR>
备份数据库目录：<input name=DBpath type="text" class="editbox" value="../Databackup/#asd$#@kf234hshop_db.asp" size=24>
如果目录不存在，程序将自动创建！<BR>
备份数据库名称：<input name=bkDBname type="text" class="editbox" value="#asd$#@kf234hshop_db.asp" size=24>
如果备份目录有该文件，将覆盖，如果没有，程序将自动创建！</td>
</tr>
<tr>
  <td height="30" style="padding-left:20px;padding-right:20px;"><input name="提交" type="submit" class="Button" value="开始还原" onclick="return confirm('您确认这样操作吗?此操作将不可还原')" />
&nbsp;&nbsp;    此功能将使现有数据丢失，请谨慎使用</td>
</tr>
<tr>
<td height="30" style="padding-left:20px;padding-right:20px;display:none;">
在上面填写数据库路径及数据库完整名称，程序的默认数据库文件为#shop_db.mdb<br>
您可以用这个功能来备份您的数据库，以保证数据的安全！<br></td>
</tr>
<tr>
  <td style="padding-left:20px;padding-right:20px;">&nbsp;</td>
</tr>
</form>
</table>
<%
end if
%>

<%
end sub

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 "<script language='javascript'>alert('数据库操作完成，请进行其他操作！');window.location.href='backup.asp';</script>"
else
response.write "<script language='javascript'>alert('找不到您所需要备份的文件！');window.location.href='backup.asp';</script>"
end if
end sub


sub readsession()
	dim rs

	set rs = conn.execute("Select upload,upfile from webconfig")
	Session("upload") = rs(0)
	Session("upfile") = rs(1)
end sub

sub chgUpfile()
	dim upfile,upload,upfile1,upload1,rs_file,objfso

		upfile = Session("upfile")
		upload = Session("upload")
		
		Session("upload") = ""
		Session("upfile") = ""	
	
		'安全上传改文件名
		set rs_file=server.CreateObject("adodb.recordset")
		rs_file.open"select upfile,upload from webconfig",conn,1,3
			
			rs_file("upfile") = upfile
			rs_file("upload") = upload
		
		rs_file.update
		rs_file.close
		set rs_file=nothing
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
%>