求数据库备份例子（ACCESS）

[chuting1]

如题

[chuting1]

[e-mail]
收到结帖

[king2003]

Response.Write "备份数据库开始，网站暂停一切用户的前台操作......<br>"
Conn.Close
Set Conn=Nothing
Application.Lock
Application(CookieName & "_SiteEnable") = 0
application(CookieName & "_SiteDisbleWhy") = "网站暂停中，请稍候几分钟后再来..."
Application.UnLock
CopyFiles Server.Mappath(AccessFile),Server.Mappath(AccessFile & "_" & DateToStr(Now(),"YmdHIS") &".BAK")
Response.write "<br>备份完成..."
Application.Lock
Application(CookieName & "_SiteEnable") = 1
Application(CookieName & "_SiteDisbleWhy") = ""
Application.UnLock
Response.write "<br>网站恢复正常访问..."
Response.Write("<br><a href='admincp.asp?action=database'>请点击返回</a>")


Function CopyFiles(TempSource,TempEnd)
Dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(TempEnd) then
Response.Write "目标备份文件 <b>" & TempEnd & "</b> 已存在，请先删除!"
Set FSO=Nothing
Exit Function
End IF
IF FSO.FileExists(TempSource) Then
Else
Response.Write "要复制的源数据库文件 <b>"&TempSource&"</b> 不存在!"
Set FSO=Nothing
Exit Function
End If
FSO.CopyFile TempSource,TempEnd
Response.Write "已经成功复制文件 <b>"&TempSource&"</b> 到 <b>"&TempEnd&"</b>"
Set FSO = Nothing
End Function
没什么呀FSO

[chuting1]

谢谢你，试试先

[AntinomyArt]

去下个动网的论坛