📄 status.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" %>
<%@ Import Namespace="System.Net" %>
<%@ 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()
CheckIsSuperMaster()
Dim maintain_str As String = Request.Form("maintaining")
If Len(maintain_str) > 0 Then
SystemInfo.Instance.Maintaining = Convert.ToBoolean(maintain_str)
End If
End Sub
Sub ShutDownBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
HttpRuntime.UnloadAppDomain
Response.Clear()
Response.End()
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>
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeader">服务器信息</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright" width="30%">
服务器名称:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.MachineName %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright" width="30%">
服务器 IP:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Dns.GetHostByName(Dns.GetHostName()).AddressList(0).ToString() %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright" width="30%">
CLR 安装路径:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=HttpRuntime.ClrInstallDirectory %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
根目录物理路径:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=SharedLib.PhysicalApplicationPath %>
</td>
</tr>
</tbody>
</table>
<br />
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeader">连接状态</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright" width="30%">
在线用户总数:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=SystemInfo.Instance.OnlineTotalCount %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
数据连接总数:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Connection.ConnectionCount %>
(本次峰值：<%=Connection.MaxConnectionCountSinceStarted %>)
</td>
</tr>
</tbody>
</table>
<br />
<form name="maintainingForm" action="Status.aspx" enctype="application/x-www-form-urlencoded" method="POST">
<table class="ListTable">
<tbody class="ListHeader">
<tr>
<td>维护状态</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<ul>
<li>为了防止论坛在管理或者维护时出现异常，建议您在对论坛进行较大改动时进入维护状态。</li>
<li>这样，可以阻止所有用户访问论坛。</li>
<li>如果有必要，您可以修改论坛选项，使得论坛程序在每次启动之后都默认自动转入维护状态。</li>
</ul>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtcenter">
<select name="maintaining" style="width:50%">
<option value="true">维护状态 —— 开启</option>
<option value="false">维护状态 —— 关闭</option>
</select>
<script language="javascript" type="text/javascript">
this.maintainingForm.maintaining.value = '<%=IIf(SystemInfo.Instance.Maintaining, "true", "false") %>';
</script>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style3 txtcenter">
<input type="submit" value="确定" />
</td>
</tr>
</tbody>
</table>
</form>
<br />
<form runat="server">
<table class="ListTable">
<tbody>
<tr>
<td class="ListHeader">远程终止</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style1 txtcenter">
在某些情况下，您可能需要重启论坛。单击下面的按钮即可终止论坛的运行，论坛在获得请求时会自动启动。<br />
不过建议请在用户流量较大时先进入维护状态，阻止用户访问，然后再终止。避免突然终止造成数据丢失。
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style3 txtcenter">
<input type="submit" value="终止程序" runat="server" onClick="if(confirm('确定要终止程序吗？')){alert('如果没有任何错误提示，那么论坛程序已经终止成功。直接关闭当前页面即可。'); return true;}else{return false;}" onServerClick="ShutDownBtn_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 + -