📄 hfa.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="pragma" content="no-cache">
<title>红笛软件</title>
<style type="text/css">
<!--
.tables {
background-image: url(../../Image/bigbg.jpg);
background-repeat: no-repeat;
}
.style3 {font-size: 12px}
.style4 { color: #FFFFFF;
font-size: 14px;
}
body,td,th {
font-size: 12px;
}
.STYLE9 {
font-size: 36px;
font-family: "黑体";
font-weight: bold;
color: #FFFF00;
}
.STYLE10 {color: #FF0000}
.STYLE13 {
font-weight: bold;}
a:link {
text-decoration: none;
color: #000066;
}
a:visited {
text-decoration: none;
color: #000066;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.B A:link {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:visited {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:hover {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:active {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.STYLE12 {font-family: "黑体"; font-size: 16px;color: #ffffff;}
body {
background-color: #DEE7FF;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(../Image/bg.gif);
}
-->
</style><script language="JavaScript" type="text/JavaScript">
function delpay()
{
if(confirm("确定要删除此吗？"))
return true;
else
return false;
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body onmouseover="self.status='红笛软件:服务网址[http://weekaa.com/red]';return true">
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#3399fd">
<tr>
<td height="150" align="center" valign="bottom"><img src="../../Image/bigbga.jpg" width="1003" height="150"></td>
</tr>
<tr>
<td height="28" align="center" valign="middle" background="../../Image/bg01a.jpg"><span class="b"><a href="../LoginList.asp">日志</a> <a href="../SQlist.asp">授权</a> <a href="../BF.asp">备份</a> <a href="HFa.asp">恢复</a> <a href="../User_Edit.asp">管理密码</a> <a href="../User_Edit.asp">老师密码</a> <a href="../passstu.asp">学生密码</a></span></td>
</tr>
<tr>
<td height="400" align="center" valign="top" bgcolor="#3399FD">
<p>
<%
if session("AdminUser")<>"admin" then
response.Redirect("ErrInfo.asp?Info=只有管理员帐号才能进行系统管理!")
end if
'当点删除文件后，删除指定文件并返回
struploadfiles=trim(request.querystring("FileNameL"))
if struploadfiles<>"" then
response.write struploadfiles
call delfiles(struploadfiles & "")
end if
i=0
j=0
page=request.querystring("page")
if page="" then page=1 end if
pagelist=page*30
%>
</p>
<p class="STYLE12"> </p>
<p class="STYLE12">备 份 文 件 管 理 </p>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#D5DEFF">
<tr>
<td height="28" colspan="4" align="center" background="../../Image/bg01.jpg" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td width="46" height="30" align="center" bgcolor="#FFFFFF">序号</td>
<td width="409" align="center" bgcolor="#FFFFFF">第<%=page%>页 文件列表</td>
<td width="67" align="center" bgcolor="#FFFFFF">恢复</td>
<td width="68" align="center" bgcolor="#FFFFFF">删除</td>
</tr>
<%
'本地文件名列表
Set sysFSO = Server.CreateObject("Scripting.FileSystemObject")
Set sysFolder = sysFSO.GetFolder(Server.MapPath("./"))
Set sysFiles = sysFolder.Files
If sysFiles.Count <> 0 Then
For Each sysFile In sysFiles
FileName=sysFile.Name
FileTime=sysFile.DateCreated
BQ=session("sqlName")
BP=len(BQ)
FileNameOne=Mid(FileName,1,BP)
if FileNameOne =BQ then
FileName=sysFile.Name
i=i+1
if i>=pagelist-30 and i<=pagelist then
j=j+1
FileLong="<a href="&FileName&">"
Response.Write "<tr bgcolor='#FFFFFF'><td align='center' height='30'>"
Response.Write j
Response.Write "</td><td align='left'> "
Response.Write FileName & " "
Response.Write FileTime
Response.Write "</td>"
Response.Write "<td align='center'>"
FileLong=" <a href=../HF.asp?FileNam="&sysFile.Name&">"
Response.Write FileLong
Response.Write "［恢复］</a>"
Response.Write "</td>"
Response.Write "<td align='center'>"
FileLongg=" <a href=?FileNameL="&sysFile.Name&">"
Response.Write FileLongg
Response.Write "［删除］</a>"
Response.Write "</td></tr>"
end if
end if
Next
End If
sub delfiles(struploadfiles)
dim fso
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath("" & struploadfiles))
set fso = nothing
url="HFa.asp?page="&page
Response.Redirect (url)
end sub
%>
<tr align="center">
<td height="28" colspan="4" align="center" valign="bottom" background="../../Image/bg01.jpg" bgcolor="#FFFFFF">
<%
response.write "共有"&i&"个备份文件，"
j=i\30+1
response.write "分"&j&"页。 "
for i=1 to j
L="<a href=?page="&i&">第"&i&"页</a> "
response.write L
if i\10=i/10 then
response.write "<br>"
end if
next
%> </td></tr></table>
<p align="center" class="STYLE12">[恢复数据必须关闭企业管理器]</p>
</td>
</tr>
<tr>
<td height="25" background="../../Image/bg01a.jpg" bgcolor="#3399FD"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -