session_onend 无法触发
我的session_onend 无法触发,即使是在20分钟以后,下面是我的代码
Sub Session_OnEnd
Application.lock()
Application("online") = Application("online") -1
Application.unlock()
dim conn
conn = application("str_conn")
conn.Execute "delete from online where sessionid='"&session.sessionid&"'"
End Sub