很简单的，session("ip")记录来访ip
sub session_onend
    set myadodb=server.createobject("adodb.connection")
    myadodb.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("/database/db.mdb")
       myadodb.execute "delete * from online where ip='"&session("ip")&"'",,1
       myadodb.close
       set myadodb=nothing
end sub

session_onend实践的发生需要一定的时间，你等半个小时，估计就可以了。

另外请不要重复发贴，你的帖子大家会详细看的。