📄 refreshdata.aspx

📁 LiteBlaster 是一款基于 .NET Framework 原创的 ASP.NET 论坛系统。后台程序库采用 C#/VB.NET 编写
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" EnableViewState="True" %>
<%@ 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 SelectAll_Click(ByVal sender As Object, ByVal e As System.EventArgs)
		Dim ctrl As Control
		For Each ctrl In OptionsContainer.Controls
			If TypeOf ctrl Is CheckBox Then
				CType(ctrl, CheckBox).Checked = True
			End If
		Next
	End Sub
	Sub SelectNone_Click(ByVal sender As Object, ByVal e As System.EventArgs)
		Dim ctrl As Control
		For Each ctrl In OptionsContainer.Controls
			If TypeOf ctrl Is CheckBox Then
				CType(ctrl, CheckBox).Checked = False
			End If
		Next
	End Sub
	
	Sub RefreshData_Click(ByVal sender As Object, ByVal e As System.EventArgs)
		Dim LeaveMaintainingModeAfterRefreshingData As Boolean = Not SystemInfo.Instance.Maintaining
		SystemInfo.Instance.Maintaining = True
		Try
			' boards related
			If BoardsCB.Checked Then
				Boards.Instance.RefreshData()
			End If
			If ExtraAccessCB.Checked Then
				ExtraAccess.Instance.RefreshData()
			End If
			' users related
			If GroupsCB.Checked Then
				Groups.Instance.RefreshData()
			End If
			If IPAccessCB.Checked Then
				IPAccess.Instance.RefreshData()
			End If
			' system related
			If SystemInfoCB.Checked Then
				SystemInfo.Instance.RefreshData()
			End If
			If EPGainCB.Checked Then
				EPGain.Instance.RefreshData()
			End If
			If BroadcastCB.Checked Then
				Broadcast.Instance.RefreshData()
			End If
			If LinksCB.Checked Then
				Links.Instance.RefreshData()
			End If
			If HelpCB.Checked Then
				Help.Instance.RefreshData()
			End If
		Catch ex As Exception
			ShowError(ex.Message)
		Finally
			SystemInfo.Instance.Maintaining = Not LeaveMaintainingModeAfterRefreshingData
		End Try
	End Sub
</script>
<!-- InstanceEndEditable -->
</head>

<body>
	<div id="BodyFrame" align="left">
		<div id="BodyFrameInner">
			<!-- InstanceBeginEditable name="Container" -->
			<table class="ListBody" align="center"><tbody><tr><td>
				<form runat="server">
					<table class="ListTable">
						<tbody>
							<tr>
								<td class="ListHeader">刷新引擎缓存</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style3 txtcenter">
									刷新缓存之前会自动将论坛转入维护模式，防止出现数据丢失。
								</td>
							</tr>
						</tbody>
					</table>
					<table class="ListTable">
						<tbody id="OptionsContainer" runat="server">
							<tr>
								<td colspan="2" class="ListHeaderSub">版面相关</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="BoardsCB" runat="server" Text="分类及版面" />
								</td>
								<td class="ListItemsTd ListItemsTd_style2 txtleft">
									<asp:CheckBox ID="ExtraAccessCB" runat="server" Text="版面访问规则" />
								</td>
							</tr>
							<tr>
								<td colspan="2" class="ListHeaderSub">用户相关</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="GroupsCB" runat="server" Text="组策略" />
								</td>
								<td class="ListItemsTd ListItemsTd_style2 txtleft">
									<asp:CheckBox ID="IPAccessCB" runat="server" Text="IP 访问规则" />
								</td>
							</tr>
							<tr>
								<td colspan="2" class="ListHeaderSub">系统相关</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="SystemInfoCB" runat="server" Text="系统设定" />
								</td>
								<td class="ListItemsTd ListItemsTd_style2 txtleft">
									<asp:CheckBox ID="EPGainCB" runat="server" Text="经验策略" />
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="BroadcastCB" runat="server" Text="公告" />
								</td>
								<td class="ListItemsTd ListItemsTd_style2 txtleft">
									<asp:CheckBox ID="LinksCB" runat="server" Text="友情链接" />
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="HelpCB" runat="server" Text="帮助" />
								</td>
								<td class="ListItemsTd ListItemsTd_style2 txtleft">
								</td>
							</tr>
						</tbody>
						<tbody>
							<tr>
								<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
									<asp:Button runat="server" Text="全选" OnClick="SelectAll_Click" />
									<asp:Button runat="server" Text="全否" OnClick="SelectNone_Click" />
									&nbsp;&nbsp;
									<asp:Button runat="server" Text="刷新" OnClick="RefreshData_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 + -