|
<%@ Page EnableViewstate="False" %>
<script language="VB" runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim s As String
s &= "ActiveXControls=" & Request.Browser.ActiveXControls & "<br>"
s &= "AOL=" & Request.Browser.AOL & "<br>"
s &= "BackgroundSounds=" & Request.Browser.BackgroundSounds & "<br>"
s &= "Beta=" & Request.Browser.Beta & "<br>"
s &= "Browser=" & Request.Browser.Browser & "<br>"
s &= "CDF=" & Request.Browser.CDF & "<br>"
s &= "ClrVersion=" & Request.Browser.ClrVersion.ToString & "<br>"
s &= "Cookies=" & Request.Browser.Cookies & "<br>"
s &= "Crawler=" & Request.Browser.Crawler & "<br>"
s &= "EcmaScriptVersion=" & Request.Browser.EcmaScriptVersion.ToString & "<br>"
s &= "Frames=" & Request.Browser.Frames & "<br>"
s &= "JavaApplets=" & Request.Browser.JavaApplets & "<br>"
s &= "JavaScript=" & Request.Browser.JavaScript & "<br>"
s &= "MajorVersion=" & Request.Browser.MajorVersion & "<br>"
s &= "MinorVersion=" & Request.Browser.MinorVersion & "<br>"
s &= "MSDomVersion=" & Request.Browser.MSDomVersion.ToString & "<br>"
s &= "Platform=" & Request.Browser.Platform & "<br>"
s &= "Tables=" & Request.Browser.Tables & "<br>"
s &= "Type=" & Request.Browser.Type & "<br>"
s &= "VBScript=" & Request.Browser.VBScript & "<br>"
s &= "Version=" & Request.Browser.Version & "<br>"
s &= "W3CDomVersion=" & Request.Browser.W3CDomVersion.ToString & "<br>"
s &= "Win16=" & Request.Browser.Win16 & "<br>"
s &= "Win32=" & Request.Browser.Win32 & "<br>"
Label.Text = s
End Sub
</script>
<html>
<body>
<form runat="server">
<b>Browser Capabilties:</b><br>
<asp:Label Runat="server" ID="Label" />
</form>
</body>
</html>
|