Đối tượng Application Đối tượng Application Bởi: Khoa CNTT ĐHSP KT Hưng Yên Dùng để quản lý biến có phạm vi toàn ứng dụng Khái niệm biến toàn ứng dụng Biến toàn ứng dụng biến có tác dụng người dùng truy cập vào website Đối tượng Application Dùng để quản lý (Tạo, đọc, ghi) biến có phạm vi toàn ứng dụng + Cú pháp tạo biến Application: Application(“Tên_Biến”) = + Ví dụ: Tạo biến So_Nguoi_Truy_Cap Application(“So_Nguoi_Truy_Cap”) = + Ví dụ : Đọc ghi biến Application Application(“So_Nguoi_Truy_Cap”)= Application(“So_Nguoi_Truy_Cap”) + Response.write(“Bạn vị khách thứ: “ & Application(“So_Nguoi_Truy_Cap”)) Lưu ý: Khi biến tồn lệnh hiểu gán giá trị mới, chưa tồn hiểu tạo biến Đối tượng Application có kiện Application_OnStart Application_OnEnd Sự kiện OnStart kích hoạt lần yêu cầu phát sinh Sự kiện OnEnd kích hoạt dịch vụ web dừng (unload) Đối tượng Application có phương thức Lock Unlock Khi gọi phương thức Lock (khóa) tất ứng dụng không phép thay đổi giá trị Application Để ứng dụng khác phép thay đổi biến Application gọi phương thức Unlock 1/2 Đối tượng Application Mã lệnh viết cho kiện đặt file Global.asa Ví dụ tổng hợp Mỗi người dùng truy cập vào website hiển thị cho người biết vị khách thứ – chẳng hạn hiển thị trang Home.asp Trang Global.asa '/// Thu tuc duoc goi nhat mot lan SUB Application_OnStart Application("SoKhachTruyCap") = END SUB '/// Thu tuc duoc goi IIS stop SUB Application_OnEnd Application("SoKhachTruyCap") = END SUB '/// Thu tuc duoc goi bat dau mot phien SUB Session_OnStart ' Application("SoKhachTruyCap") = Application("SoKhachTruyCap") + ' END SUB Trang Home.asp Trang chu 2/2 ... '/// Thu tuc duoc goi nhat mot lan SUB Application_ OnStart Application( "SoKhachTruyCap") = END SUB '/// Thu tuc duoc goi IIS stop SUB Application_ OnEnd Application( "SoKhachTruyCap") = END SUB.. .Đối tượng Application Mã lệnh viết cho kiện đặt file Global.asa Ví dụ tổng hợp Mỗi người dùng truy cập... Application( "SoKhachTruyCap") = END SUB '/// Thu tuc duoc goi bat dau mot phien SUB Session_OnStart ' Application( "SoKhachTruyCap") = Application( "SoKhachTruyCap") + ' END SUB Trang Home.asp