broadcast.ascx

LiteBlaster 是一款基于 .NET Framework 原创的 ASP.NET 论坛系统。后台程序库采用 C#/VB.NET 编写

<%@ Control AutoEventWireup="true" Language="VB" %>
<%@ Import Namespace="Auway.LiteBlaster.Extensions" %>
<%@ Import Namespace="Auway.LiteBlaster.Forum" %>

<%
	Dim items As BroadcastItem() = Broadcast.Instance.Items
	Dim item As BroadcastItem, index As Integer
	Dim OutputStr As String
	If items.Length > 0 Then
%>
<table class="ListTable ListHeader">
	<tbody>
		<tr>
			<td>论坛公告</td>
			<td class="ListHeaderExpanded" onClick="switchHeaderSwitcherVisible('BroadcastContainer', event);">&nbsp;</td>
		</tr>
	</tbody>
</table>
<table class="ListTable" id="BroadcastContainer">
	<tbody><tr><td align="center" class="ListItemsTd ListItemsTd_style3 txtcenter">
		<div id="BroadcastBody" align="center" style="width:100%; height:24px; overflow:hidden">
			<div style="text-align:left; margin-left:10px; line-height:24px">
				<ul>
					<li>&nbsp;</li>
					<%
						For Each item In items
							index += 1
							OutputStr = "(" & Server.HtmlEncode(TimeCoordinator.ToUserTime(item.AddTime)) & ") [" & index.ToString() & "/" & items.Length.ToString() & "] "
							If Len(item.Link) > 0 Then
								OutputStr &= "<a target=""_blank"" href=""" & item.Link & """>"
							End If
							OutputStr &= "<span style=""font-weight:bold"">" & Server.HtmlEncode(item.Title) & "</span>"
							If Len(item.Link) > 0 Then
								OutputStr &= "</a>"
							End If
					%>
					<li>
						<%=OutputStr %>
					</li>
					<%	Next	%>
					<li>&nbsp;</li>
				</ul>
			</div>
		</div>
	</td></tr></tbody>
</table>
<br />
<script language="javascript" type="text/javascript" src="Lib/broadcast.js"></script>
<%	End If	%>