asp备份mysql_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("")

else

response.Write("")

end if

end sub

%>