< 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>
BLOBAL.ASA
80酷酷网 80kuku.com
