📄 automaticmaintenance.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" SmartNavigation="True" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="Auway.LiteBlaster.Core" %>
<%@ Import Namespace="Auway.LiteBlaster.Enumerations" %>
<%@ Import Namespace="Auway.LiteBlaster.Exceptions" %>
<%@ Import Namespace="Auway.LiteBlaster.Extensions" %>
<%@ Import Namespace="Auway.LiteBlaster.Forum" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html><!-- InstanceBegin template="/Templates/admin_main.dwt.aspx" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>论坛后台管理系统</title>
<!-- InstanceEndEditable -->
<link rel="stylesheet" type="text/css" href="../Skins/Styles/main.css" />
<link rel="stylesheet" type="text/css" href="../Skins/Styles/itemList.css" />
<style type="text/css">
.input_text{
border:#999FFF 1px solid;
width:90%;
}
.input_text_sml{
border:#999FFF 1px solid;
width:45%;
}
.input_select{
width:60%;
}
</style>
<script language="javascript" type="text/javascript" src="../Lib/sarissa.js"></script>
<script language="javascript" type="text/javascript" src="../Lib/ajax.js"></script>
<script language="javascript" type="text/javascript" src="../Lib/x/x_core.js"></script>
<script language="javascript" type="text/javascript" src="../Lib/x/x_event.js"></script>
<script language="javascript" type="text/javascript" src="../Lib/main.js"></script>
<script runat="server">
Private Sub CheckIsAdmin()
Try
UserInfo.GetCurrentUser().CheckIsAdmin()
Catch ex As Exception
ShowError(ex.Message)
End Try
End Sub
Private Sub CheckIsSuperMaster()
Try
UserInfo.GetCurrentUser().CheckIsSuperMaster()
Catch ex As Exception
ShowError(ex.Message)
End Try
End Sub
Private Sub ShowError(ByVal ErrorMsg As String)
Response.Clear()
Response.Redirect("Error.aspx?msg=" & SharedLib.UrlEncode(ErrorMsg), True)
End Sub
</script>
<!-- InstanceBeginEditable name="head" -->
<script runat="server">
Sub Page_Load()
CheckIsAdmin()
End Sub
Sub ClearInvalidUploads_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Upload.ClearInvalidUploads()
StatusMsg.InnerText = "清理无效上传资源成功。"
Catch ex As Exception
ShowError(ex.Message)
End Try
End Sub
Sub BackupDB_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Maintenance.BackupDatabase(BackupFileName.Text)
StatusMsg.InnerText = "成功备份当前数据库。"
Catch ex As Exception
ShowError(ex.Message)
End Try
End Sub
Sub RestoreDB_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Maintenance.RestoreDatabase(RestoreFileName.Text)
StatusMsg.InnerText = "成功还原到指定还原点。请重启论坛程序。"
Catch ex As Exception
ShowError(ex.Message)
End Try
End Sub
Sub RemoveRestore_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Maintenance.RemoveRestorePoint(RestoreFileName.Text)
StatusMsg.InnerText = "成功删除指定还原点。"
Catch ex As Exception
ShowError(ex.Message)
End Try
End Sub
</script>
<script language="javascript" type="text/javascript">
function setRestore(fileName){
xGetElementById('RestoreFileName').value = fileName;
}
</script>
<!-- InstanceEndEditable -->
</head>
<body>
<div id="BodyFrame" align="left">
<div id="BodyFrameInner">
<!-- InstanceBeginEditable name="Container" -->
<table class="ListBody" align="center"><tbody><tr><td>
<table class="ListTable">
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style3 txtcenter">
<span id="StatusMsg" style="font-weight:bold" runat="server" />
</td>
</tr>
</tbody>
</table>
<br />
<form runat="server">
<table class="ListTable">
<tbody class="ListHeader">
<tr>
<td>系统资源清理</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style1 txtcenter">
<asp:Button Text="清理无效上传资源" runat="server" OnClick="ClearInvalidUploads_Click" />
</td>
</tr>
</tbody>
</table>
<br />
<table class="ListTable">
<tbody class="ListHeader">
<tr>
<td colspan="2">备份后台数据库</td>
</tr>
</tbody>
<tbody>
<tr>
<td width="40%" class="ListItemsTd ListItemsTd_style2 txtright">
生成文件名(后缀不用填)：
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<asp:TextBox CssClass="input_text" ID="BackupFileName" runat="server" TextMode="SingleLine" />
<br />
如果不填代表使用当前时间作为文件名；后缀强制使用.config
</td>
</tr>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
<asp:Button Text="备份数据库" runat="server" OnClick="BackupDB_Click" />
</td>
</tr>
</tbody>
</table>
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeader">还原后台数据库</td>
</tr>
</tbody>
<tbody>
<tr>
<%
Dim files() As FileInfo = Maintenance.GetRestorePoints()
If files.Length = 0 Then
%>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
目前尚未创建还原点
</td>
<% Else %>
<td class="ListHeaderSub">名称</td>
<td class="ListHeaderSub">创建时间</td>
<% End If %>
</tr>
<%
Dim fi As FileInfo
For Each fi In files
%>
<tr>
<td class="ListItemsTd ListItemsTd_style1 txtcenter">
<a href="#" onClick="setRestore('<%=fi.Name %>'); return false;"><%=Server.HtmlEncode(fi.Name) %></a>
</td>
<td class="ListItemsTd ListItemsTd_style2 txtcenter">
<%=Server.HtmlEncode(fi.CreationTime.ToString("yyyy-MM-dd HH:mm:ss")) %>
</td>
</tr>
<% Next %>
</tbody>
<tbody>
<tr>
<td colspan="2" class="ListHeaderSub">
操作面板
</td>
</tr>
<tr>
<td width="40%" class="ListItemsTd ListItemsTd_style2 txtright">
还原点：
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<asp:TextBox CssClass="input_text" ID="RestoreFileName" runat="server" TextMode="SingleLine" EnableViewState="false" />
</td>
</tr>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
<asp:Button Text="还原数据库" runat="server" OnClick="RestoreDB_Click" />
<asp:Button Text="删除还原点" runat="server" OnClick="RemoveRestore_Click" />
</td>
</tr>
</tbody>
</table>
</form>
</td></tr></tbody></table>
<!-- InstanceEndEditable -->
</div>
</div>
</body>
<!-- InstanceEnd --></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -