10/10/2018, 10:22
Đếm số người đang truy cập vào website hiện tại & số lượt truy cập = ASP !!!
Ai là mod làm ơn sticky cái topic này lên dùm.
Now, let's start.
Vì thấy nhiều người cứ đặt câu hỏi: "Làm sao đếm số người đang truy cập vào website hiện tại & số lượt truy cập vào website" và nó cứ được lặp lại hoài, nên mình post cái này lên cho mọi người tham khảo, ai biết rồi thì thôi, ai chưa biết thì... học. Và vì mình chỉ biết ASP và ASP.NET, PHP thì không rành nên ai có nhã ý post code PHP lên thì post. Code ASP.NET cũng tương tự như ASP thôi.
đầu tiên, trong file Global.asa, bạn khai báo:
Và ở trang bạn muốn hiện cái thông báo thì chèn:
Xong, cho ý kiến nhá
Now, let's start.
Vì thấy nhiều người cứ đặt câu hỏi: "Làm sao đếm số người đang truy cập vào website hiện tại & số lượt truy cập vào website" và nó cứ được lặp lại hoài, nên mình post cái này lên cho mọi người tham khảo, ai biết rồi thì thôi, ai chưa biết thì... học. Và vì mình chỉ biết ASP và ASP.NET, PHP thì không rành nên ai có nhã ý post code PHP lên thì post. Code ASP.NET cũng tương tự như ASP thôi.
đầu tiên, trong file Global.asa, bạn khai báo:
Code:
Sub Application_Start() ' Cái chỗ này là _Start() hay _OnStart() gì đó wên rồi.
Application("counter") = 0 ' Số lượt truy cập.
Application("cur") = 0 ' Số ng` đang truy cập
End Sub
Sub Session_Start()
Application.Lock()
Application("counter") = Application("counter") + 1 ' Hông biết có cần cast
hông nữa ^.^
Application("cur") = Application("cur") + 1
Application.Unlock()
End Sub
Sub Session_End()
Application.Lock()
Application("cur") = Application("cur") - 1
Application.Unlock()
End Sub
Code:
Số người đang duyệt web: <%=Application("cur")%>. Số lượt truy cập: <%=Application("counter")%>
Bài liên quan
Đây là cách nhanh nhất, cón cách nữa là lưu vào file text hoặc database, cách đó dĩ nhiên chậm hơn rồi.
Hìhì, anh em bên aspvn.net nên đưa ra nhận xét thôi, chứ ko có ý gì đâu
Chờ nghen
-> Để đếm số người đang truy cập bạn sử dụng một bảng trong CSDL hoặc một file text. Cái này để xacuop viết đê chứ không lại bảo là tranh hàng
- Còn với mod theo dõi action của user. Với mỗi một người dùng khi chuyển qua các trang bạn nên cập nhật thông tin về script đang được triệu gọi trên trình duyệt của user. Thông tin này được lưư lại trong CSDL. Với mỗi một script, bạn hãy chuyển thông tin đó thành action của từng user tại thời điểm đó. Giống như của IBF.
Thế này nhé, nếu script của user đang chạy là index.asp, action tương ứng với script đó là "user này đang ở trang chủ" chẳng hạn. Cái đó tùy bạn xử lý, nhưng do ASP không có khái niệm "mảng có index không phải là int" nên hơi khó, không sao, bạn có thể dùng Object Dictionary của ASP.
Chúc vui.
Thân.
Lần này, ta không dùng biến Application để lưu nữa mà dùng textfile, rồi đưa kq vào biến Session, bạn sửa lại
Sub Application_Start() ' Cái chỗ này là _Start() hay _OnStart() gì đó wên rồi. Application("cur") = 0 ' Số ng` đang truy cập End Sub Sub Session_End() Application.Lock() Application("cur") = Application("cur") - 1 Application.Unlock() End Sub Sub Session_Start() Application.Lock() Application("cur") = Application("cur") + 1 Application.Unlock() Const ForReading = 1, ForWriting = 2 Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.OpenTextFile(Server.MapPath + "counter.txt", ForReading) Session("counter") = MyFile.ReadLine MyFile.Close Session("counter") = Session("counter") + 1 Set MyFile = fso.OpenTextFile(Server.MapPath + "counter.txt", ForReading) MyFile.WriteLine Session("counter") MyFile.Close End SubSố người đang duyệt web: <%=Application("cur")%>. Số lượt truy cập: <%=Session("counter")%>http://www.echip.com.vn/echiproot/ht...tructuyen.html