Html页面如何统计在线人数?我的空间支持asp,但首页是html的

我尝试用global.asa和online.asp(online.asp中只有一条写"当前在线:xxx人"的语句),在首页中用<iframe>调用online.asp,好像不行,也可能是我的方法不对!  
   
  请大家帮忙!最好不要用数据库.  
  顶者有分! 问题点数：40、回复次数：9Top

1 楼chhwang（浩浩*好想早日拥有闪耀的星星*★★★★★）回复于 2004-05-04 09:28:25 得分 1

include  
   
  fsoTop

2 楼liuyangxuan（阿轩）回复于 2004-05-04 09:34:59 得分 1

FSO读取，  
  FSO写入！Top

3 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-05-04 09:35:18 得分 36

global.asa  
   
  <Script   Language="VBScript"   Runat="Server">  
  Sub   Application_OnStart  
          Application("useronline")   =   0  
  End   Sub  
   
  Sub   Session_OnStart  
          Application.Lock  
          Application("useronline")=Application("useronline")+1  
          Application.UnLock  
  End   Sub  
   
  Sub   Session_OnEnd  
          Application.Lock  
          Application("useronline")=Application("useronline")-1  
          Application.UnLock  
  End   Sub  
   
  Sub   Application_OnEnd  
  End   Sub  
  </script>  
   
   
  online.asp  
   
  document.write('<%=Application("useronline")%>')  
   
   
  demo.htm  
   
  <script   language="JavaScript"   src="online.asp"></script>Top

4 楼dachangtui（大长腿）回复于 2004-05-04 11:51:02 得分 0

多谢   wanghr100(灰豆宝宝.net),另外我还想进一步问一下:  
   
  1,这个在线人数是不是以session的过期时间为准的,也就是20分钟内的在线人数?  
  3,如果在线人数在1000以上,这样是不是很占用服务器资源?  
  2,我不知道什么是FSO,这种方法是不是就是FSO写入,FSO读取?  
   
  请指点一下,谢谢!  
  Top

5 楼ken1（小林）回复于 2004-05-04 12:07:43 得分 1

fso－－－－－－－－－file     system       object  
  Top

6 楼wanliang2001（大小通杀）回复于 2004-05-04 13:41:26 得分 1

学习！！！Top

7 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-05-04 18:37:38 得分 0

1.20分钟是默认的session失效时间  
  2.如果是记录在线人数,一般都是用这种方法.  
  如果是记录注册用户在线的话,也有用定时刷新的方法.  
   
  3.   FSO   FileSystemObject     偶的那种方法不是.  
   
  FSO:     实现统计访问次数  
   
  demo.htm  
   
  <Script   Language="JavaScript"   src="test.asp"></script>  
   
  test.asp  
   
  <%    
  CountFile=Server.MapPath("counter.txt")    
  Set   FileObject=Server.CreateObject("Scripting.FileSystemObject")    
  Set   Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)    
  counter=Out.ReadLine    
  Out.Close    
  SET   FileObject=Server.CreateObject("Scripting.FileSystemObject")    
  Set   Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)    
  Application.lock    
  counter=   counter   +   1    
  Out.WriteLine(counter)    
  Application.unlock    
  %>  
  document.write("您是第")  
  document.write("<font   color=red>")  
  document.write("<%=counter%>")  
  document.write("</font>")  
  document.write("位访问者")  
  <%  
  Out.Close  
  %>  
   
  counter.txt       用于存储数据.  
  0Top

8 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-05-04 18:38:38 得分 0

看看这贴子.  
  http://expert.csdn.net/Expert/topic/2999/2999450.xml?temp=.3065302Top

9 楼dachangtui（大长腿）回复于 2004-05-04 19:04:36 得分 0

多谢     wanghr100(灰豆宝宝.net)  
  结贴!  
  不好意思,分数少了点!  
  不过,我记住你了.你厉害!Top

相关问题

• .net
• asp
• document
• 线人数
• fso
• 方法
• online
• write

• 帖主：dachangtui
• chhwang
• liuyangxuan
• wanghr100
• ken1
• wanliang2001

• Web开发类图书