24/05/2018, 16:59

Đối tượng Application

Dùng để quản lý các biến có phạm vi toàn ứng dụng. Biến toàn ứng dụng là biến có tác dụng đối với mọi người dùng truy cập vào website. Dùng để quản lý (Tạo, đọc, ghi) các biến có phạm vi toàn ứng dụng. ...

Dùng để quản lý các biến có phạm vi toàn ứng dụng.

Biến toàn ứng dụng là biến có tác dụng đối với mọi người dùng truy cập vào website.

Dùng để quản lý (Tạo, đọc, ghi) các biến có phạm vi toàn ứng dụng.

+ Cú pháp tạo biến Application:

Application(“Tên_Biến”) = <Giá trị>

+ Ví dụ: Tạo biến So_Nguoi_Truy_Cap

Application(“So_Nguoi_Truy_Cap”) = 0

+ Ví dụ : Đọc và ghi biến Application

Application(“So_Nguoi_Truy_Cap”)= Application(“So_Nguoi_Truy_Cap”) + 1

Response.write(“Bạn là vị khách thứ: “ & Application(“So_Nguoi_Truy_Cap”))

Lưu ý: Khi biến đã tồn tại thì lệnh trên được hiểu là gán giá trị mới, còn nếu chưa tồn tại thì được hiểu là tạo biến.

cũng có 2 sự kiện đó là Application_OnStart và Application_OnEnd. Sự kiện OnStart chỉ được kích hoạt duy nhất một lần khi yêu cầu đầu tiên phát sinh. Sự kiện OnEnd được kích hoạt khi dịch vụ web dừng (unload).

có 2 phương thức là Lock và Unlock. Khi gọi phương thức Lock (khóa) thì tất cả các ứng dụng không được phép thay đổi các giá trị Application. Để các ứng dụng khác được phép thay đổi các biến Application thì gọi phương thức Unlock.

Mã lệnh viết cho 2 sự kiện này cũng được đặt trong file Global.asa.

Mỗi khi người dùng truy cập vào website thì hiển thị cho người đó biết là vị khách thứ bao nhiêu – chẳng hạn hiển thị trong trang Home.asp.

Trang Global.asa
<script LANGUAGE = "VBScript" RUNAT = Server> '/// Thu tuc nay duoc goi duy nhat mot lan SUB Application_OnStart Application("SoKhachTruyCap") = 0 END SUB '/// Thu tuc nay duoc goi khi IIS stop SUB Application_OnEnd Application("SoKhachTruyCap") = 0 END SUB '/// Thu tuc nay duoc goi khi bat dau mot phien SUB Session_OnStart '........ Application("SoKhachTruyCap") = Application("SoKhachTruyCap") + 1 '......... END SUB</SCRIPT>
Trang Home.asp
<HTML><head><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>Trang chu</title></head><BODY><% Response.write("<h2>Day la trang chu cua lop T08A !</h2>") Response.write("<h1>Chao mung ban da ghe tham website cua chung toi !") Response.write("<hr>") Response.write("Ban la vi khach thu : " &application("SoKhachTruyCap"))%></BODY></HTML>
0