<%@ 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 b as Double=Convert.ToDouble(Request.Browser.MajorVersion) + Convert.ToDouble(Request.Browser.MinorVersion)
	if b>=5.5 then
		show.text="可执行ASPX文件"
		show.Font.Underline = true
		show.Font.Bold = true
	else
		show.text="不可执行ASPX文件"
	end if
	end sub
	</script>
</head>
<body background="/aspnetdata/images/winback.gif">
<Title:TitleShow id="BookT" Runat="server" />

  支持：<%=Request.Browser.ActiveXControls.ToString()%><br>
  是否为AOL：<%=Request.Browser.AOL.ToString()%><br>
  支持背景声音：<%=Request.Browser.BackgroundSounds.ToString()%><br>
  测试版：<%=Request.Browser.Beta.ToString()%><br>
  浏览器种类：<%=Request.Browser.Browser%><br>
  支持CDF：<%=Request.Browser.CDF.ToString()%><br>
  支持Cookies：<%=Request.Browser.Cookies.ToString()%><br>
  支持Crawler：<%=Request.Browser.Crawler.ToString()%><br>
  支持Frames：<%=Request.Browser.Frames.ToString()%><br>
  支持JavaApplets：<%=Request.Browser.JavaApplets.ToString()%><br>
  支持JavaScript：<%=Request.Browser.JavaScript.ToString()%><br>
  操作系统：<%=Request.Browser.Platform%><br>
  可否使用表格：<%=Request.Browser.Tables.ToString()%><br>
  浏览器完整名称：<%=Request.Browser.Type%><br>
  浏览器完整版本编号：<%=Request.Browser.Version.ToString()%><br>
  支持VBScript：<%=Request.Browser.VBScript.ToString()%><br>
  是否为Win16：<%=Request.Browser.Win16.ToString()%><br>
  是否为Win32：<%=Request.Browser.Win32.ToString()%><br>
<ASP:LABEL ID="show" runat="server" />

</body>
</html>