global.asa

fdafaf af

<script language="vbscript" runat="server">

sub application_onstart
'当服务器开启时，设置用户计数器为0
application("activUser")=0
end sub

sub session_onstart
	'设置session对象的有效时间为20分钟
session.timeout=20
'当开始一个session时用户计数器加1
application.lock
application("activeUser")=application("activeUser")+1
application.unlock
end sub

sub session_onend
'当结束一个session时用户计数器减１
application.lock
application("activUser")=application("activUser")-1
applicatin.unlock
end sub
</script>