ASP实现BBS在线用户显示代码解析

在global.asa的 
application_onstart里面 
    set   tmp_dic=server.createobject( "scripting.dictionary ") 
    redim   tmp_a(0) 
    set   tmp_a(0)=tmp_dic 
    Application( "bbs_online ")=tmp_a 

session_onend里面 
    '用户注销或者Session失效时，从在线人中删除名字 
    'Application( "bbs_online ")指向数组tmp_a,tmp_a(0)指向字典tmp_dic 
    dim   tmp_a,tmp_dic,dic_key,dic_item 
    tmp_a=Application( "bbs_online ") 
    set   tmp_dic=tmp_a(0) 
    dic_key=tmp_dic.keys 
    dic_item=tmp_dic.items 
    for   n=0   to   tmp_dic.count-1 
        if   dic_item(n)=Session.SessionID   then 
            tmp_dic.remove   dic_key(n) 
            exit   for 
        end   if 
    next 
    set   tmp_a(0)=tmp_dic 
    Application( "bbs_online ")=tmp_a 

以下是一个包含文件banner.asp里的部分代码 
每个页面都包含该文件 
        <%dim   tmp_a,tmp_dic,tmp_key 
        tmp_a=Application( "bbs_online ") 
        set   tmp_dic=tmp_a(0) 
        '当前在线人中没有这个名字且名字不为空 

if   NOT   tmp_dic.exists(cstr(request.cookies( "user_name ")))   and   request.cookies( "user_name ") <> " "   then 
    tmp_dic.add   cstr(request.cookies( "user_name ")),Session.SessionID 
end   if 
set   tmp_a(0)=tmp_dic 
Application( "bbs_online ")=tmp_a 
        
        tmp_key=tmp_dic.keys%> 
        <%if   tmp_dic.count=0   then%> 
        当前只有游客在线 
        <%else%> 
        <font   color=red> <b> <%=tmp_dic.count%> </b> </font> 会员在线   </td> 
        <td   height= "21 "   bgcolor= "#FFFFFF "   width= "145 "   style= "padding-top:   2;   padding-bottom:   2 "> 
        <select   size= "1 "   name= "bbs_online "   style= "font-size:   9pt;   color:   #006DB7 "> 
        <%for   n=0   to   tmp_dic.count-1%> 
        <option   value= " <%=tmp_key(n)%> "> <%=tmp_key(n)%> </option> 
        <%next%> 
        </select> 
        <%end   if%> 



BBS中显示在线会员2008-05-16 10:17global.asax.cs

using System;
using System.Collections;
using System.ComponentModel;
using System.Web;
using System.Web.SessionState;

namespace alumniV2