global.asa

中国库存信息网 完整版 [已通过安全检测]Symantec AntiVirus 企业版 10.0.0.0.359 ║ ║ [病毒定义文件版本] 2006-5-5 rev.24 ║ ║ [已通

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("online")=0

End sub
Sub Session_OnStart
Session.Timeout=10
Application.Lock
Application("online")=Application("online")+1

Application.unlock
End sub
Sub Session_OnEnd
Application.Lock
Application("online")=Application("online")-1
Application.unlock
end sub
</SCRIPT>