counter.ascx

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

<% @ Import Namespace="System.Xml" %>
<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("counter")
		Dim num0,begin0 As String
		num0=objRootSite.ChildNodes.Item(0).InnerText
		Dim num3 As String=(CInt(num0)+1).ToString()
		objRootSite.ChildNodes.Item(0).InnerText=num3
		begin0=objRootSite.ChildNodes.Item(1).InnerText
		objXml.Save(CounterXml)
		num1.Text=num3
		begin1.Text=begin0
	End Sub
</script>
<% @ Control %>
	<asp:Panel id="counter" align="center" runat="server">
	<table border="0" cellpadding="0" cellspacing="0" width="90%" height="80">
		<tr><td width="100%" align="center">
		<table border="0" cellpadding="0" cellspacing="0" width="90%">
			<tr><td width="100%" background="images/bar.gif" height="18" class="bar">&nbsp;本站计数器</td></tr>
			<tr><td width="100%" bgcolor="#E7F4DD" height="40" align="center">
			<table border="0" cellpadding="0" cellspacing="0" width="100%">
				<tr><td width="100%" align="center"><b><asp:Literal id="num1" runat="server" /></b><br>
（自<asp:Literal id="begin1" runat="server" />起）</td></tr>
			</table>
			</td></tr>
		</table>
		</td></tr>
	</table>
	</asp:Panel>