代码例子:
//----------------------------------------------------------------- // Application //----------------------------------------------------------------- procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs); begin if Application['NumUsers'] <> nil then Label1.Text := 'Users visiting this site: '+Application['NumUsers'].ToString; end; procedure TGlobal.Session_Start(sender: System.Object; e: EventArgs); begin Application.Lock; try if Application['NumUsers'] = nil then Application['NumUsers'] := System.Object(Integer(1)) else Application['NumUsers'] := System.Object(Integer(Application['NumUsers'])+1); finally Application.UnLock; end; end; procedure TGlobal.Session_End(sender: System.Object; e: EventArgs); begin Application.Lock; try if Application['NumUsers'] <> nil then Application['NumUsers'] := System.Object(Integer(Application['NumUsers'])-1) else Application['NumUsers'] := System.Object(Integer(0)); finally Application.UnLock; end; end; //----------------------------------------------------------------- // Session //----------------------------------------------------------------- procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs); begin Session.Add('UserName', TextBox1.Text); Response.Redirect('WebForm2.aspx'); end; //----------------------------------------------------------------- // ViewState //----------------------------------------------------------------- procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs); begin ViewState.Add('MyData', 'MyDataText'); Response.Write(ViewState['MyData']); end; //----------------------------------------------------------------- // Cookies //----------------------------------------------------------------- procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs); begin if not IsPostBack then if not Request.Browser.Cookies then lblNoCookie.Text := 'Your browser does not support cookies.' else begin if Request.Cookies['MyName'] <> nil then begin lblWelcome.Text := System.String.Format('Welcome back {0}', Request.Cookies['MyName'].Value); TextBox1.Text := Request.Cookies['MyName'].Value; end; end; end;