Bộ đếm truy cập bị reset về O sau khoảng 1 tuần?

[summit]

Mình dùng file global.asa với nội dung:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("visits") = 0
Application("Active") = 0
End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart
Session.Timeout = 30
Session("Start") = Now
Application.Lock
Application("visits") = Application("visits") + 1
intTotal_visitors = Application("visits")
Application.Unlock
Session("VisitorID") = intTotal_visitors

Application.Lock
Application("Active") = Application("Active") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("Active") = Application("Active") - 1
Application.Unlock
End Sub

</SCRIPT>
Mình thấy cứ sau 1 thời gian là bộ đếm trở về MO mà chẳng hiểu tại sao nữa, bác nào fix hộ em đoạn code trên với, thanks!

[LogitechTM]

theo mình đoạn code ko bị lỗi. có thể sever reset lại nên mới thế

[summit]

Sao Server lại Reset? để làm gì nhỉ? Mà tại sao lại Reset của người ta? Server Nhân Hoà.

[thatma]

Server 1 tuần Reset là ít đấy. Global.asa của bạn phải lưu lại số visit khi ứng dụng reset lại chứ - tính cả trong trường hợp đổi nhà dịch vụ cung cấp Host thì số visit vẫn không thay đổi.

tỉ dụ:

Sub Application_OnStart
Application("visits") = LoadVistor() 'Hàm đọc visit từ File hoặc MS SQL, Access
Application("Active") = 0
End Sub

Sub Application_OnEnd
SaveVisitor() 'Hàm lưu lại số visit vào file hoặc MS SQL, Access
End Sub


LoadVisitor(), SaveVisitor() tùy bạn viết

Nếu thêm như thế này thì dù Server ngày reset 10 lần cũng chẳng ảnh hưởng.

Thật mà! :D

[summit]

Cảm ơn bạn nhiều.The message you have entered is too short. Please lengthen your message to at least 20 characters.