[求助]Session的觸發事件
發表於 : 週三 7月 03, 2002 9:12 am
sub Session_OnStart
Session.TimeOut = 20
Application.Lock
Application("Whos_Online")=Application("Whos_Online")+1
Application.Unlock
end sub
==
在開始的時候可以觸發沒錯..
但是當20分鐘到Session消失的時候後面這一段卻不會動作..
求救喔..
==
sub Session_OnEnd
Application.Lock
Application("Whos_Online")=Application("Whos_Online")-1
Application.Unlock
end sub
Session.TimeOut = 20
Application.Lock
Application("Whos_Online")=Application("Whos_Online")+1
Application.Unlock
end sub
==
在開始的時候可以觸發沒錯..
但是當20分鐘到Session消失的時候後面這一段卻不會動作..
求救喔..
==
sub Session_OnEnd
Application.Lock
Application("Whos_Online")=Application("Whos_Online")-1
Application.Unlock
end sub