代码如下:
<script language="vbscript" runat="server">
sub application_onstart
'设置session超时时间
session.timeout=15
'初始化application值为0
application.lock
application("onlineNum")=0
application.unlock
end sub

sub application_onend
end sub

sub session_onstart
'在线人数+1
application.lock
application("onlineNum")=application("onlineNum")+1
application.unlock
end sub

sub session_onend
'在线人数-1
application.lock
application("onlineNum")=application("onlineNum")-1
application.unlock
end sub
</script>

就是红色那部分代码没有执行,那位高手能帮忙一下啊

[此贴子已经被作者于2007-10-31 14:42:22编辑过]

[此贴子已经被作者于2007-10-31 14:42:04编辑过]