📄 manualmaintenance.aspx

📁 LiteBlaster 是一款基于 .NET Framework 原创的 ASP.NET 论坛系统。后台程序库采用 C#/VB.NET 编写
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" EnableViewState="True" %>
<%@ Import Namespace="System.Collections.Generic" %>
<%@ Import Namespace="System.Data" %>
<%@ 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()
		Status.InnerText = String.Empty
	End Sub
	
	Sub QueryBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
		Dim conn As New Connection
		conn.Open()
		Try
			Dim cmd As Command = conn.CreateCommand()
			cmd.CommandText = CommandText.Text.Replace(Chr(13), String.Empty).Replace(Chr(10), " ")
			Dim dt As New DataTable
			Dim da As New DataAdapter(cmd)
			da.Fill(dt)
			QueryGrid.DataSource = dt
			QueryGrid.DataBind()
			Status.InnerText = "查询得到 " & QueryGrid.Items.Count.ToString() & " 行记录"
		Catch ex As Exception
			Status.InnerText = ex.Message
		Finally
			QueryGrid.Visible = True
			conn.Close()
		End Try
	End Sub
	Sub UpdateBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
		Dim conn As New Connection
		conn.Open()
		Try
			Dim cmd As Command  = conn.CreateCommand()
			cmd.CommandText = CommandText.Text.Replace(Chr(13), String.Empty).Replace(Chr(10), " ")
			Status.InnerText = "更新 " & cmd.ExecuteNonQuery().ToString() & " 行"
		Catch ex As Exception
			Status.InnerText = ex.Message
		Finally
			QueryGrid.Visible = False
			conn.Close()
		End Try
	End Sub
	Sub UpdateMultiBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
		Try
			Dim UpdateLineCount As Integer = Maintenance.RunSqls(CommandText.Text)
			Status.InnerText = "累计更新 " & UpdateLineCount.ToString() & " 行(可能重复)"
		Catch ex As Exception
			Status.InnerText = ex.Message
		Finally
			QueryGrid.Visible = False
		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>
						<tbody>
							<tr>
								<td class="ListItemsTd ListItemsTd_style3 txtleft">
									<ul>
										<li>警告：</li>
										<li>人工维护应当在有必要时才使用，因为在此模块中将直接使用SQL脚本对后台数据库进行操作。</li>
										<li>该脚本不会经过论坛引擎检查，享有最高权限，很有可能造成无法恢复的数据丢失！</li>
										<li>一次只能执行一条SQL语句（批量除外，批量脚本用“;”或者新一行"GO"作为分隔符）。</li>
										<li>如果升级论坛程序时有必要升级数据库，那么请直接运行官方发布的针对相关数据库的SQL脚本。</li>
										<li>如果论坛出现错误而不能通过论坛程序其它模块解决，请根据技术支持提供的相应SQL脚本完成指定的操作。</li>
									</ul>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style1 txtcenter">
									<br />
									<asp:TextBox ID="CommandText" CssClass="input_text" Rows="10" runat="server" TextMode="MultiLine" />
									<br />
									<asp:Button Text="执行查询" runat="server" onClick="QueryBtn_Click" />
									<asp:Button Text="单句更新" runat="server" onClick="UpdateBtn_Click" />
									<asp:Button Text="批量更新" runat="server" onClick="UpdateMultiBtn_Click" />
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style1 txtcenter">
									<span id="Status" style="font-weight:bold" runat="server" />
								</td>
							</tr>
						</tbody>
					</table>
					<br />
					<asp:DataGrid ID="QueryGrid" EnableViewState="False" HorizontalAlign="Center" HeaderStyle-Font-Bold="True" runat="server"></asp:DataGrid>
				</form>
			</td></tr></tbody></table>
			<!-- InstanceEndEditable -->
		</div>
	</div>
</body>
<!-- InstanceEnd --></html>
💿 文件大小 1514 K
👤 上传用户 foxfsk
📂 所属分类 Java编程
🏷️ 相关标签

#NET #LiteBlaster #Framework #ASP
⌨️ 快捷键说明

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