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

1、-. z数据库管理数据库管理系统%Dim ZC_DATABASE_PATH数据库的路径ZC_DATABASE_PATH=database/data.mdbdata_array= Split(ZC_DATABASE_PATH,/)Dim actionaction=trim(request(action)Dim dbpath,bkfolder,bkdbname,fso,fso1Select Case actionCase Call chushihua()Case pressData 压缩数据Dim tmprsdim allarticledim Ma*iddim topic,username,dat

2、eandtime,bodycall pressData()case BackupData 备份数据if request(act)=Backup Thencall updata()elsecall BackupData()end Ifcase RestoreData 恢复数据dim backpathif request(act)=Restore ThenDbpath=request.form(Dbpath)backpath=request.form(backpath)if dbpath= Thenresponse.write Please input your database whole Na

3、me elseDbpath=server.mappath(Dbpath)end Ifbackpath=server.mappath(backpath)Set Fso=server.CreateObject(scripting.filesystemobject)if fso.filee*ists(dbpath) Then fso.copyfile Dbpath,Backpathresponse.write 数据库被成功复原!elseresponse.write 没找到您所需要的数据库! end Ifelsecall RestoreData()end IfCase SpaceSize 系统空间占用

4、call SpaceSize()Case deletebackupDim dbnamedbpath=Request.QueryString(dbpath)dbname=Request.QueryString(dbname)dbpath=Server.MapPath(dbpath)dbpath=dbpath &dbnameset fso = CreateObject(Scripting.FileSystemObject)If fso.FileE*ists(dbPath) Thenfso.DeleteFile(DBPath)Set fso = nothingresponse.write 您备份的数

5、据库已经 & dbpath &被成功删除!返回.Elseresponse.write dbpath response.write 输入的路径错误,请确认后重新输入!返回.End IfCase ElseEnd Select%response.writeSub chushihua()%压缩数据库备份数据库复原数据库系统空间占用系统空间查看数据库:备份数据库:系统总共:返回. 1024 Thensize=(Size/1024)showsize=size & KBend Ifif size1024 Thensize=(size/1024)showsize=formatnumber(size,2) &

6、MB end Ifif size1024 Thensize=(size/1024)showsize=formatnumber(size,2) & GB end If response.write & showsize & End Sub %复原数据库:复原的路径(相对路径):input type=te*t size=30 name=DBpath value=DataBackup_Bak.mdb复原后的路径(相对路径):input type=te*t size=30 name=backpath value=返回.%End SubSub updata()Dbpath=request.form(Db

7、path)Dbpath=server.mappath(Dbpath)bkfolder=request.form(bkfolder)bkdbname=request.form(bkdbname)Set Fso=server.CreateObject(scripting.filesystemobject)if fso.filee*ists(dbpath) ThenIf CheckDir(bkfolder) = True Thenfso.copyfile dbpath,bkfolder& & bkdbnameelseMakeNewsDir bkfolderfso.copyfile dbpath,bk

8、folder& & bkdbnameend Ifresponse.write 已经成功备份,你的数据库的路径: &bkfolder& & bkdbnameresponse.write 点击此处将数据库下载下来: & ZC_BLOG_HOST & request.form(bkfolder) & / & bkdbname &response.write 当您下载完毕后,点击此处将删除备份的数据库!返回.Elseresponse.write Error ,找不到文件!End IfSet fso = nothingEnd Sub-检查*一目录是否存在-Function CheckDir(Folder

9、Path)folderpath=Server.MapPath(.)&folderpathSet fso1 = CreateObject(Scripting.FileSystemObject)If fso1.FolderE*ists(FolderPath) Then存在CheckDir = TrueElse不存在CheckDir = FalseEnd IfSet fso1 = nothingEnd Function-根据指定名称生成目录-Function MakeNewsDir(foldername)dim fSet fso1 = CreateObject(Scripting.FileSyste

10、mObject)Set f = fso1.CreateFolder(foldername)MakeNewsDir = TrueSet fso1 = nothingEnd FunctionSub BackupData()%备份数据库当前数据库的路径(相对路径):input type=te*t size=15 name=DBpath value=备份数据库的路径(相对路径):如果该目录不存在,系统将自动建立备份后数据库的名称:input type=te*t size=20 name=bkDBname value=_bak.mdb 按日期自动命名如果备份文件不存在将建立,如果存在,将自动覆盖!返回.

11、压缩数据库:输入数据库的所在路径压缩数据库的路径:input type=te*t name=dbpath value=如果是ac97,请将钩打上.(默认是Access 2000)返回.%Dim dbpath,boolIs97dbpath = request(dbpath)boolIs97 = request(boolIs97)If dbpath Thendbpath = server.mappath(dbpath)response.write(pactDB(dbpath,boolIs97)End IfEnd Sub=压缩参数=Function pactDB(dbPath, boolIs97)D

12、im fso, Engine, strDBPath,JET_3*strDBPath = Left(dbPath,InStrRev(DBPath,)Set fso = CreateObject(Scripting.FileSystemObject)If fso.FileE*ists(dbPath) Thenfso.CopyFile dbpath,strDBPath & temp.mdbSet Engine = CreateObject(JRO.JetEngine)If boolIs97 = True ThenEngine.pactDatabase Provider=Microsoft.Jet.O

13、LEDB.4.0;Data Source= & strDBPath & temp.mdb, _Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & strDBPath & temp1.mdb; _& Jet OLEDB:Engine Type= & JET_3*ElseEngine.pactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & strDBPath & temp.mdb, _Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & strDBPath & temp1.mdbEnd Iffso.CopyFile strDBPath & temp1.mdb,dbpathfso.Dele