Welcome Everybody Visited mySite

APTECH WORLDWIDE
 
Trang ChínhPortalliCalendarGalleryTrợ giúpTìm kiếmĐăng kýThành viênNhómĐăng Nhập

Share | 
 

 Cách tạo bộ đếm số người truy cập website !!!

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
baoangel
Advanced Member
avatar

Nam Tổng số bài gửi : 30
Age : 26
Registration date : 28/01/2007

Bài gửiTiêu đề: Cách tạo bộ đếm số người truy cập website !!!   Sat Feb 03, 2007 12:45 pm

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, tức là khi người dùng gõ vào địa chỉ của website trong trình duyệt để truy cập. Khi đó, chúng ta sẽ tăng biến đếm số người online:

Application(“So_Nguoi_Online”) = Application(“So_Nguoi_Online”) + 1
Session_OnEnd: Được gọi khi client ngắt kết nối với server, tức là khi người dùng chuyể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”) -1

Nội dung của file GLOBAL.ASA như sau:


Sub Application_OnStart()

Khởi tạo giá trị ban đầu cho biến = 0

Application(“So_Nguoi_Online”) = 0

End Sub

Sub 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 1

Khó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úc

Application.Lock

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




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:



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ên server của bạn. Số lượt truy cập website luôn tăng, do đó chúng ta chỉ cần khai báo biến trong thủ tục Application_OnStart:

Application(“So_Luot_Truy_Cap”) = 0

Và 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”) + 1

Và hiển thị trong website:

Số lượt truy cập: m strConnectionbrbr'Biến thiết lập kết nốibrbrDim myConnectionbrbr'Đầu tiên xác định chuỗi kết nối với CSDL, thay đổi đường dẫn tới CSDL brbr'cho phù hợp với đường dẫn và tên CSDL của website của bạnbrbrstrConnection = “provider=microsoft.jet.oledb.4.0; data source = “ & Server.MapPath(“../db/DATA.MDB”)brbr'Câu lệnh SQL dùng để truy xuất CSDLbrbrstrSQL = “SELECT * FROM DUYETXEM WHERE SO_LAN_XEM 0”brbr'Khởi tạo kết nốibrbrSet myConnection = Server.CreateObject(“ADODB.Connection”)brbr'Mở kết nối và thực hiện câu lệnh SQLbrbrmyConnection.Open strConnectionbrbrSet rs = myConnection.Execute(strSQL)brbr'Nếu số lần xem > 0 thì tăng biến đếm lên 1

If Not rs.EOF Then

SoLanXem = rs(“SO_LAN_XEM”)

SoLanXem = (SoLanXem + 1)

'Cập nhật vào CSDL

strSQL = “UPDATE DUYETXEM SET SO_LAN_XEM = “ & SoLanXem
Set rs = myConnection.Execute(strSQL)

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:




Chúc các bạn thành công!

_________________
Con cò đi uống rượu đêm.
Đậu phải cành mềm lộn cổ xuống ao.
Còn anh chả uống ngụm nào.
Cũng say ngây ngất ngã vào lòng em
^_^ KEKE ^_^
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Cách tạo bộ đếm số người truy cập website !!!
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [0977542125] Truyền Nước Tại Nhà, Y Tế Tiêm Truyền
» [0977542125] Truyền Nước Tại Nhà, Y Tế Tiêm Truyền
» Đầu Thu Kỹ Thuật Số AVG ,Truyền hình An Viên
» Cảnh giác với thông tin sai lệch trên website giả mạo chủ đầu tư
» Kho vũ khí khổng lồ trong Truy Kích

Permissions in this forum:Bạn không có quyền trả lời bài viết
Welcome Everybody Visited mySite :: Ebooks :: Ebooks Tiếng Việt :: IT Books-
Chuyển đến