ASP.Net/Request/Browser Capabilities

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Browser support Java? (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   Dim BCaps As HttpBrowserCapabilities
   BCaps = Request.Browser
   lblMessage.Text = "Supports ActiveX Controls: " _
       & BCaps.ActiveXControls & "
" _
       & "Supports Java Applets: " _
       & BCaps.JavaApplets & "
" _
       & "Supports Java Script: " _
       & BCaps.JavaScript & "
" _
       & "Supports VB Script: " _
       & BCaps.VBScript & "
"

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Browser Code Capabilities</TITLE> </HEAD> <form runat="server"> <asp:label 

   id="lblMessage" 
   font-size="12pt"
   font-name="Tahoma"
   runat="server"

/> </form> </BODY> </HTML> 

      </source>


Browser supports ActiveX Controls? (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   Dim BCaps As HttpBrowserCapabilities
   BCaps = Request.Browser
   lblMessage.Text = "Supports ActiveX Controls: " _
       & BCaps.ActiveXControls & "
" _
       & "Supports Java Applets: " _
       & BCaps.JavaApplets & "
" _
       & "Supports Java Script: " _
       & BCaps.JavaScript & "
" _
       & "Supports VB Script: " _
       & BCaps.VBScript & "
"

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Browser Code Capabilities</TITLE> </HEAD> <form runat="server"> <asp:label 

   id="lblMessage" 
   font-size="12pt"
   font-name="Tahoma"
   runat="server"

/> </form> </BODY> </HTML> 

      </source>


Browser supports cookie? (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   Dim BCaps As HttpBrowserCapabilities
   BCaps = Request.Browser
   If BCaps.Cookies Then
       lblMessage.Text = "Your browser supports cookies!"
   Else
       lblMessage.Text = "You browser does not " _
           & "support cookies!"
   End If

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Browser Cookies</TITLE> </HEAD> <form runat="server"> <asp:label 

   id="lblMessage" 
   font-size="12pt"
   font-name="Tahoma"
   runat="server"

/> </form> </BODY> </HTML> 

      </source>


Browser supports Javascript (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   Dim BCaps As HttpBrowserCapabilities
   BCaps = Request.Browser
   lblMessage.Text = "Supports ActiveX Controls: " _
       & BCaps.ActiveXControls & "
" _
       & "Supports Java Applets: " _
       & BCaps.JavaApplets & "
" _
       & "Supports Java Script: " _
       & BCaps.JavaScript & "
" _
       & "Supports VB Script: " _
       & BCaps.VBScript & "
"

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Browser Code Capabilities</TITLE> </HEAD> <form runat="server"> <asp:label 

   id="lblMessage" 
   font-size="12pt"
   font-name="Tahoma"
   runat="server"

/> </form> </BODY> </HTML> 

      </source>


Browser support VB script (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   Dim BCaps As HttpBrowserCapabilities
   BCaps = Request.Browser
   lblMessage.Text = "Supports ActiveX Controls: " _
       & BCaps.ActiveXControls & "
" _
       & "Supports Java Applets: " _
       & BCaps.JavaApplets & "
" _
       & "Supports Java Script: " _
       & BCaps.JavaScript & "
" _
       & "Supports VB Script: " _
       & BCaps.VBScript & "
"

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Browser Code Capabilities</TITLE> </HEAD> <form runat="server"> <asp:label 

   id="lblMessage" 
   font-size="12pt"
   font-name="Tahoma"
   runat="server"

/> </form> </BODY> </HTML> 

      </source>


Get Browser Name (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   Dim BCaps As HttpBrowserCapabilities
   BCaps = Request.Browser
   If BCaps.Browser = "IE" Then
       Response.Redirect("http://www.nfex.ru")
   ElseIf BCaps.Browser = "Netscape" Then
       Response.Redirect("http://www.nfex.ru")
   Else
       Response.Redirect("http://www.nfex.ru")
   End If

End Sub </SCRIPT> 

      </source>


Http Browser Capabilities (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   Dim BCaps As HttpBrowserCapabilities
   BCaps = Request.Browser
   lblMessage1.Text = lblMessage1.Text _
       & "AOL: " & BCaps.AOL & "
" _
       & "Supports BG Sounds: " & BCaps.BackgroundSounds & "
" _
       & "Beta Browser: " & BCaps.Beta & "
" _
       & "Browser Name: " & BCaps.Browser & "
" _
       & "Supports Cookies: " & BCaps.Cookies & "
" _
       & "Is a Web Crawler: " & BCaps.Crawler & "
" _
       & "Browser Major Version: " & BCaps.MajorVersion & "
" _
       & "Browser Minor Version: " & BCaps.MinorVersion & "
" _
       & "Platform: " & BCaps.Platform & "
" _
       & "Is Win 16: " & BCaps.Win16 & "
" _
       & "Is Win 32: " & BCaps.Win32 & "
"

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Browser Capabilities Sample Page</TITLE> </HEAD> <BODY > <form runat="server"> <asp:Label 

   id="lblMessage1"
   runat="Server"
   Font-Bold="True"

/> </Form> </BODY> </HTML> 

      </source>


Isits window based? (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   Dim BCaps As HttpBrowserCapabilities
   BCaps = Request.Browser
   lblMessage.Text = "Operating System: " _
       & BCaps.Platform & "
" _
       & "Is OS Windows 16-bit based: " _
       & BCaps.Win16 & "
" _
       & "Is OS Windows 32-bit based: " _
       & BCaps.Win32 & "
"

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Browser OS</TITLE> </HEAD> <form runat="server"> <asp:label 

   id="lblMessage" 
   font-size="12pt"
   font-name="Tahoma"
   runat="server"

/> </form> </BODY> </HTML> 

      </source>
Источник — «http://nfex.ru/index.php?title=ASP.Net/Request/Browser_Capabilities&oldid=2310»