home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / 24 aspnet applications / aspnetapplications / requestform.aspx.vb < prev    next >
Encoding:
Text File  |  2002-03-18  |  3.4 KB  |  79 lines
  1. Public Class RequestForm
  2.     Inherits System.Web.UI.Page
  3.     Protected WithEvents litBrowser As System.Web.UI.WebControls.Literal
  4.     Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
  5.     Protected WithEvents litUri As System.Web.UI.WebControls.Literal
  6.  
  7. #Region " Web Form Designer Generated Code "
  8.  
  9.     'This call is required by the Web Form Designer.
  10.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  11.  
  12.     End Sub
  13.  
  14.     Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
  15.         'CODEGEN: This method call is required by the Web Form Designer
  16.         'Do not modify it using the code editor.
  17.         InitializeComponent()
  18.     End Sub
  19.  
  20. #End Region
  21.  
  22.     ' just display a few properties of the Request object when the page loads
  23.  
  24.     Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  25.         ShowUriInfo()
  26.         ShowBrowserInfo()
  27.         ' show the Add method of the Session collection
  28.         Session.Add("createtime", Date.Now)
  29.     End Sub
  30.  
  31.     ' show details on the Request.Url property
  32.  
  33.     Sub ShowUriInfo()
  34.         Dim url As System.Uri = Request.Url
  35.         Dim msg As String
  36.         msg &= "<b>AbsolutePath</b> = " & url.AbsolutePath & "<br>"
  37.         msg &= "<b>AbsoluteUri</b> = " & url.AbsoluteUri & "<br>"
  38.         msg &= "<b>Host</b> = " & url.Host & "<br>"
  39.         msg &= "<b>LocalPath</b> = " & url.LocalPath & "<br>"
  40.         msg &= "<b>Port</b> = " & url.Port & "<br>"
  41.         msg &= "<b>IsLoopback</b> = " & url.IsLoopback & "<br>"
  42.         litUri.Text = msg
  43.     End Sub
  44.  
  45.     ' show details about the browser doing the request
  46.  
  47.     Sub ShowBrowserInfo()
  48.         Dim bc As HttpBrowserCapabilities = Request.Browser
  49.         Dim msg As String
  50.  
  51.         msg &= "<b>ActiveXControls</b> = " & bc.ActiveXControls & "<br>"
  52.         msg &= "<b>AOL</b> = " & bc.AOL & "<br>"
  53.         msg &= "<b>BackgroundSounds </b> = " & bc.BackgroundSounds & "<br>"
  54.         msg &= "<b>Beta </b> = " & bc.Beta & "<br>"
  55.         msg &= "<b>Browser </b> = " & bc.Browser & "<br>"
  56.         msg &= "<b>CDF </b> = " & bc.CDF & "<br>"
  57.         msg &= "<b>ClrVersion</b> = " & bc.ClrVersion.ToString & "<br>"
  58.         msg &= "<b>Cookies </b> = " & bc.Cookies & "<br>"
  59.         msg &= "<b>Crawler </b> = " & bc.Crawler & "<br>"
  60.         msg &= "<b>EcmaScriptVersion</b> = " & bc.EcmaScriptVersion.ToString & "<br>"
  61.         msg &= "<b>Frames </b> = " & bc.Frames & "<br>"
  62.         msg &= "<b>JavaApplets </b> = " & bc.JavaApplets & "<br>"
  63.         msg &= "<b>JavaScript </b> = " & bc.JavaScript & "<br>"
  64.         msg &= "<b>MajorVersion </b> = " & bc.MajorVersion & "<br>"
  65.         msg &= "<b>MinorVersion </b> = " & bc.MinorVersion & "<br>"
  66.         msg &= "<b>MSDomVersion</b> = " & bc.MSDomVersion.ToString & "<br>"
  67.         msg &= "<b>Platform </b> = " & bc.Platform & "<br>"
  68.         msg &= "<b>Tables </b> = " & bc.Tables & "<br>"
  69.         msg &= "<b>Type </b> = " & bc.Type & "<br>"
  70.         msg &= "<b>VBScript </b> = " & bc.VBScript & "<br>"
  71.         msg &= "<b>Version </b> = " & bc.Version & "<br>"
  72.         msg &= "<b>W3CDomVersion</b> = " & bc.W3CDomVersion.ToString & "<br>"
  73.         msg &= "<b>Win16 </b> = " & bc.Win16 & "<br>"
  74.         msg &= "<b>Win32 </b> = " & bc.Win32 & "<br>"
  75.         litBrowser.Text = msg
  76.     End Sub
  77.  
  78. End Class
  79.