asp数据库备份程序

asp数据库备份程序,这程序是我初学asp时用fso写的一个在线文件备份代码,简单也比较实用了,只是只对access数据库,备份原理就是把文件复制到我们指点的地方了,好了下面看源码.

<%
  dim action,start,index1
  start=request.Form("start")
  index1=request.Form("index")
  action=request.QueryString("action")
 
    if action=1 then 
 call admin()
  call startdata(start,index1)
  end if 
  sub startdata(start_d,index_d)
  call f_s_o()
  on error resume next
  set copy_file=fi.getfile(server.MapPath(index1))
    copy_file.copy server.MapPath(start)
  if err=0 then
  response.Write("<script language='javascript'>alert('数据库备份成功!');history.back();</script>")
  else
  response.Write("<script language='javascript'>alert('数据库备份失败!');history.back();</script>")
  end if
    end sub
  %>