如何在ASP实现网站在线人数，当前访问人数的统计，并可把数值写入数据库和可从数据库（SQL）读取

要求能正常实现网站在线人数访问总人数，当前在线人数，可以把数据写入到数据库中保存，即每增加一个在线人数就往数据库写读取数据，然后再把数据写入数据库。

因为原来用global.asa写那个统计人数的代码在实现这个功能时，经常会出现统计人数归零的情况。
我也试过把把数据写入数据库，不过在查看数据库跟踪的详细列表时，发现在整个会话期间，只从数据库读出一次Application的值，当有新页面打开的时候数据没有改变。

这是我以前用来统计的Global.asa代码（数据库连接那部分我去掉了）：

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
//连接数据库
ConnStr="Provider=SQLOLEDB.1;Persist Security InFso=true;Data Source=.;Initial Catalog=;User ID=;Password="
'Catalog=;User ID=;Password= 因为是问题，已去掉
Set conn = Server.CreateObject("ADODB.Connection")
conn.commandtimeout=20
conn.open ConnStr
conn.execute("update [CountS] set [id]=[id]+1;")
Application.Lock '在这里读出Application("CountAll")的初始值
'这里设置过初值的，但是还是出现上面的问题
'要求在这里实现数据库的连接，从数据库读出上次访问的总人数
Application.UnLock
End Sub

Sub Session_OnStart

编写一个ASP程序，实现并显示当前网页的在线人数和计数器 asp页面当前在线人数显示问题？ asp怎样显示当前页的在线人数 如何在asp中实现 上班时间禁止访问网页？ asp 如何知道这个人退出当前这个网站 怎样用asp写代码来实现统计在线人数 急!~! 用ASP如何实现 访问数据库时 在很多页面下实现跳转 在ASP里面如何实现会员登录跳转到当前所在的页 怎么用ASP获得当前在线用户的人数，及在线用户列表啊！！ 这个sql语句在网站代码(asp)中如何实现？