FilePath=Server.MapPath("abc.mdb") '获取数据库的相对路径
Copypath="e:\mywww" '设置数据库备份的路径
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject") '建立实例对象
IF fso.FileExists(FilePath) Then '判断数据库是否存在
fso.CopyFile FilePath,Copypath
ELse
Response.Write"文件不存在!"
End IF