asp fso数据备份程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
http://www.w3.org/1999/xhtml">

<%call check()%>

 
   
 
  <%
  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("")
  else
  response.Write("")
  end if
    end sub
  %>

::数据库初始化::   备份数据路径:           .mdb" size="50" />             默认数据库路径: datasource/#%#@!&210&^%$#@$@$.mdb" size="50" />                                  数据库备份以当天的日期为文件名,如果文件己存在系统自动把新的文件替换成原来的文件,如果不存在系统将自动创建文件.用户也可以自己定义文件名.