📄 initialize.aspx

📁 LiteBlaster 是一款基于 .NET Framework 原创的 ASP.NET 论坛系统。后台程序库采用 C#/VB.NET 编写
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" %>
<%@ 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 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html><!-- InstanceBegin template="/Templates/setup_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">
	body{
		background:url(../Skins/Images/Setup/background.jpg) repeat-x #DBE4F2 !important;
	}
	.input_text{
		border:#999FFF 1px solid;
		width:90%;
	}
	.input_text_sml{
		border:#999FFF 1px solid;
		width:45%;
	}
	.input_select{
		width:60%;
	}
	
	.section{
		font-weight:bold; font-size:22px; font-family:"华文新魏"; color:#CCCCCC;
	}
	.guide_allow{
		text-indent:2em; font-size:14px;
	}
	.guide_disallow{
		text-indent:2em; font-size:14px; color:gray;
	}
	.guide_info{
		padding-left:4em; font-size:9pt;
	}
</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 ShowError(ByVal ErrorMsg As String)
		Response.Write("<strong><u>错误信息</u></strong><br /><br />")
		Response.Write(ErrorMsg)
		Response.End()
	End Sub
	Private Sub CheckPermission()
		If Not Setup.NotInstalled Then
			CheckIsAdmin()
		End If
	End Sub
</script>
<!-- InstanceBeginEditable name="head" -->
<script runat="server">
	Sub Page_Load()
		CheckIsAdmin()
	End Sub
	Sub Init_Click(ByVal sender As Object, ByVal e As System.EventArgs)
		Try
			Setup.InitializeForum(ForumTitle.Text, ForumDomain.Text, AdminPassword.Text, AdminQuestion.Text, AdminAnswer.Text)
		Catch ex As Exception
			ShowError(ex.Message)
			Exit Sub
		End Try
		Response.Redirect("Default.aspx")
	End Sub
</script>
<!-- InstanceEndEditable -->
</head>

<body>
<table style="width:800px; background:white" align="center"><tbody><tr><td>
	<br /><br /><br />
	<table class="ListBody" align="center"><tbody><tr><td>
		<table class="ListTable"><tbody>
			<tr>
				<td class="txtleft" width="250">
					<img src="../Logos/LiteBlaster.png" alt="LiteBlaster" width="200" />
				</td>
				<td class="txtcenter" valign="middle">
					<span style="font-weight:bold; font-size:26px; font-family:'华文新魏'; color:#999FFF">
						<!-- InstanceBeginEditable name="Title" -->
						配置初始信息
						<!-- InstanceEndEditable -->
					</span>
				</td>
			</tr>
		</tbody></table>
		<br /><br />
		<form runat="server">
			<!-- InstanceBeginEditable name="Body" -->
			<table class="ListTable">
				<tbody>
					<tr><td colspan="2" class="ListHeader">初始化设定</td></tr>
				</tbody>
				<tbody>
					<tr><td colspan="2" class="ListHeaderSub">论坛信息</td></tr>
					<tr>
						<td width="40%" class="ListItemsTd ListItemsTd_style2 txtright">论坛标题：</td>
						<td class="ListItemsTd ListItemsTd_style1 txtleft">
							<asp:TextBox ID="ForumTitle" CssClass="input_text" runat="server" />
						</td>
					</tr>
					<tr>
						<td class="ListItemsTd ListItemsTd_style2 txtright">论坛域名：</td>
						<td class="ListItemsTd ListItemsTd_style1 txtleft">
							<asp:TextBox ID="ForumDomain" CssClass="input_text" runat="server" />
						</td>
					</tr>
				</tbody>
				<tbody>
					<tr><td colspan="2" class="ListHeaderSub">admin 信息</td></tr>
					<tr>
						<td class="ListItemsTd ListItemsTd_style2 txtright">新密码：</td>
						<td class="ListItemsTd ListItemsTd_style1 txtleft">
							<asp:TextBox ID="AdminPassword" CssClass="input_text" runat="server" />
						</td>
					</tr>
					<tr>
						<td class="ListItemsTd ListItemsTd_style2 txtright">新提示问题：</td>
						<td class="ListItemsTd ListItemsTd_style1 txtleft">
							<asp:TextBox ID="AdminQuestion" CssClass="input_text" runat="server" />
						</td>
					</tr>
					<tr>
						<td class="ListItemsTd ListItemsTd_style2 txtright">新问题答案：</td>
						<td class="ListItemsTd ListItemsTd_style1 txtleft">
							<asp:TextBox ID="AdminAnswer" CssClass="input_text" runat="server" />
						</td>
					</tr>
				</tbody>
				<tbody>
					<tr><td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
						<asp:Button runat="server" Text="确定" OnClick="Init_Click" />
					</td></tr>
				</tbody>
			</table>
			<!-- InstanceEndEditable -->
		</form>
		<br /><br />
	</td></tr></tbody></table>
</td></tr></tbody></table>
</body>
<!-- InstanceEnd --></html>
⌨️ 快捷键说明

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