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

2、ATH="database/data.mdb"data_array=Split(ZC_DATABASE_PATH,"/")Dimactionaction=trim(request("action"))Dimdbpath,bkfolder,bkdbname,fso,fso1SelectCaseactionCase""Callchushihua()Case"CompressData"'压缩数据DimtmprsdimallarticledimMaxiddimtopic,username,dateandtime,b

3、odycallCompressData()case"BackupData"'备份数据ifrequest("act")="Backup"Thencallupdata()elsecallBackupData()endIfcase"RestoreData"'恢复数据dimbackpathifrequest("act")="Restore"ThenDbpath=request.form("Dbpath")backpath=request.form("backpath")ifdbpath=""Thenresponse

4、.write"PleaseinputyourdatabasewholeName"elseDbpath=server.mappath(Dbpath)endIfbackpath=server.mappath(backpath)SetFso=server.CreateObject("scripting.filesystemobject")iffso.fileexists(dbpath)Thenfso.copyfileDbpath,Backpathresponse.write"数据库被成功还原!
"elser

5、esponse.write"没找到您所需要的数据库!"endIfelsecallRestoreData()endIfCase"SpaceSize"'系统空间占用callSpaceSize()Case"deletebackup"Dimdbnamedbpath=Request.QueryString("dbpath")dbname=Request.QueryString("dbname")dbpath=Server.MapPath(dbpath)dbpath=dbpath&""&dbnamesetfso=Cr

6、eateObject("Scripting.FileSystemObject")Iffso.FileExists(dbPath)Thenfso.DeleteFile(DBPath)Setfso=nothingresponse.write"
您备份的数据库已经"&dbpath&"被成功删除!

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

<

7、ahref=""data_s.asp"">返回.."EndIfCaseElseEndSelect%>