global1.asa

物业管理和办公自动化系统

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
SUB Session_OnEnd
   cancelme=trim(Session("userid"))
   application.lock
   application("OnlineUser")=replace(application("OnlineUser"),cancelme,"")
   application.unlock 
End Sub
</SCRIPT>