ASP.NET中检测浏览器属性的方法及代码实例

本文引自VS帮助文档.在现代的网络应用程序趋势下,越来越多的功能将在客户端实现,及所谓的胖客户端.这里,我们主要谈谈有关捕获浏览器信息的问题,给出了在ASP.NET下面用C#及VB语言实现浏览器属性的捕获.

查询 Browser 属性，该属性包含一个 HttpBrowserCapabilities 对象。在 HTTP 请求过程中，该对象会从浏览器或客户端设备中获取信息，

以便让您的应用程序知道浏览器或客户端设备提供的支持类型和级别。

该对象随后使用强类型属性和泛型名称值字典公开有关浏览器功能的信息。

=====
  C#
=====
  private void Button1_Click(object sender, System.EventArgs e)
  {
   System.Web.HttpBrowserCapabilities browser = Request.Browser;
   string s = "Browser Capabilities<br />"
   + "Type = " + browser.Type + "<br />"
   + "Name = " + browser.Browser + "<br />"
   + "Version = " + browser.Version + "<br />"
   + "Major Version = " + browser.MajorVersion + "<br />"
   + "Minor Version = " + browser.MinorVersion + "<br />"
   + "Platform = " + browser.Platform + "<br />"
   + "Is Beta = " + browser.Beta + "<br />"
   + "Is Crawler = " + browser.Crawler + "<br />"
   + "Is AOL = " + browser.AOL + "<br />"
   + "Is Win16 = " + browser.Win16 + "<br />"
   + "Is Win32 = " + browser.Win32 + "<br />"
   + "Supports Frames = " + browser.Frames + "<br />"
   + "Supports Tables = " + browser.Tables + "<br />"
   + "Supports Cookies = " + browser.Cookies + "<br />"
   + "Supports VBscript = " + browser.VBscript + "<br />"
   + "Supports Javascript = " +
   browser.EcmascriptVersion.ToString() + "<br />"
   + "Supports Java Applets = " + browser.JavaApplets + "<br />"
   + "Supports ActiveX Controls = " + browser.ActiveXControls
   + "<br />";
   Response.Write(s);
  }

  下面的代码示例演示如何在页上的文本框中显示浏览器信息。
  =======
  Visual Basic
  =======
  Private Sub Button1_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles Button1.Click
   Dim s As String = ""
   With Request.Browser
   s &= "Browser Capabilities" & vbCrLf
   s &= "Type = " & .Type & vbCrLf
   s &= "Name = " & .Browser & vbCrLf
   s &= "Version = " & .Version & vbCrLf
   s &= "Major Version = " & .MajorVersion & vbCrLf
   s &= "Minor Version = " & .MinorVersion & vbCrLf
   s &= "Platform = " & .Platform & vbCrLf
   s &= "Is Beta = " & .Beta & vbCrLf
   s &= "Is Crawler = " & .Crawler & vbCrLf
   s &= "Is AOL = " & .AOL & vbCrLf
   s &= "Is Win16 = " & .Win16 & vbCrLf
   s &= "Is Win32 = " & .Win32 & vbCrLf
   s &= "Supports Frames = " & .Frames & vbCrLf
   s &= "Supports Tables = " & .Tables & vbCrLf
   s &= "Supports Cookies = " & .Cookies & vbCrLf
   s &= "Supports VBscript = " & .VBscript & vbCrLf
   s &= "Supports javascript = " & _
   .EcmascriptVersion.ToString() & vbCrLf
   s &= "Supports Java Applets = " & .JavaApplets & vbCrLf
   s &= "Supports ActiveX Controls = " & .ActiveXControls & _
   vbCrLf
   End With
   TextBox1.Text = s
  End Sub