admin_backdb.asp

来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 182 行

ASP
182 行
字号 
<%@ codepage ="936" %>
<%
if instr(session("flag_fyadmin"),"103")=0 then
response.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
%><!--#include file="../../inc/config.asp"-->
<!--#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" then
currf=request.form("currf")
currf=server.mappath(currf)
backf=request.form("backf")
backf=server.mappath(backf)
backfy=request.form("backfy")
on error resume next
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then 
err.clear
response.write "<script>alert(""不能建立fso对象，请确保你的空间支持fso:！"");history.back();</script>"
response.end
end if
if objfso.Folderexists(backf) then
else
Set fy=objfso.CreateFolder(backf)
end if
objfso.copyfile currf,backf& "\"& backfy
response.write "<script>alert(""备份数据库成功"");history.back();</script>"
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.FileSystemObject")
if err then 
err.clear
response.write "<script>alert(""不能建立fso对象，请确保你的空间支持fso:！"");history.back();</script>"
response.end
end if
if objfso.fileexists(currf) then 
Set Engine = CreateObject("JRO.JetEngine")
on error resume next
If ys = 1 Then
Engine.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_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tourtemp.mdb"
End If
objfso.CopyFile strDBPath & "fytemp.mdb",currf
objfso.DeleteFile(strDBPath & "tourtemp.mdb")
Set objfso = nothing
Set Engine = nothing
if err then 
err.clear
response.write "<script>alert(""错误：很抱歉，由于系统错误，压缩失败:！"");history.back();</script>"
response.end
end if
response.write "<script>alert(""压缩数据库成功"");history.back();</script>"
response.end
Else
response.write "<script>alert(""错误:找不到数据库文件！"");history.back();</script>"
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 "<script>alert(""请输入您要恢复的数据库全名"");history.back();</script>" 
else
backf=server.mappath(backf)
end if
on error resume next
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then 
err.clear
response.write "<script>alert(""不能建立fso对象，请确保你的空间支持fso:！"");history.back();</script>"
response.end
end if
if objfso.fileexists(backf) then 
objfso.copyfile ""&backf&"",""&currf&""
response.write "<script>alert(""恢复数据库成功"");history.back();</script>"
response.end
else
response.write "<script>alert(""错误:备份目录下无您的备份文件！"");history.back();</script>"
response.end
end if
end 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="#EFEFEF"><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">数据库路径： 

<input type="text" name="currf" size="20" value="<%=db%>" disabled></span>&nbsp;&nbsp; 备份数据目录：&nbsp; 
<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="backup<%=year(date)%><%=month(date)%><%=day(date)%>.mdb" disabled>&nbsp; 
<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="#EFEFEF">
<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/backup.mdb">&nbsp;
<input type="submit" name="Submit" value="压缩" >
<input type="reset" name="Submit2" value="重置" >&nbsp;&nbsp; </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="#EFEFEF">
<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="<%=db%>" disabled></span>&nbsp;&nbsp; 备份数据
库路径：<span style="background-color: #F7FFF7"><input type="text" name="backf" size="20" value="dbback/backup.mdb" disabled></span>&nbsp;
<span style="background-color: #F7FFF7">
<input type="submit" name="Submit" value="恢复" >
<input type="reset" name="Submit2" value="重置" > </span>
</td>
</tr>
</table>
</center>
</div>
</form>

admin_backdb.asp - 源码说明

本页面展示了「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」中的 admin_backdb.asp 源码文件，采用 ASP 编程语言编写，共 182 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与物流管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?