收录日期:2018/09/20 15:48:56 时间:2016/05/18 03:14:42 标签:ASP
用ASP如何实现在在服务器端将ACCESS数据库生成一个附本进行保存,服务器FSO功能已经打开!
那位可以粘一个样例代码给兄弟我看看呀!最好有注释,要求是不是过分了?:P
'====================備份數據庫=========================
sub BackupData()
%>
<table border="0"  cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="tableBorder">
   <tr>
   <th height=25 >
   &nbsp;&nbsp;<B>備份論壇數據</B>( 需要FSO支持,FSO相關幫助請看微軟網站 )
   </th>
   </tr>
   <form method="post" action="ADMIN_data.asp?action=BackupData&act=Backup">
   <tr>
   <td height=100 class="forumrow">
   &nbsp;&nbsp;
當前數據庫路徑(相對路徑):<input type=text size=15 name=DBpath value="<%=db%>"><BR>&nbsp;&nbsp;
備份數據庫目錄(相對路徑):<input type=text size=15 name=bkfolder value=Databackup>&nbsp;如目錄不存在,程序將自動創建<BR>&nbsp;&nbsp;
備份數據庫名稱(填寫名稱):<input type=text size=15 name=bkDBname value=dvbbs6.MDB>&nbsp;如備份目錄有該文件,將覆蓋,如沒有,將自動創建<BR>
&nbsp;&nbsp;<input type=submit value="確定"><br>
   -----------------------------------------------------------------------------------------<br>
   &nbsp;&nbsp;在上面填寫本程序的數據庫路徑全名,本程序的默認數據庫文件為Data\dvbbs6.MDB,<B>請一定不能用默認名稱命名備份數據庫</B><br>
   &nbsp;&nbsp;您可以用這個功能來備份您的法規數據,以保證您的數據安全!<br>
   &nbsp;&nbsp;注意:所有路徑都是相對與程序空間根目錄的相對路徑 </font>
   </td>
   </tr>
   </form>
   </table>
<%
end sub

sub updata()
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

以上為動網論壇備份數據庫程序,類似的程序有很多,可以參考一下~
set fmdb=fso.getfile(server.mappath(".../data/newsdb.mdb"))
fso.copyfile server.mappath("..\data\newsdb.mdb"),server.mappath("..\data\buckup_data.mdb")
第一个人的已经很详细了
谢谢!不过我改了好久才能有的!动网那个有两个过程好像,我去掉了一掉代码:)