09/10/2018, 17:48
[Q] Session trong Global.asa
Trong file global.asa mình có đoạn code sau cho Session onEnd
//////////////////////////////////////////////////////////
Sub Session_OnEnd
Application.Lock
Application("WhoOn") = Application("WhoOn") - 1
Application.Unlock
set connapp = Server.CreateObject ("ADODB.Connection")
connapp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/mnm_main_db.mdb")
sql = "UPDATE users_logtime SET offline=True WHERE offline=False AND SID=" & Session.SessionID & " AND user_id=" & Session("user_id") & ""
connapp.Execute (sql)
set connapp = Nothing
End Sub
///////////////////////////////////////////////////////////
Có vẻ như câu lệnh execute không hoạt động mặc dù mình đã kiểm tra tất cả, thử chạy bằng file .asp cũng không bị lỗi gì, nhưng đưa vào global.asa thì lại kô chạy. Mặc dù Application("WhoOn") lại chạy ( tức là trừ đi 1)
Ai có thể giúp mình ?
//////////////////////////////////////////////////////////
Sub Session_OnEnd
Application.Lock
Application("WhoOn") = Application("WhoOn") - 1
Application.Unlock
set connapp = Server.CreateObject ("ADODB.Connection")
connapp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/mnm_main_db.mdb")
sql = "UPDATE users_logtime SET offline=True WHERE offline=False AND SID=" & Session.SessionID & " AND user_id=" & Session("user_id") & ""
connapp.Execute (sql)
set connapp = Nothing
End Sub
///////////////////////////////////////////////////////////
Có vẻ như câu lệnh execute không hoạt động mặc dù mình đã kiểm tra tất cả, thử chạy bằng file .asp cũng không bị lỗi gì, nhưng đưa vào global.asa thì lại kô chạy. Mặc dù Application("WhoOn") lại chạy ( tức là trừ đi 1)
Ai có thể giúp mình ?
Bài liên quan
Mình nghi doạn code đó của bạn nên chaỵ tại file Dafault hoặc Logout cũng được.
Nhưng không hiểu tại sao code trên lại không chạy
Mình biết là nên để vào logout nhưng giả sử member không logout thì sao, như vậy thì online hoài à?
Cái global.asa đó khi đến session.timeout thì nó sẽ tự động xóa member đó ra khỏi danh sách online
Lúc trước thì mình chạy được (trên PWS) nhưng không hiểu sao bây giờ cài ISS lại chạy không được
set connapp = Nothing
connapp.Execute sql
connapp.close
set connapp = nothing
Bạn cũng nên xem lại điều kiện sau WHERE có xảy ra không.