📄 forumsetup.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" EnableViewState="True" SmartNavigation="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">
Private si As SystemInfo
Sub Page_Load()
CheckIsAdmin()
si = SystemInfo.Instance
If Not Page.IsPostBack Then
'basic info
ForumTitle.Value = si.ForumTitle
ForumDomain.Value = si.ForumDomain
ForumLogo.Value = si.ForumLogoPath
'ad
ForumAd.Value = si.ForumAd
'forbidden
ForbiddenUserNames.Value = si.ForbiddenUserNames
Badwords.Value = si.Badwords
'extensions
MoodEnabled.Checked = si.MoodEnabled
CodeEnabled.Checked = si.CodeEnabled
VoteEnabled.Checked = si.VoteEnabled
UploadSizeLimit.Value = si.UploadSizeLimit.ToString()
UploadCountLimitPerPost.Value = si.UploadCountLimitPerPost.ToString()
UploadTypeLimit.Value = si.UploadTypeLimit
EPRemarkLimitPerTopic.Value = si.EPRemarkLimitPerTopic.ToString()
EPRemarkLimitPerPost.Value = si.EPRemarkLimitPerPost.ToString()
'advanced options
MaintainingOnStart.Checked = si.MaintainingOnStart
LockNewUser.Checked = si.LockNewUser
NotifyAdminWhenRegInfoChanged.Checked = si.NotifyAdminWhenRegInfoChanged
'system email
SystemEmailSmtpServer.Value = si.SystemEmailSmtpServer
SystemEmailSslEnabled.Checked = si.SystemEmailSslEnabled
SystemEmailAddress.Value = si.SystemEmailAddress
SystemEmailUserName.Value = si.SystemEmailUserName
SystemEmailPassword.Value = si.SystemEmailPassword
'setup info
Copyright.Value = si.Copyright
Maintain.Value = si.Maintain
OtherInfo.Value = si.OtherInfo
End If
End Sub
Sub ForumBasicInfoBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
si.UpdateForumBasicInfo(ForumTitle.Value, ForumDomain.Value, ForumLogo.Value)
Catch ex As Exception
ShowError(ex.Message)
End Try
End Sub
Sub ForumAdBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
si.UpdateForumAd(ForumAd.InnerText)
Catch ex As Exception
ShowError(ex.Message)
End Try
End Sub
Sub ForbiddenContentsBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
si.UpdateForbiddenContents(SharedLib.StringToStringArray(ForbiddenUserNames.Value), _
SharedLib.StringToStringArray(Badwords.Value))
Catch ex As Exception
ExceptionHandler.HandleExceptionToErrorPage(ex.Message, True)
End Try
End Sub
Sub ExtensionsBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
si.UpdateExtensions(MoodEnabled.Checked, CodeEnabled.Checked, VoteEnabled.Checked, _
CInt(UploadSizeLimit.Value), CInt(UploadCountLimitPerPost.Value), _
SharedLib.StringToStringArray(UploadTypeLimit.Value), _
CInt(EPRemarkLimitPerTopic.Value), CInt(EPRemarkLimitPerPost.Value))
Catch ex As Exception
ExceptionHandler.HandleExceptionToErrorPage(ex.Message, True)
End Try
End Sub
Sub AdvancedOptionsBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
si.UpdateAdvancedOptions(MaintainingOnStart.Checked, LockNewUser.Checked, NotifyAdminWhenRegInfoChanged.Checked)
Catch ex As Exception
ExceptionHandler.HandleExceptionToErrorPage(ex.Message, True)
End Try
End Sub
Sub SystemEmailInfoBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
si.UpdateSystemEmailInfo(SystemEmailSmtpServer.Value, SystemEmailSslEnabled.Checked, SystemEmailAddress.Value, SystemEmailUserName.Value, SystemEmailPassword.Value)
Catch ex As Exception
ExceptionHandler.HandleExceptionToErrorPage(ex.Message, True)
End Try
End Sub
Sub ForumSetupInfoBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
si.UpdateForumSetupInfo(Copyright.Value, Maintain.Value, OtherInfo.Value)
Catch ex As Exception
ExceptionHandler.HandleExceptionToErrorPage(ex.Message, True)
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>
</tbody>
</table>
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeaderSub">基本信息</td>
</tr>
</tbody>
<tbody>
<tr>
<td width="30%" class="ListItemsTd ListItemsTd_style2 txtright">
论坛标题:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<input id="ForumTitle" type="text" class="input_text" runat="server" />
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
论坛域名:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<input id="ForumDomain" type="text" class="input_text" runat="server" />
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
Logo 文件名:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<input id="ForumLogo" type="text" class="input_text" runat="server" />
<br />
Logo 文件应当存放在 Logos 文件夹下。
</td>
</tr>
</tbody>
<tbody>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
<input id="ForumBasicInfoBtn" type="button" value="确定" runat="server" onServerClick="ForumBasicInfoBtn_Click" />
</td>
</tr>
</tbody>
</table>
<table cols="2" class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeaderSub">上部广告</td>
</tr>
</tbody>
<tbody>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style1 txtcenter">
<br />
<textarea id="ForumAd" class="input_text" rows="5" runat="server"></textarea>
<br />
可使用 HTML
</td>
</tr>
</tbody>
<tbody>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
<input id="ForumAdBtn" type="button" value="确定" runat="server" onServerClick="ForumAdBtn_Click" />
</td>
</tr>
</tbody>
</table>
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeaderSub">屏蔽内容</td>
</tr>
</tbody>
<tbody>
<tr>
<td width="30%" class="ListItemsTd ListItemsTd_style2 txtright">
屏蔽用户名:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<input id="ForbiddenUserNames" type="text" class="input_text" runat="server" />
<br />
用“|”分隔多个内容
<br />
可以通过屏蔽用户达到组织使用该用户名注册或者登录的效果。
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -