<%@ Register TagPrefix="Title" TagName="TitleShow" Src="/aspnetdata/Title.ascx" %>
<html>
<head>
	<script language="VB" runat="server">
	SUB Page_load(sender AS Object, E AS EventArgs)
	dim x as integer=4
	dim y as integer=0
	try
		dim z as integer=x/y
	catch ex AS NullReferenceException
		ErrMsg.Text="错误信息为：" + ex.Message
	catch ex as DivideByZeroException
		ErrMsg.Text="错误信息为：" + ex.Message + "<br>"
	catch ex as ArithmeticException
		ErrMsg.Text="错误信息为：" + ex.Message + "<br>"
		ErrMsg.Text += "完整内容为：" + ex.ToString()
	catch ex as Exception
		ErrMsg.Text="错误信息为：" + ex.Message
	end try
	end sub
	</script>
</head>
<body background="/aspnetdata/images/winback.gif">
<Title:TitleShow id="BookT" Runat="server" />
<form id="nform" runat="server">
<p><asp:Label id="ErrMsg" align="left" runat="server" />
    </form>
</body>
</html>