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

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

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

4、erver.CreateObject("scripting.filesystemobject")iffso.fileexists(dbpath)Thenfso.copyfileDbpath,Backpathresponse.write"数据库被成功还原!
"elseresponse.write"没找到您所需要的数据库!"endIfelsecallRestoreData()endIfCase"SpaceSize"'系统空间占用callSpaceSize()Case"deletebackup"Dimdbnamedbpath=Request.QueryString("dbpath")db

5、name=Request.QueryString("dbname")dbpath=Server.MapPath(dbpath)dbpath=dbpath&""&dbnamesetfso=CreateObject("Scripting.FileSystemObject")Iffso.FileExists(dbPath)Thenfso.DeleteFile(DBPath)Setfso=nothingresponse.write"
您备份的数据库已经"&dbpath&"被成功删除!

返回.."Elseresponse.w

6、ritedbpathresponse.write"
输入的路径错误,请确认后重新输入!

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