📄 autobackuprestore.asp
字号:
<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
Server.ScriptTimeout=600
if Session("a_c_user_name")="" then
Response.write "<b>[操作失败]</b><p>您尚未登录（或已经超时退出），不能进行此操作！"
Response.end
end if
if Session("a_c_user_level")<10 then
Response.Write "<b>[操作失败]</b><p>您没有备份／还原的权限！"
Response.End
end if
Set fs=CreateObject("Scripting.FileSystemObject")
autobakpath=Server.Mappath("autobak")%><html>
<head>
<title>自动备份/还原</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type='text/css'>
<!--
.p9 {line-height: 150%; font-size: 9pt;}
.p12 {line-height: 150%; font-size: 12pt;}
body {line-height: 150%;font-size : 12pt;}
A {text-decoration: none;}
A:Hover {text-decoration : none;}
a:visited { color: #0000FF}
-->
</style>
<script language="javaScript">
function load()
{var name=navigator.appName
var vers=navigator.appVersion
if(name=="Netscape")
{window.location.reload()
}else
{history.go(0)
}}</script>
</head>
<body bgcolor="FFFFFF">
<h1 align="center"><font color="0099FF">【自动备份／还原】</font></h1>
<form method="post" action="">
<div align="center">
<input type="button" value="刷新" onClick=load() style="font-size:12pt" name="button">
<a href="javascript:history.go(-1)">返回</a></div>
</form>
<hr noshade size="1" color=009900>
<p><b>[功能说明]</b></p>
<blockquote>
<form method="post" action="autobakjg.asp">
系统每隔
<select name="bakjg" style="font-size:12pt">
<%jg=int(Application("a_c_autobak_jg"))
for i=1 to 24%>
<option value="<%=i%>"<%if i=jg then Response.write " selected"%>><%=i%></option>
<%next%>
</select>
<input type="submit" name="Submit" value="更改" style="font-size:12pt">
小时自动备份一次用户注册资料到 autobak 目录下。
</form>
<p> 上次备份时间：<%=Application("a_c_autobak_lasttime")%></p>
<p><b>注意：</b><font color="#FF0000">还原备份文件后</font>，必须使用“<a href="reload.asp">重载注册资料</a>”功能才能使还原数据生效。</p>
</blockquote>
<hr noshade size="1" color=009900>
<table border="1" align="center" cellspacing="0" bgcolor="#E0E0E0" bordercolordark="#FFFFFF" bordercolorlight="#999999" cellpadding="4" width="75%">
<tr bgcolor="#0099FF">
<td align="center"><font color="#FFFFFF">位置</font></td>
<td align="center"><font color="#FFFFFF">备份包名称</font></td>
<td align="center"><font color="#FFFFFF">大小</font></td>
<td align="center"><font color="#FFFFFF">还原</font></td>
<td align="center"><font color="#FFFFFF">删除</font></td>
</tr>
<%Set f=fs.GetFolder(autobakpath)
Set fc=f.Files
bakfilejs=0
For Each f1 in fc
bakfilejs=bakfilejs+1
fn=f1.name%>
<tr>
<td align="center"><%=bakfilejs%></td>
<td align="center"><%=fn%></td>
<td align="center">
<div align="right"><%=round(f1.size/1024)%> K</div>
</td>
<td align="center"><a href=autorestore.asp?id=<%=Server.URLEncode(fn)%>>-->
还原</a></td>
<td align="center"><a href=autobakdel.asp?id=<%=Server.URLEncode(fn)%>>删除</a></td>
</tr>
<%next%>
</table>
<hr noshade size="1" color=009900>
<div align="center" class="p9"><script src="use.asp"></script> <script src="sn.asp"></script><br><script src="copyright.asp"></script></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -