UC知道ASP 检测session VBSCRIPT
来源：百度知道 编辑：UC知道 时间：2024/06/18 05:22:04
我不知道我能不能很好的表述问题
就是我想做一个显示在线用户的页面
如何写一段检测session的代码，使得（某一时刻）
把所有session("username")的值都传到数据库中
同时也删除已经没有session("username")的数据
保持数据库中基本上都是在线用户
或者有没有其他更加正规的方法？VBSCRIPT 谢谢
我懂了！！！
谢谢三位了
你们都这么好人这么善良！
就是我想做一个显示在线用户的页面
如何写一段检测session的代码，使得（某一时刻）
把所有session("username")的值都传到数据库中
同时也删除已经没有session("username")的数据
保持数据库中基本上都是在线用户
或者有没有其他更加正规的方法？VBSCRIPT 谢谢
我懂了！！！
谢谢三位了
你们都这么好人这么善良！
楼上说的很好，我以前也写过一个超级简单的，文件还在，可以参考一下。
<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.