📄 admin_backdb.asp
字号:
<%@ codepage ="936" %><%if instr(session("flag"),"83")=0 thenresponse.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"response.write"this.location.href='../login.asp';</SCRIPT>" response.endend if%><!--#include file="../../conn/dbconn2.asp" --><BODY topMargin=0 leftmargin="0" marginheight="0"><link rel="stylesheet" type="text/css" href="../style.css"><%if Request.QueryString("action")="back" thencurrf=request.form("currf")currf=server.mappath(currf)backf=request.form("backf")backf=server.mappath(backf)backfy=request.form("backfy")on error resume nextSet objfso = Server.CreateObject("Scripting.FileSystemObject")if err then err.clearresponse.write "<script>alert(""不能建立fso对象，请确保你的空间支持fso:！"");history.back();</script>"response.endend ifif objfso.Folderexists(backf) thenelseSet fy=objfso.CreateFolder(backf)end ifobjfso.copyfile currf,backf& "\"& backfyresponse.write "<script>alert(""备份数据库成功"");history.back();</script>"end if if Request.QueryString("action")="ys" thencurrf=request.form("currf")currf = server.mappath(currf)ys=request.form("ys")Const JET_3X = 4strDBPath = left(currf,instrrev(currf,"\"))on error resume nextSet objfso = Server.CreateObject("Scripting.FileSystemObject")if err then err.clearresponse.write "<script>alert(""不能建立fso对象，请确保你的空间支持fso:！"");history.back();</script>"response.endend ifif objfso.fileexists(currf) then Set Engine = CreateObject("JRO.JetEngine")on error resume nextIf ys = 1 ThenEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tourtemp.mdb;" _& "Jet OLEDB:Engine Type=" & JET_3XElseEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tourtemp.mdb"End Ifobjfso.CopyFile strDBPath & "fytemp.mdb",currfobjfso.DeleteFile(strDBPath & "tourtemp.mdb")Set objfso = nothingSet Engine = nothingif err then err.clearresponse.write "<script>alert(""错误：很抱歉，由于系统错误，压缩失败:！"");history.back();</script>"response.endend ifresponse.write "<script>alert(""压缩数据库成功"");history.back();</script>"response.endElseresponse.write "<script>alert(""错误:找不到数据库文件！"");history.back();</script>"response.endEnd Ifend ifif Request.QueryString("action")="reload" thencurrf=request.form("currf")currf=server.mappath(currf)backf=request.form("backf")if backf="" thenresponse.write "<script>alert(""请输入您要恢复的数据库全名"");history.back();</script>" elsebackf=server.mappath(backf)end ifon error resume nextSet objfso = Server.CreateObject("Scripting.FileSystemObject")if err then err.clearresponse.write "<script>alert(""不能建立fso对象，请确保你的空间支持fso:！"");history.back();</script>"response.endend ifif objfso.fileexists(backf) then objfso.copyfile ""&backf&"",""&currf&""response.write "<script>alert(""恢复数据库成功"");history.back();</script>"response.endelseresponse.write "<script>alert(""错误:备份目录下无您的备份文件！"");history.back();</script>"response.endend ifend if sql="select count(fweek) as fweek1 from fcount"set rs=conn.execute(sql)fcount1=rs("fweek1")set rs=nothing%><form name="form1" method="POST" action="admin_backdb.asp?action=back"><div align="center"><center><table border="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1" cellspacing="3"><tr><td width="100%" bgcolor="#E8F4FF"><b><span style="background-color: #FBFDFF">备份数据库</span></b></td></tr><tr><td width="100%" bgcolor="#FBFDFF">你的空间只有支持fso才可以进行如下操作，否则你只能手动备份</td></tr><tr><td width="100%" bgcolor="#FBFDFF">数据库路径： <span style="background-color: #F7FFF7"> <input type="text" name="currf" size="20" value="../../database/*.mdb"></span> 备份数据目录： <span style="background-color: #F7FFF7"> <input type="text" name="backf" size="20" value="dbback"></span></td></tr><tr><td width="100%" bgcolor="#FBFDFF">数据库名称： <span style="background-color: #F7FFF7"> <input type="text" name="backfy" size="20" value="back.mdb"> <input type="submit" name="Submit" value="备份" ><input type="reset" name="Submit2" value="重置" > </span> </td></tr></table></center></div></form><form name="form1" method="POST" action=admin_backdb.asp?action=ys><div align="center"><center><table border="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber2" cellspacing="3"><tr><td width="100%" bgcolor="#E8F4FF"><span style="background-color: #F7FFF7; font-weight:700">压缩数据库</span></td></tr><tr><td width="100%"><span style="background-color: #F7FFF7">你的</span>空间只有支持fso才可以进行如下操作，否则你只能手动压缩</td></tr><tr><td width="100%"><span style="background-color: #F7FFF7">数</span>据库路径：<span style="background-color: #F7FFF7"><input type="text" name="currf" size="20" value="dbback/backtour.mdb"> <input type="submit" name="Submit" value="压缩" ><input type="reset" name="Submit2" value="重置" > </span><input type="radio" value="1" name="ys">使用 Access 97 数据库<input type="radio" value="2" checked name="ys">使用 Access 2000 数据库</td></tr><tr><td width="100%">（为了安全，请注意用备份的数据库文件来压缩，不要用当前正在运行的数据库文件）</td></tr></table></center></div></form><form name="form1" method="POST" action="admin_backdb.asp?action=reload"><div align="center"><center><table border="0" cellpadding="3" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber3"><tr><td width="100%" bgcolor="#E8F4FF"><span style="background-color: #F7FFF7; font-weight:700">恢复数据库</span></td></tr><tr><td width="100%">你的空间只有支持fso才可以进行如下操作，否则你只能手动恢复</td></tr><tr><td width="100%">当前数据库路径：<span style="background-color: #F7FFF7"><input type="text" name="currf" size="20" value="../../database/*.mdb"></span> 备份数据库路径：<span style="background-color: #F7FFF7"><input type="text" name="backf" size="20" value="dbback/back.mdb"></span> <span style="background-color: #F7FFF7"><input type="submit" name="Submit" value="恢复" ><input type="reset" name="Submit2" value="重置" > </span></td></tr></table></center></div></form>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -