📄 ipaccess.aspx

📁 LiteBlaster 是一款基于 .NET Framework 原创的 ASP.NET 论坛系统。后台程序库采用 C#/VB.NET 编写
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" Inherits="Auway.LiteBlaster.Pages.Admin_IPAccess" %>
<%@ 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 language="javascript" type="text/javascript" src="../Lib/Admin/ipAccess.js"></script>

<script runat="server">
	Sub Page_Load()
		CheckIsAdmin()
	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 class="ListHeader" width="15%">
								IP
							</td>
							<td class="ListHeader" width="15%">
								用户名
							</td>
							<td class="ListHeader" width="20%">
								访问规则
							</td>
							<td class="ListHeader" width="40%">
								失效时间
							</td>
							<td class="ListHeader">
								操作
							</td>
						</tr>
					</tbody>
					<tbody>
						<tr>
							<td colspan="5" class="ListItemsTd ListItemsTd_style3 txtcenter">
								用户名留空代表全站用户
							</td>
						</tr>
					</tbody>
					<tbody>
						<tr>
							<td class="ListItemsTd ListItemsTd_style2 txtcenter">
								<input id="IPAccessIP" type="text" class="input_text" />
							</td>
							<td class="ListItemsTd ListItemsTd_style1 txtcenter">
								<input id="IPAccessUserName" type="text" class="input_text" />
							</td>
							<td class="ListItemsTd ListItemsTd_style2 txtcenter">
								<select id="IPAccessAccessType" class="input_select">
									<option value="0">可信任</option>
									<option value="1">绑定</option>
									<option value="2">拒绝</option>
								</select>
							</td>
							<td class="ListItemsTd ListItemsTd_style1 txtcenter">
								<input id="IPAccessExpireInHours" type="text" class="input_text_sml" value="0" />
								小时后失效(非正代表无限期)
							</td>
							<td class="ListItemsTd ListItemsTd_style2 txtcenter">
								<input type="button" value="添加" onClick="addIPAccess();" />
							</td>
						</tr>
					</tbody>
				</table>
				<div id="IPAccessList"><%=GenerateIPAccessItemsHtml() %></div>
			</td></tr></tbody></table>
			<!-- InstanceEndEditable -->
		</div>
	</div>
</body>
<!-- InstanceEnd --></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -