新建asp备份、还原、删除、压缩access数据库

2、"data_array=Split(ZC_DATABASE_PATH,"/")Dimactionaction=trim(request("action"))Dimdbpath,bkfolder,bkdbname,fso,fso1SelectCaseactionCase""Callchushihua()Case"CompressData"'压缩数据DimtmprsdimallarticledimMaxiddimtopic,username,dateandtime,bodycallCompressData()case"BackupData"'备份数据ifr

3、equest("act")="Backup"Thencallupdata()elsecallBackupData()endIfcase"RestoreData"'恢复数据dimbackpathifrequest("act")="Restore"...ThenDbpath=request.form("Dbpath")backpath=request.form("backpath")ifdbpath=""Thenresponse.write"PleaseinputyourdatabasewholeName"elseDbpath=server.mappath

4、(Dbpath)endIfbackpath=server.mappath(backpath)SetFso=server.CreateObject("scripting.filesystemobject")iffso.fileexists(dbpath)Thenfso.copyfileDbpath,Backpathresponse.write"数据库被成功还原!
"elseresponse.write"没找到您所需要的数据库!"endIfelsecallRestoreData()endIfCase"SpaceSize"'系统空间占用callSpac

5、eSize()Case"deletebackup"Dimdbnamedbpath=Request.QueryString("dbpath")dbname=Request.QueryString("dbname")dbpath=Server.MapPath(dbpath)dbpath=dbpath&""&dbnamesetfso=CreateObject("Scripting.FileSystemObject")Iffso.FileExists(dbPath)Thenfso.DeleteFile(DBPath)Setfso=nothingrespons

6、e.write"
您备份的数据库已经"&dbpath&"被成功删除!

返回.."Elseresponse.writedbpathresponse.write"
输入的路径错误,请确认后重新输入!

返回.."EndIfCaseElseEnd...Select%>