长相如下:

程序中功能函数如下:
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>