ASP 检测session VBSCRIPT

Question

我不知道我能不能很好的表述问题就是我想做一个显示在线用户的页面如何写一段检测session的代码，使得（某一时刻）把所有session("username")的值都传到数据库中同时也删除已经没有session("username")的数据保持数据库中基本上都是在线用户或者有没有其他更加正规的方法？VBSCRIPT 谢谢

Answer 1

可以参考一下。

<script language="vbscript" runat="server">

Sub Application_OnStart
Application("visitors")=0
Application("views")=0

Dim fs, file, count
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set file = fs.OpenTextFile(Server.MapPath("statistics.dat"), 1)

If (not file.AtEndOfStream) Then
count = file.ReadLine
End If

If (isnumeric(count)) Then
Application("views") = count
End If
End Sub

Sub Session_OnStart
Application.Lock
Application("visitors")=Application("visitors")+1
Application("views")=Application("views")+1

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set file = fs.OpenTextFile(Server.MapPath("statistics.dat"), 2)
file.WriteLine Application("views")

Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("visitors")=Application("visitors")-1
Application.UnLock
End Sub

</script>