在本例中,用application("online")变量记录已经登录社区的在线人数,因为一旦有用户访问
服务器而不管用户是否登录,都会产生onstart事件,所以不能在onstart事件里使applicaiton("online")加一。因为不管是否是登录用户的会话结束都会产生onend事件(假如有访客访问了
服务器但并不登录社区,他的会话结束后也会产生onend事件),所以在session_onend事件里用了句if语句来判断是否为已登录用户的onend事件,如果是才将在线人数减一。
这只是一个统计在线人数的简单例子,对于一个完整的虚拟社区来说,仅仅统计有多少人在线是不够的,在本例中
数据库里有个online字段是用来记录用户的在线状态,用户登录的时候,在login.
asp里将online设为1,但用户离线时并没有将online设为0,要完善它,就要修改一下session_onend事件,在该事件里将online设为0。
===global.sas===
<script language="
vbscript" runat="server">
sub application_onstart
application("online")=0
set application("conn")=server.createobject("adodb.connection")
application("db")=server.mappath("\bbs.mdb") '
此处最好使用绝对路径\bbs.mdb,下文有详细介绍