代码使用VB.net

使用Global.asax代码如下:

sub session_start(byval sender as object,byval e as eventargs)
session.timeout=60
Application.Lock()
Application("CurrentUsers") = Application("CurrentUsers") + 1
Application.UnLock()

end sub
sub session_end(byval sender as object,byval e as eventargs)
Application.Lock()
Application("CurrentUsers") = Val(Application("CurrentUsers") - 1)
Application.UnLock()
end sub

为什么测试的时候,人员只会增加,当页面关闭时却不会减少呢?

先谢谢大家帮忙解答了

session.timeout=60
你把这个去掉看看？

你的代码没有问题啊！
用VB 写 我还真是看得有点晕～！

好像还是不行哦,这下惨了,找不到原因,

真是晕呀!