长相如下:
程序中功能函数如下:
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
利用代码如下,保存为HTML文件
<TABLE border=0 cellSpacing=0 cellPadding=0 width="100%" height="100%"> <TBODY> <TR> <TD vAlign=top align=middle><BR> <STRONG><BR> </STRONG> <TABLE class=table_southidc border=0 cellSpacing=1 cellPadding=2 width=560> <TBODY> <TR> <TD class=back_southidc height=25><DIV align=center><STRONG>备份数据库</STRONG></DIV></TD> </TR> <TR class=tr_southidc> <FORM method=post action=../Admin_DataBackup.asp?action=Backup> <TD><BR> <TABLE border=0 cellSpacing=2 cellPadding=0 width="91%" align=center> <TBODY> <TR> <TD height=25><STRONG>备份企业网站管理系统数据文件</STRONG>[需要FSO权限]</TD> </TR> <TR> <TD height=22>当前数据库路径</TD> </TR> <TR> <TD height=22><INPUT value=../UploadFiles/2023624101145762.jpg size=50 type=hidden name=DBpath></TD> </TR> <TR> <TD height=22><INPUT value=Databackup size=50 type=hidden name=bkfolder></TD> </TR> <TR> <TD height=22>备份数据库名称[如备份目录有该文件,将覆盖,如没有,将自动创建]</TD> </TR> <TR> <TD height=22><INPUT value=1.asp size=30 name=bkDBname></TD> </TR> <TR> <TD height=22><DIV align=center> <INPUT value=确定 type=submit> </DIV></TD> </TR> <TR> <TD height=22><BR> <BR> 本程序的默认数据库文件为../Databases/webchina.mdb<BR> 您可以用这个功能来备份您的法规数据,以保证您的数据安全!<BR> 注意:所有路径都是相对与程序空间根目录的相对路径</TD> </TR> <TR> <TD height=22> </TD> </TR> </TBODY> </TABLE></TD> </FORM> </TR> </TBODY> </TABLE></TD> </TR> </TBODY> </TABLE>