统计在线人数的方法有很多，关键有几点，一个是怎么样标记唯一访客;一个是怎么样统计异常退出的访客;三个就是怎么样减少服务器端的压力。

　　标志唯一访客的方法有两个，一个是ip来源，另外一个是sessionid。下面的这个程序是用sessionid作为标记，统计在线用户的一个办法。
<%
function disponline(timeout)
''显示在线人数  单位 秒  参数表示访问过期的时间
sessionID = session。SessionID

''检测当前sessionid
dim rshceck，sqlcheck
sqlcheck="select sessid，sesstime from online where sessid=''"&sessionID&"''"
set rscheck = server。createobject("adodb。recordset")
rscheck。open sqlcheck，conn，1，3
if rscheck。eof or rscheck。bof then
rscheck。addnew
rscheck("sessID")=sessionID
rscheck("sesstime")=now()
else
rscheck("sesstime")=now()
end if
rscheck。uppdate
rscheck。close
set rscheck=nothing

''删除过期在线人数
dim rspredel，sqlpredel
sqlpredel="select * from online"
set rspredel = server。createobject("adodb。recordset")
rspredel。open sqlpredel，conn，1，3
for i=1 to rspredel。recordcount
if DateDiff("s"， rspredel("sesstime")， Now()) > timeout then
rspredel。delete
end if
rspredel。movenext
next
rspredel。close
rspredel。open sqlpredel，conn，1，1
''code by niceidea
dim count
count=rspredel。recordcount
rspredel。close
set respredel=nothing

if count = 0 then count = 1 ''汗。。。。。。
response。write (count)
%>

　　调用方法，另存文件为online。asp，然后在数据库链接文件中include进去，在需要显示的地方，调用函数就可以了。这个办法的信息记录在数据库中，需要在数据库中新建一个online的表。每次页面刷新都会产生数据读写，消耗cpu的资源比较多。

　　也可以用application对象存储类似的数组，在这个办法下，当访客数量多的时候，可能会消耗一部分的内存。所以，在需要统计访问的时候，最好使用第三方的统计，现在连google推出了免费的统计服务，一般情况下是没有必要自己统计的。