<%@ Register TagPrefix="Title" TagName="TitleShow" Src="/aspnetdata/Title.ascx" %>
<html>
<head>
	<script language="VB" runat="server">
	Dim t as DateTime=Now()
	Sub Page_load(sender as Object, e as EventArgs)
		Page.DataBind()
	End Sub
	Function GetWriteDate() as String
		Dim k as DateTime=Convert.ToDateTime("2002/02/05 00:00:00")
		Dim a as Integer=DateDiff("h",k,t)\24
		return a & "天" & DateDiff("h",k,t) Mod 24 & "小时"
	End Function
	</script>
</head>
<body background="/aspnetdata/images/winback.gif">
<Title:TitleShow id="BookT" Runat="server" />
<form id="nform" runat="server">
目前日期及时间：<asp:Label id="NowTime" runat="server" Text=<%# t %>/><p>
与作者编写此书相差：<asp:Label id="NowTime1" runat="server" Text=<%# GetWriteDate() %>/>
<p>
    </form>

</body>
</html>