unit ASP; interface uses System.Collections, System.Collections.Specialized, System.Configuration, System.Text, System.Text.RegularExpressions, System.Web, System.Web.Caching, System.Web.SessionState, System.Web.Security, System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls, System.Globalization; var editdemo_aspx___autoHandlers: Integer; editdemo_aspx___intialized: Boolean = False; editdemo_aspx___fileDependencies: System.Collections.ArrayList; type editdemo_aspx = class(System.Web.UI.Page, System.Web.SessionState.IRequiresSessionState) protected Edit1: System.Web.UI.WebControls.TextBox; __control3: System.Web.UI.WebControls.Button; __control2: System.Web.UI.HtmlControls.HtmlForm; Message: System.Web.UI.WebControls.Label; procedure ButtonClick(Sender: System.Object; E: EventArgs); public constructor Create; function get_AutoHandlers: Integer; override; function get_ApplicationInstance: System.Web.HttpApplication; virtual; function get_TemplateSourceDirectory: System.String; override; procedure set_AutoHandlers(Value: Integer); override; protected property AutoHandlers: Integer read get_AutoHandlers write set_AutoHandlers; property ApplicationInstance: System.Web.HttpApplication read get_ApplicationInstance; public property TemplateSourceDirectory: System.String read get_TemplateSourceDirectory; private function __BuildControlEdit1: System.Web.UI.Control; function __BuildControl__control3: System.Web.UI.Control; function __BuildControl__control2: System.Web.UI.Control; function __BuildControlMessage: System.Web.UI.Control; procedure __BuildControlTree(__ctrl: System.Web.UI.Control); protected procedure FrameworkInitialize; override; public function GetTypeHashCode: Integer; override; end; implementation procedure editdemo_aspx.ButtonClick(Sender: System.Object; E: EventArgs); begin Message.Text := Edit1.Text; end; constructor editdemo_aspx.Create; var dependencies: System.Collections.ArrayList; begin inherited Create; if (ASP.editdemo_aspx___intialized = False) then begin dependencies := System.Collections.ArrayList.Create; dependencies.Add('d:\vslive\editdemo.aspx'); ASP.editdemo_aspx___fileDependencies := dependencies; ASP.editdemo_aspx___intialized := True; end; Self.Server.ScriptTimeout := 30000000; end; |