pic.ascx

来自「ASP_NET程序设计教程 源代码 冶金工业出版社 肖金秀 冯沃辉 陈少涌」· ASCX 代码 · 共 34 行

<% @ Import Namespace="System.Xml" %>
<% @ Import Namespace="System.Data" %>
<script language="VB" runat="server">

	Sub Page_Load(Sender As Object, e As EventArgs)
		Dim CounterXml As String=ConfigurationSettings.AppSettings("CounterXml")
		Dim objXml As XMLDocument=New XMLDocument()
		objXml.Load(CounterXml)
		Dim objRootSite As XMLNode
		objRootSite=objXml.documentElement.SelectSingleNode("picnews")

		If objRootSite.ChildNodes.Count>0 Then
			pic2.Text=objRootSite.ChildNodes.Item(0).InnerText
			pic1.src=objRootSite.ChildNodes.Item(1).InnerText
			pic2.NavigateUrl=objRootSite.ChildNodes.Item(2).InnerText
		End If
	End Sub

</script>
<% @ Control %>
<asp:Panel id="pic" align="center" runat="server">
	<table border="0" cellpadding="0" cellspacing="0" width="90%" height="205">
		<tr><td width="100%" height="199" align="center">
		<table border="0" cellpadding="0" cellspacing="0" width="90%">
			<tr><td width="100%" background="images/bar.gif" class="bar">&nbsp;图片新闻</td></tr>
			<tr><td width="100%" bgcolor="#E7F4DD" align="center">
<img border="0" runat=server id="pic1" width="136" height="116"></td></tr>
			<tr><td width="100%" bgcolor="#E7F4DD" align="center"><br>
<asp:HyperLink id="pic2" runat=server CssClass="author" />
			</td></tr>
		</table>
		</td></tr>
	</table>
</asp:Panel>