代码如下:
<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编辑过]