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-sidescripting language) như ASP, PHP hay JSP.
Nội dung trích xuất từ tài liệu:
Bộ đếm WEBBộ đếm WEBBạ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ủamình? Việc này không thể thực hiện được với mã lệnh HTML thuần túy hayJavaScript mà phải dùng đến ngôn ngữ kịch bản chạy trên server (server-sidescripting 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ầnduyệ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 trongnhững ứng dụng cơ bản mà các website chuyên nghiệp thường dùng đến. Bộ đếmgiú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ạymỗi khi có một yêu cầu tải trang web từ client (phía người dùng). Trong fileGLOBAL.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ụcnà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 đầutiên cho tới khi ứng dụng web kết thúc hoặc file GLOBAL.ASA có thay đổi. Chúngta sẽ khởi tạo biến đếm số người đang truy cập website tại đây:Application(“So_Nguoi_Online”) = 0Biến Application có ảnh hưởng tới toàn bộ ứng dụng web, tức là tất cả các trangcủ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 đượcthiết lập, tức là khi người dùng gõ vào địa chỉ của website trong trình duyệt để truycập. Khi đó, chúng ta sẽ tăng biến đếm số người online:Application(“So_Nguoi_Online”) = Application(“So_Nguoi_Online”) + 1Session_OnEnd: Được gọi khi client ngắt kết nối với server, tức là khi người dùngchuyển qua trang web khác hoặc đóng trình duyệt lại. Khi đó chúng ta sẽ giảm biếnđếm số người online:Application(“So_Nguoi_Online”) = Application(“So_Nguoi_Online”) -1Nội dung của file GLOBAL.ASA như sau:Sub Application_OnStart()Khởi tạo giá trị ban đầu cho biến = 0Application(“So_Nguoi_Online”) = 0End SubSub Session_OnStart()Mỗi khi có một yêu cầu truy cập khác thì tăng số người truy cập lên 1Khóa biến Application để tránh trường hợp có nhiều yêu cầu truy cập cùng một lúcApplication.LockApplication(“So_Nguoi_Online”) = Application(“So_Nguoi_Online”) + 1Mở khóa biến Application để yêu cầu truy cập sau sẽ thay đổi được giá trị củabiếnApplication.UnLockEnd SubSub 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 1Application.LockApplication(“So_Nguoi_Online”) = Application(“So_Nguoi_Online”) - 1Application.UnLockEnd SubBạ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:Số người đang xem website: 2.Hiển thị số lượt truy cập website:Số lượt truy cập website được tính bằng số lần yêu cầu truy cập website trênserver của bạn. Số lượt truy cập website luôn tăng, do đó chúng ta chỉ cần khai báobiến trong thủ tục Application_OnStart:Application(“So_Luot_Truy_Cap”) = 0Và tăng biến này lên 1 trong thủ tục Session_OnStart:Application(“So_Luot_Truy_Cap”) = Application(“So_Luot_Truy_Cap”) + 1Và hiển thị trong website:Số lượt truy cập: strConnection = “provider=microsoft.jet.oledb.4.0; data source = “ &Server.MapPath(“../db/DATA.MDB”)Câu lệnh SQL dùng để truy xuất CSDLstrSQL = “SELECT * FROM DUYETXEM WHERE SO_LAN_XEM > 0”Khởi tạo kết nốiSet myConnection = Server.CreateObject(“ADODB.Connection”)Mở kết nối và thực hiện câu lệnh SQLmyConnection.Open strConnectionSet rs = myConnection.Execute(strSQL)Nếu số lần xem > 0 thì tăng biến đếm lên 1If Not rs.EOF ThenSoLanXem = rs(“SO_LAN_XEM”)SoLanXem = (SoLanXem + 1)Cập nhật vào CSDLstrSQL = “UPDATE DUYETXEM SET SO_LAN_XEM = “ & SoLanXemSet rs = myConnection.Execute(strSQL)Else Nếu chưa có lần xem nàoSoLanXem = 1Thêm vào CSDLstrSQL = “INSERT INTO DUYETXEM (SO_LAN_XEM) VALUES (“ &SoLanXem & “);”Set rs = myConnection.Execute(strSQL)End IfĐóng kết nốiSet myConnection = NothingSet rs = Nothing%>Trong đầu mỗi trang ASP bạn include file bodem.asp vào và hiển thị như sau:Chúc các bạn thành công!