ASP 检测session VBSCRIPT

Question

我不知道我能不能很好的表述问题
就是我想做一个显示在线用户的页面

如何写一段检测session的代码，使得（某一时刻）
把所有session("username")的值都传到数据库中
同时也删除已经没有session("username")的数据
保持数据库中基本上都是在线用户

或者有没有其他更加正规的方法？VBSCRIPT 谢谢

Answer 1

可以参考一下。<script&nbsp;language="vbscript" runat="server">Sub Application_OnStartApplication("visitors")=0Application("views")=0Dim&nbsp;fs, file, countSet&nbsp;fs&nbsp;= Server.CreateObject("Scripting.FileSystemObject")Set file =&nbsp;fs.OpenTextFile(Server.MapPath("statistics.dat"), 1)If (not file.AtEndOfStream) Thencount = file.ReadLineEnd&nbsp;IfIf (isnumeric(count)) ThenApplication("views") = countEnd&nbsp;IfEnd SubSub Session_OnStartApplication.LockApplication("visitors")=Application("visitors")+1Application("views")=Application("views")+1Set fs = Server.CreateObject("Scripting.FileSystemObject")Set file = fs.OpenTextFile(Server.MapPath("statistics.dat"), 2)file.WriteLine Application("views")Application.UnLockEnd SubSub Session_OnEndApplication.LockApplication("visitors")=Application("visitors")-1Application.UnLockEnd Sub</script>