controlcontext.vb

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

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

Namespace myControls

Public Class ControlContext
Inherits Control

Overrides Protected Sub Render( objTextWriter As HtmlTextWriter )
  Dim strHostAddress As String
  Dim strUserAgent As String

  strHostAddress = Context.Request.UserHostAddress
  strUserAgent = Context.Request.UserAgent
  objTextWriter.WriteLine( "<li> HostAddress: " & strHostAddress )
  objTextWriter.WriteLine( "<li> UserAgent: " & strUserAgent )
End Sub

End Class

End Namespace