' 根据需要,设置超时时间. Session("Start") = Now
' 设置一个Session开始时间. Application.Lock Application("ActiveUsers") = Application ("ActiveUsers") + 1
' session开始后增加来访者计数. Application.UnLock End Sub Sub Session_OnEnd Application.Lock Application("ActiveUsers") = Application ("ActiveUsers") – 1
' session关闭时减少来访者计数. Application.UnLock End Sub </script> [u]count.asp
[/u]
' 其它显示在线用户数量的页面. <%@ Language=VBScript %> <html> <head> <title>山水盈盈之在线用户统计</title> </head> <body> <B><FONT COLOR="#CC0000">现有<%= Application("ActiveUsers") %></FONT> 位用户在线与您共舞!</B> </body></html>[b][1][/b]
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有