09/10/2018, 17:46
[Q] Hỏi cách đếm số người đang online bằng ASP
xin vui lòng hướng dẫn cách đếm số người đang online dùng ngôn ngữ ASP, post file source lên càng tốt
Bài liên quan
trong file global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' dat con so ban dau la 0
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
' thoi gian timeout cho Session la 20 phut , co thay thay doi con so nay cho phu hop
Session.Timeout = 20
' bat dau session
Session("Start") = Now
' tang 1 cho so dem moi khi bat dau 1 session
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
' giam 1 cho so dem moi khi do'ng 1 session
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
<%@ Language=VBScript %>
<HTML>
<BODY>
<B>Co <%= Application("ActiveUsers") %> nguoi dang duyet site</B>
</BODY>
</HTML>
intActiveUserTimeout = 10 'In minutes, how long before a User is considered Inactive and is deleted from ActiveUserList
sửa thành 5 hay nhỏ hơn thì sẽ chính xác hơn
>> nhiều quá hoặc ít quá sẽ không chính xác .
Đếm cũng chỉ tương đối . nói chúng sau này nếu biết viết asp , bạn có thể viết 1 cái cho mình dựa vào ip và trang web được hit để đếm .