www.gusucode.com > 绿色环保工作企业网站源码程序 > admin/Admin_DataBackup.asp
<!--#include file="conn.asp"--> <!--#include file="admin.asp"--> <!-- #include file="Inc/Head.asp" --> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="top"> <br> <strong><br> </strong> <table width="560" border="0" cellpadding="2" cellspacing="1" class="table_southidc"> <tr> <td class="back_southidc" height="25"> <div align="center"><strong>备份数据库</strong></div> <% if request("action")="Backup" then call backupdata() else %></td> </tr> <tr class="tr_southidc"> <form method="post" action="Admin_DataBackup.asp?action=Backup"> <td><br> <table width="91%" border="0" align="center" cellpadding="0" cellspacing="2"> <tr> <td height="25"><strong>备份企业网站管理系统数据文件</strong>[需要FSO权限]</td> </tr> <tr> <td height="22"> 当前数据库路径</td> </tr> <tr> <td height="22"><input disabled="disabled" type=text size=50 name=DBpath value="<%=db%>"></td> </tr> <tr> <td height="22"><input type="hidden" size=50 name=bkfolder value=Databackup ></td> </tr> <tr> <td height="22">备份数据库名称[如备份目录有该文件,将覆盖,如没有,将自动创建]</td> </tr> <tr> <td height="22"><input type=text size=30 name=bkDBname value="<%=date()%>"></td> </tr> <tr> <td height="22"><div align="center"> <input type=submit value="确定"> </div></td> </tr> <tr> <td height="22"><br> <br> 本程序的默认数据库文件为<%=db%><br> 您可以用这个功能来备份您的法规数据,以保证您的数据安全!<br> 注意:所有路径都是相对与程序空间根目录的相对路径</td> </tr> <tr> <td height="22"> </td> </tr> </table></td> </form> </tr> </table> <%end if%> <% sub backupdata() Dbpath=db 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 "<center>备份数据库成功,备份的数据库为 " & bkfolder & "\" & bkdbname & "</center>" 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 %></td> </tr> </table> <!-- #include file="Inc/Foot.asp" -->