mcs/mbas/Test/misc/aspx_temp.vb

   1 ' ------------------------------------------------------------------------------
   2 '  <autogenerated>
   3 '      This code was generated by a tool.
   4 '      Mono Runtime Version: 1.1.4322.573
   5 '
   6 '      Changes to this file may cause incorrect behavior and will be lost if
   7 '      the code is regenerated.
   8 '  </autogenerated>
   9 ' ------------------------------------------------------------------------------
  10
  11 Imports System
  12 Imports System.Collections
  13 Imports System.Collections.Specialized
  14 Imports System.Configuration
  15 Imports System.Text
  16 Imports System.Text.RegularExpressions
  17 Imports System.Web
  18 Imports System.Web.Caching
  19 Imports System.Web.Security
  20 Imports System.Web.SessionState
  21 Imports System.Web.UI
  22 Imports System.Web.UI.WebControls
  23 Imports System.Web.UI.HtmlControls
  24 Imports System.IO
  25
  26 Namespace ASP
  27     Public Class vb_aspx
  28         Inherits System.Web.UI.Page
  29         Implements System.Web.SessionState.IRequiresSessionState
  30
  31         Private Shared __intialized As Boolean = False
  32
  33         Private Shared __autoHandlers As Integer
  34
  35         Protected FileList As System.Web.UI.WebControls.Label
  36
  37         Public Sub New()
  38             If ((ASP.vb_aspx.__intialized = False)) Then
  39                 ASP.vb_aspx.__intialized = True
  40             End If
  41         End Sub
  42
  43         Protected readonly Property AutoHandlers As Integer
  44             Get
  45                 Return ASP.vb_aspx.__autoHandlers
  46             End Get
  47         End Property
  48
  49         Protected readonly Property ApplicationInstance As System.Web.HttpApplication
  50             Get
  51                 Return CType(Me.Context.ApplicationInstance, System.Web.HttpApplication)
  52             End Get
  53         End Property
  54
  55         Public readonly Overrides Property TemplateSourceDirectory As String
  56             Get
  57                 Return "/"
  58             End Get
  59         End Property
  60
  61         Private Sub __RenderTree(htmlOutput As System.Web.UI.HtmlTextWriter, parameterContainer As System.Web.UI.Control)
  62             htmlOutput.Write("<html><head><title>Welcome to Mono XSP!</title></head>")
  63             htmlOutput.Write("<body><h1>Welcome to Mono XSP!</h1><a href=""http://www.go-mono.com""><img src=""mono.png"" alt=""http://www.go-mono.com""></a>")
  64             parameterContainer.Controls.Item(0).RenderControl(htmlOutput)
  65             htmlOutput.Write("</ul><hr /><small>Generated:")
  66             htmlOutput.Write( DateTime.Now )
  67             htmlOutput.Write("</small></html>")
  68         End Sub
  69
  70         Private Sub __BuildControlTree(__ctrl As System.Web.UI.Control)
  71             Me.__BuildControl_FileList()
  72             Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl, System.Web.UI.IParserAccessor)
  73             __parser.AddParsedSubObject(Me.FileList)
  74             __ctrl.SetRenderMethodDelegate(New System.Web.UI.RenderMethod(Me.__RenderTree))
  75         End Sub
  76
  77         Private Function __BuildControl_FileList() As System.Web.UI.Control
  78             Dim __ctrl As System.Web.UI.WebControls.Label
  79             __ctrl = New System.Web.UI.WebControls.Label()
  80             Me.FileList = __ctrl
  81             __ctrl.ID = FileList
  82             Return __ctrl
  83         End Function
  84
  85         Protected Overrides Sub FrameworkInitialize()
  86             Me.__BuildControlTree(Me)
  87         End Sub
  88
  89         Public Overrides Function GetTypeHashCode() As Integer
  90             Return 1243831665
  91         End Function
  92     End Class
  93
  94     End Namespace