controlcaps.vb

来自「asp.net技术内幕的书配源码」· VB 代码 · 共 27 行

Imports System
Imports System.Web
Imports System.Web.UI

Namespace myControls

Public Class ControlCaps
Inherits Control

Overrides Protected Sub Render( objTextWriter As HtmlTextWriter )
  Dim strBrowserType As String
  Dim strVersion As String
  Dim blnJavascript As Boolean

  strBrowserType = Context.Request.Browser.Browser
  strVersion = Context.Request.Browser.Version
  blnJavascript = Context.Request.Browser.Javascript

  objTextWriter.WriteLine( "<li> Browser: " & strBrowserType )
  objTextWriter.WriteLine( "<li> Version: " & strVersion )
  objTextWriter.WriteLine( "<li> Javascript: " & blnJavascript.ToString() )
End Sub

End Class

End Namespace