header.ascx

ASP_NET程序设计教程 源代码 冶金工业出版社 肖金秀 冯沃辉 陈少涌

<% @ Import Namespace="System.Xml" %>
<%@ Import Namespace="System.Web.Security " %>
<script language="VB" runat="server">
	Sub Page_Load(Sender As Object, e As EventArgs)
		Dim mstr As String
		Dim nn(7) As String
		nn(1)="日"
		nn(2)="一"
		nn(3)="二"
		nn(4)="三"
		nn(5)="四"
		nn(6)="五"
		nn(7)="六"
		mstr="今天是"
		mstr+=FormatDateTime(now(),1)
		mstr+="（星期"
		mstr+=nn(Weekday(now()))
		mstr+="），欢迎访问！"
		mm.Text=mstr

		If Request.IsAuthenticated Then
			div3.Visible=True
			div4.Visible=False
			Unick.text=Context.User.Identity.Name

			Dim CounterXml As String=ConfigurationSettings.AppSettings("CounterXml")
			Dim objXml As XMLDocument=New XMLDocument()
			objXml.Load(CounterXml)
			Dim objRootSite As XMLNode
			objRootSite=objXml.documentElement.SelectSingleNode("admin")
			Dim j As Integer
			Dim flag As Boolean=false
			For j=0 To objRootSite.ChildNodes.Count-1
				If 	objRootSite.ChildNodes.Item(j).InnerText=Context.User.Identity.Name Then
					flag=true
				End If
			Next
			If flag Then
				admin.Visible=true
			End If
		Else
			div3.Visible=False
			div4.Visible=True
			Unick.text="客人"
		End If
	End Sub

</script>
<%@ Control %>
<asp:Panel id="div1" align="center" runat="server">
<table border="0" width=750 bgColor="#006699" cellpadding="0" cellspacing="1"><tr><td>
<table border="0" width="100%" background="images/bt.gif" cellpadding="0" cellspacing="0" height="79">
	<tr><td width="35%" height="79" ><img border="0" src="images/head_01.jpg" width="250" height="79"></td>
	<td width="65%" height="79" align="right" valign="top">
	<table border="0" cellpadding="0" cellspacing="1" width="100%" height="100%">
		<tr><td width="100%" valign="top" align="right">
		<table border="0" cellpadding="0" cellspacing="0" width="100%" height="12">
			<tr><td width="16%" align="right" height="12"><img border="0" src="images/lc.gif" width="16" height="16"></td>
			<td width="39%" bgcolor="#FFFFFF" height="12" class="whiteB">
			<font color="#99CC00">你好, <asp:Label id="Unick" runat="server" />!&nbsp;</font></td>
			<td width="45%" bgcolor="#FFFFFF" height="12" align="right" class="whiteB">
		        <asp:Panel id="div3" runat="server">
			<a href="personal.aspx" class="whiteLink"><font color="#99CC00">个人管理</font></a>
<asp:Literal id="admin" runat="server" text="<a href=admin_newsadmin.aspx class=whiteLink><font color=#99CC00>集体管理</font></a>" visible=false />
			<a href="signoff.aspx" class="whiteLink"><font color="#99CC00">退出</font></a>
		</asp:Panel>
		<asp:Panel id="div4" runat="server">
			<a href="login.aspx" class="whiteLink"><font color="#99CC00">登陆</font></a>
			<a href="register.aspx" class="whiteLink"><font color="#99CC00">注册</font></a>
		</asp:Panel>
			</td></tr></table>
		</td></tr>
		<tr><td width="100%" valign="bottom" align="right">
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
			<tr><td width="90%"><font color="#FFFFFF">
			<marquee align="middle" scrolldelay="50" scrollamount="2">
			<asp:Literal id="mm" runat="server" /></marquee></td>
			<td width="10%"></td></font></tr>
		</table>
		</td></tr>
	</table>
	</td></tr></table>
	<table  border="0" cellpadding="0" cellspacing="1" width="750">
	<tr><td colspan="3" width="750" bgcolor="#eaeaea" align="center" height="27"><font color=#000000>
	| <a href="Default.aspx" class="barLink"><font color=#000000>首页</font></a>
	| <a href="news.aspx?t=1" class="barLink"><font color=#000000>我专业动态</font></a>
	| <a href="news.aspx?t=2" class="barLink"><font color=#000000>Dot.Net动态</font></a>
	| <a href="ky.aspx?t=3" class="barLink"><font color=#000000>ASP.NET知识</font></a>
	| <a href="bbs.aspx" class="barLink"><font color=#000000>Dot.Net论坛</font></a>
	| <a href="ky.aspx" class="barLink"><font color=#000000>考研与就业</font></a>
	| <a href="pic.aspx" class="barLink"><font color=#000000>图片站</font></a>
	| <a href="packshow.aspx" class="barLink"><font color=#000000>Dot.Net风采</font></a>
	| <a href="guestbook.aspx" class="barLink"><font color=#000000>留言簿</font></a>
	|</font></td></tr>
</table></td></tr></table>
</asp:Panel>