ASP在线代码ASP在线代码ASP在线代码

asp中  
在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%> 
asp.net中:
global.asax.cs

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

namespace alumniV2 
{