代码: <html xmlns="http://www.w3.org/1999/xhtml" > <head id="Head1" runat="server"> <title>Untitled Page</title> </head> <body> <form id="form1" runat="server"> <div> <Script Language="VB" Runat="Server"> Sub Page_Load(Sender As Object,e As Eventargs) Dim bc As HttpBrowserCapabilities = Request.Browser Response.Write("<p>浏览器信息:</p>") Response.Write("浏览器 = " & bc.Browser & "<br>") Response.Write("型态 = " & bc.Type & "<br>") Response.Write("名称 = " & bc.Browser & "<br>") Response.Write("版本 = " & bc.Version & "<br>") Response.Write("使用平台 = " & bc.Platform & "<br>") Response.Write("是否为测试版 = " & bc.Beta & "<br>") Response.Write("是否为16 位的环境 = " & bc.Win16 & "<br>") Response.Write("是否为32 位的环境 = " & bc.Win32 & "<br>") Response.Write("是否支持框架(Frame) = " & bc.Frames & "<br>") Response.Write("是否支持表格(Table) = " & bc.Tables & "<br>") Response.Write("是否支持Cookie = " & bc.Cookies & "<br>") Response.Write("是否支持VB Script = " & bc.VBScript & "<br>") Response.Write("是否支持Java Script = " & bc.JavaScript & "<br>") Response.Write("是否支持Java Applets = " & bc.JavaApplets & "<br>") End Sub </Script> </div> </form> </body> </html> 灌水