< 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>
SUB Session_OnEnd
cancelme=trim(Session("userid"))
application.lock
application("OnlineUser")=replace(application("OnlineUser"),cancelme,"")
application.unlock
End Sub
< /SCRIPT>
上一篇:附:原文
下一篇:BBSCHECKOUT.ASP
相关信息
- 关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - 管理登陆
- Copyright © 2003-2007 ZhuYe123.COM. All Rights Reserved . 粤ICP备05072659号
- 致力于中国个人网站发展,我们一直在努力!