asp,access数据库备份压缩还原代码

  

 

新建代码到data_s.asp文件

<div align=center>数据库管理系统</div><br><br><p align="center"><%Dim ZC_DATABASE_PATH'数据库的路径ZC_DATABASE_PATH="/database_newatses/fxjt111_asd@#$@$%^$%@#$@#$#@.mdb"data_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,dateandtime,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 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 "数据库被成功还原!<br>"elseresponse.write "没找到您所需要的数据库!" end Ifelsecall RestoreData()end IfCase "SpaceSize" '系统空间占用call SpaceSize()Case "deletebackup"Dim 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 "<br>您备份的数据库已经" & dbpath &"被成功删除!<br><br><a href=""data_s.asp"">返回..</a>"Elseresponse.write dbpath response.write "<br>输入的路径错误,请确认后重新输入!<br><br><a href=""data_s.asp"">返回..</a>"End IfCase ElseEnd Select%></div><%response.write"</body></html>"Sub chushihua()%><div align=center><form id="edit"><a href="?action=CompressData" mce_href="?action=CompressData">[压缩数据库]</a><a href="?action=BackupData" mce_href="?action=BackupData">[备份数据库]</a><a href="?action=RestoreData" mce_href="?action=RestoreData">[还原数据库]</a><a href="?action=SpaceSize" mce_href="?action=SpaceSize">[系统空间占用]</a></form></div><%end sub%><%'====================系统空间占用=======================Sub SpaceSize()On Error Resume Next%><div align=center><div align=center>系统空间查看<form id="edit"><br>数据库:<%showSpaceinfo("../"&data_array(1)&"")%><br><br>备份数据库:<%showSpaceinfo("databackup")%><br><br>系统总共:<%showSpaceinfo("/")%><br><br></form></div><br ><br ><br ><a href="data_s.asp" mce_href="data_s.asp">返回...</a></div> <%End Sub%><% Sub ShowSpaceInfo(drvpath)dim fso,d,size,showsizeset fso=server.CreateObject("scripting.filesystemobject") drvpath=server.mappath(drvpath) set d=fso.getfolder(drvpath) size=d.sizeshowsize=size & " Byte" if size>1024 Thensize=(Size/1024)showsize=size & " KB"end Ifif size>1024 Thensize=(size/1024)showsize=formatnumber(size,2) & " MB" end Ifif size>1024 Thensize=(size/1024)showsize=formatnumber(size,2) & " GB" end If response.write "<font face=verdana>" & showsize & "</font>"End Sub %><%Sub RestoreData()%><div align=center><div align=center>还原数据库:<form id="edit" method="post" action="data_s.asp?action=RestoreData&act=Restore">还原的路径(相对路径):<input type=text size=30 name=DBpath value="/DataBackup/<%=Date()%>_Bak.mdb"><BR>还原后的路径(相对路径):<input type=text size=30 name=backpath value="<%=ZC_DATABASE_PATH%>"><BR><BR><input type=submit value="开始还原"></form></div><br><br><a href="data_s.asp" mce_href="data_s.asp">返回...</a></div><%End SubSub updata()Dbpath=request.form("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,bkfolder&"/"&bkdbnameend Ifresponse.write "<br>已经成功备份,你的数据库的路径:" &bkfolder&"/"&bkdbnameresponse.write "<br><br>点击此处将数据库下载下来:<a href="""& ZC_BLOG_HOST & bkfolder&"/"& bkdbname &""">" & ZC_BLOG_HOST & bkfolder&"/"& bkdbname &"<br><br>"response.write "<br><br><a href=""data_s.asp?action=deletebackup&dbpath="&bkfolder&"/&dbname=" & bkdbname &""">当您下载完毕后,点击此处将删除备份的数据库!</a><br><br><br><a href=""Data_s.asp"">返回...</a>"Elseresponse.write "Error ,,找不到文件!<br>"End IfSet fso = nothingEnd Sub'------------------检查某一目录是否存在-------------------Function CheckDir(FolderPath)folderpath=Server.MapPath(folderpath)Set fso1 = CreateObject("Scripting.FileSystemObject")If fso1.FolderExists(FolderPath) Then'存在CheckDir = TrueElse'不存在CheckDir = FalseEnd IfSet fso1 = nothingEnd Function'-------------根据指定名称生成目录-----------------------Function MakeNewsDir(foldername)dim fSet fso1 = CreateObject("Scripting.FileSystemObject")Set f = fso1.CreateFolder(foldername)MakeNewsDir = TrueSet fso1 = nothingEnd FunctionSub BackupData()%><div align=center>备份数据库<form id="edit" method="post" action="data_s.asp?action=BackupData&act=Backup">当前数据库的路径(相对路径):<input type=text size=15 name=DBpath value="<%=ZC_DATABASE_PATH%>">备份数据库的路径(相对路径):<input type=text size=15 name=bkfolder value="/Databackup/">如果该目录不存在,系统将自动建立备份后数据库的名称:<input type=text size=20 name=bkDBname value="<%=Date()%>_bak.mdb"> 按日期自动命名如果备份文件不存在将建立,如果存在,将自动覆盖!<input type=submit value="开始备份"><br></form><br><br><a href="data_s.asp" mce_href="data_s.asp">返回..</a></div><%End SubSub CompressData()%><div align=center>压缩数据库:<form id="edit" action="data_s.asp?action=CompressData" method="post">输入数据库的所在路径压缩数据库的路径:<input type="text" name="dbpath" value="<%=ZC_DATABASE_PATH%>"><input type="submit" value="开始压缩"><input type="checkbox" name="boolIs97" value="True">如果是ac97,请将钩打上.(默认是Access 2000)<br><br></form><br><br><a href="data_s.asp" mce_href="data_s.asp">返回..</a></div><%Dim dbpath,boolIs97dbpath = request("dbpath")boolIs97 = request("boolIs97")If dbpath <> "" Thendbpath = server.mappath(dbpath)response.write(CompactDB(dbpath,boolIs97))End IfEnd Sub'=====================压缩参数=========================Function CompactDB(dbPath, boolIs97)Dim fso, Engine, strDBPath,JET_3XstrDBPath = Left(dbPath,InStrRev(DBPath,""))Set fso = CreateObject("Scripting.FileSystemObject")If fso.FileExists(dbPath) Thenfso.CopyFile dbpath,strDBPath & "temp.mdb"Set Engine = CreateObject("JRO.JetEngine")If boolIs97 = "True" ThenEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb;" _& "Jet OLEDB:Engine Type=" & JET_3XElseEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb"End Iffso.CopyFile strDBPath & "temp1.mdb",dbpathfso.DeleteFile(strDBPath & "temp.mdb")fso.DeleteFile(strDBPath & "temp1.mdb")Set fso = nothingSet Engine = nothingCompactDB = "您的数据库" & dbpath & "已经被成功压缩!" & vbCrLfElseCompactDB = "<br>您输入的路径错误,请确认后重新输入!" & vbCrLfEnd IfEnd Function'////////////////////end////////////////////////%></p>