1、数据库备份与恢复数据库备份与恢复.txt我是天使,回不去天堂是因为体重的原因。别人装处,我只好装经验丰富。泡妞就像挂QQ,每天哄她2个小时,很快就可以太阳了。access,备份和恢复,完整,可用 % db=./xs_data/xs.mdb If Request.QueryString(action)=back Then currf=request.form(currf) currf=server.mappath(currf) backf=request.form(backf) backf=server.mappath(backf) backfy=request.form(backfy) On
2、error resume next Set objfso = Server.CreateObject(Scripting.FileSystemObject) if err then err.clear response.write alert(不能建立fso对象,请确保你的空间支持fso:!);history.back(); response.end end if if objfso.Folderexists(backf) = false then Set fy=objfso.CreateFolder(backf) end if objfso.copyfile currf,backf& & b
3、ackfy response.write alert(备份数据库成功);history.back(); End If If Request.QueryString(action)=ys Then currf=request.form(currf) currf = server.mappath(currf) ys=request.form(ys) Const JET_3X = 4 strDBPath = left(currf,instrrev(currf,) on error resume next Set objfso = Server.CreateObject(Scripting.FileS
4、ystemObject) if err then err.clear response.write alert(不能建立fso对象,请确保你的空间支持fso:!);history.back(); response.end end if if objfso.fileexists(currf) then Set Engine = CreateObject(JRO.JetEngine) response.write strDBPath on error resume next If ys = 1 Then Engine.CompactDatabase Provider=Microsoft.Jet.O
5、LEDB.4.0;Data Source= & currf, _ Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & strDBPath & tourtemp.mdb; _ & Jet OLEDB:Engine Type= & JET_3X Else Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & currf, _ Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & strDBPath & tourtemp.mdb
6、 End If objfso.CopyFile strDBPath & tourtemp.mdb,currf objfso.DeleteFile(strDBPath & tourtemp.mdb) Set objfso = nothing Set Engine = nothing if err then err.clear response.write alert(错误:&err.description&);history.back(); response.end end if response.write alert(压缩数据库成功);history.back(); response.end
7、 Else response.write alert(错误:找不到数据库文件!);history.back(); response.end End If end if if Request.QueryString(action)=reload then currf=request.form(currf) currf=server.mappath(currf) backf=request.form(backf) if backf= then response.write alert(请输入您要恢复的数据库全名);history.back(); else backf=server.mappath(
8、backf) end if on error resume next Set objfso = Server.CreateObject(Scripting.FileSystemObject) if err then err.clear response.write alert(不能建立fso对象,请确保你的空间支持fso:!);history.back(); response.end end if if objfso.fileexists(backf) then objfso.copyfile &backf&,&currf& response.write alert(恢复数据库成功);hist
9、ory.back(); response.end else response.write alert(错误:备份目录下无您的备份文件!);history.back(); response.end end if end if % 备份数据库 要求空间支持FSO 数据库路径: input type=text name=currf size=20 value= readonly 备份数据目录: 数据库名称: 注:尽量不要更改以上项 恢复数据库 要求空间支持FSO 当前数据库路径: input type=text name=currf size=20 value= readonly 备份数据库路径:
10、=数据库管理数据库管理系统%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 CompressData 压缩数据Dim tmprsdim allarticledim Maxiddim topic,username,dat
11、eandtime,bodycall CompressData()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
12、 Name elseDbpath=server.mappath(Dbpath)end Ifbackpath=server.mappath(backpath)Set Fso=server.CreateObject(scripting.filesystemobject)if fso.fileexists(dbpath) Then fso.copyfile Dbpath,Backpathresponse.write 数据库被成功还原!elseresponse.write 没找到您所需要的数据库! end Ifelsecall RestoreData()end IfCase SpaceSize 系统空
13、间占用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.FileExists(dbPath) Thenfso.DeleteFile(DBPath)Set fso = nothingresponse.write 您备
14、份的数据库已经 & 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)
15、 & MB end Ifif size1024 Thensize=(size/1024)showsize=formatnumber(size,2) & GB end If response.write & showsize & End Sub %还原数据库:还原的路径(相对路径):input type=text size=30 name=DBpath value=DataBackup_Bak.mdb还原后的路径(相对路径):input type=text size=30 name=backpath value=返回.%End SubSub updata()Dbpath=request.form
16、(Dbpath)Dbpath=server.mappath(Dbpath)bkfolder=request.form(bkfolder)bkdbname=request.form(bkdbname)Set Fso=server.CreateObject(scripting.filesystemobject)if fso.fileexists(dbpath) ThenIf CheckDir(bkfolder) = True Thenfso.copyfile dbpath,bkfolder& & bkdbnameelseMakeNewsDir bkfolderfso.copyfile dbpath
17、,bkfolder& & 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(FolderPath)folderpath=Server.MapPath(.)&folderpathSet fso1 = CreateObject(Scripting.FileSystemObject)If fso1.Folde
copyright@ 2008-2023 冰点文库 网站版权所有
经营许可证编号:鄂ICP备19020893号-2