Bộ đếm WEB Bạn muốn biết tại một thời điểm có bao nhiêu người đang truy cập website của mình?
Việc này không thể thực hiện được với mã lệnh HTML thuần túy hay JavaScript mà phải
dùng đến ngôn ngữ kịch bản chạy trên server (server-side scripting language) như ASP,
PHP hay JSP. Bài viết này giới thiệu cách hiển thị thông tin thống kê về số người đang
truy cập (online), số lượt truy cập, số lần duyệt xem các trang trong website bằng ngôn
ngữ ASP thông dụng của Microsoft. Những thông tin về số lượt truy cập được gọi là bộ
đếm cho website - một trong những ứng dụng cơ bản mà các website chuyên nghiệp
thường dùng đến. Bộ đếm giúp cho chính bạn và khách truy cập biết được website hoạt
động hiệu quả như thế nào, “đông khách” hay “vắng khách”.
1.Hiển thị số người đang truy cập website:

Mỗi ứng dụng web ASP đều có thể có một file cấu hình chung là GLOBAL.ASA. File
GLOBAL.ASA được server đọc và thực thi khi ứng dụng web bắt đầu chạy mỗi khi có
một yêu cầu tải trang web từ client (phía người dùng). Trong file GLOBAL.ASA thường
có các thủ tục sau:

Application_OnStart: Được gọi khi ứng dụng web bắt đầu chạy. Như vậy thủ tục này chỉ
được gọi duy nhất một lần khi website của bạn có yêu cầu truy cập đầu tiên cho tới khi
ứng dụng web kết thúc hoặc file GLOBAL.ASA có thay đổi. Chúng ta sẽ khởi tạo bi
ến
đếm số người đang truy cập website tại đây:

Application(“So_Nguoi_Online”) = 0

Biến Application có ảnh hưởng tới toàn bộ ứng dụng web, tức là tất cả các trang của
website đều dùng chung biến này.

Session_OnStart: Được gọi khi có một yêu cầu kết nối của client tới server được thiết lập,

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

Mở khóa biến Application để yêu cầu truy cập sau sẽ thay đổi được giá trị của biến

Application.UnLock

End Sub

Sub Session_OnEnd()

Mỗi khi có một có một kết nối bị ngắt thì giảm số người truy cập
đi 1

Application.Lock

Application(“So_Nguoi_Online”) = Application(“So_Nguoi_Online”) - 1

Application.UnLock

End Sub

</SCRIPT>

Bạn phải đặt file GLOBAL.ASA trong thư mục gốc của website của mình, sau đó để hiển
thị số người đang truy cập website bạn thực hiện như sau:

<h1>
Số người đang xem website: <% = Application(“So_Nguoi_Online”) %> </h1>

2.Hiển thị số lượt truy cập website:


SO_LAN_XEM Long Integer

Nội dung của file bodem.asp như sau:

<%

Biến để truy xuất CSDL

Dim rs

Biến ghi số lần duyệt xem các trang trong website

Dim SoLanXem

Chứa chuỗi lệnh SQL cần thực hiện

Dim strSQL

Chuỗi kết nối với CSDL

Dim strConnection

Biến thiết lập kết nối

Dim myConnection

Đầu tiên xác định chuỗi kết nối với CSDL, thay đổi đường dẫn tới CSDL
cho phù hợp với đường dẫn và tên CSDL của website của bạn



Else Nếu chưa có lần xem nào

SoLanXem = 1

Thêm vào CSDL

strSQL = “INSERT INTO DUYETXEM (SO_LAN_XEM) VALUES (“ & SoLanXem &
“);”

Set rs = myConnection.Execute(strSQL)

End If

Đóng kết nối

Set myConnection = Nothing

Set rs = Nothing

%>

Trong đầu mỗi trang ASP bạn include file bodem.asp vào và hiển thị như sau:

<! #INCLUDE FILE = bodem.asp >

<%

Response.Write(“Trang web đã được duyệt “ & SoLanXem & “ lần”)