📄 sysmsgmanager.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 MsgSend_Click(ByVal sender As Object, ByVal e As System.EventArgs)
		Try
			If Not MsgByEmail.Checked Then
				Messages.Add(MsgTo.Value, MsgBody.Value, True)
			Else
				Mail.SendToUser(MsgTo.Value, MsgEmailSubject.Value, MsgBody.Value, Not MsgEmailHtml.Checked)
			End If
			StatusMsg.InnerHtml = "向&ldquo;" & Server.HtmlEncode(MsgTo.Value) & "&rdquo;发送系统" & CType(IIf(MsgByEmail.Checked, "邮件", "消息"), String) & "成功。"
		Catch ex As Exception
			ShowError(ex.Message)
		End Try
	End Sub
	Sub MsgBroadcast_Click(ByVal sender As Object, ByVal e As System.EventArgs)
		Try
			If Not MsgByEmail.Checked Then
				Messages.Add(MsgBody.Value)
			Else
				Mail.SendToUser(Nothing, MsgEmailSubject.Value, MsgBody.Value, Not MsgEmailHtml.Checked)
			End If
			StatusMsg.InnerText = "广播" & CType(IIf(MsgByEmail.Checked, "邮件", "消息"), String) & "成功。"
		Catch ex As Exception
			ShowError(ex.Message)
		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 colspan="2" class="ListHeader">发送系统消息</td>
							</tr>
						</tbody>
						<tbody>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright" width="30%">接收方用户名:</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<input id="MsgTo" type="text" class="input_text" runat="server" />
									<br />
									(当广播短消息时，无需填写用户名)
								</td>
							</tr>
							<tr>
								<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtleft">
									<input id="MsgByEmail" type="checkbox" runat="server" onClick="setElementVisible('MsgEmailOptions', this.checked);" /><label for="MsgByEmail"><strong>采用电子邮件方式</strong></label>
									<span id="MsgEmailOptions" style="display:none">
										<br /><br />
										标题：
										<input id="MsgEmailSubject" type="text" class="input_text_sml" runat="server" />
										<br />
										<input id="MsgEmailHtml" type="checkbox" runat="server" /><label for="MsgEmailHtml">启用 HTML</label>
									</span>
									<script language="javascript" type="text/javascript">
										setElementVisible('MsgEmailOptions', xGetElementById('MsgByEmail').checked);
									</script>
								</td>
							</tr>
							<tr>
								<td colspan="2" class="ListItemsTd ListItemsTd_style2 txtcenter">
									<br />
									<textarea id="MsgBody" class="input_text" rows="15" runat="server"></textarea>
									<br />&nbsp;
								</td>
							</tr>
							<tr>
								<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
									<input id="MsgSend" type="button" value="发送给指定用户" runat="server" onServerClick="MsgSend_Click" />
									<input id="MsgBroadcast" type="button" value="广播" runat="server" onServerClick="MsgBroadcast_Click" />
								</td>
							</tr>
						</tbody>
						<tbody>
							<tr>
								<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
									<span id="StatusMsg" style="font-weight:bold" runat="server" />
								</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 + -