|
1.首先需要ASP源代码,如下:
※程序代码一
<%
Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, ID
RefreshTime = 10
IdleTime = RefreshTime * 3
Application.Lock
If Application(Session.SessionID & "LastAccessTime") = Empty Then
If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0
ReDim Tmp(Application("TotalUsers") + 1)
Num = 0
If Application("TotalUsers") > 0 Then
For I = LBOUND(Application("OnlineUser")) To UBOUND(Application("OnlineUser"))
ID = Application("OnlineUser")(I)
If ID <> Session.SessionID Then
Tmp(Num) = ID
Num = Num + 1
End If
Next
End If
Tmp(Num) = Session.SessionID
Application("TotalUsers") = Num + 1
ReDim Preserve Tmp(Application("TotalUsers"))
Application("OnlineUser") = Tmp
End If
Application(Session.SessionID & "LastAccessTime") = Timer
ReDim Tmp(Application("TotalUsers"))
Num = 0
For I = 0 To Application("TotalUsers") - 1
ID = Application("OnlineUser")(I)
If (Timer - Application(ID & "LastAccessTime")) < IdleTime Then
Tmp(Num) = ID
Num = Num + 1
Else
Application(ID & "LastAccessTime") = Empty
End If
Next
If Num <> Application("TotalUsers") Then
ReDim Preserve Tmp(Num)
Application("OnlineUser") = Tmp
Application("TotalUsers") = Num
End If
Application.UnLock
%>
※程序代码二
<%= Application("TotalUsers") %>
[说明:代码一:主要是计算有多少个人正在使用浏览器阅读这个网页,并将结果保存在Application变量中,这段程序必须放置在网页刚开始的时候.代码二:主要是显示结果,这段程序代码是要放置显示在线人数的地方.]
2.在服务器行为中选择新建"服务器行为",在"新建服务器行为"选项卡的"文档类型"中选择"ASP VBScript".在"名称"中填入自定义服务器行为的名称,例如"onlineUser".点击"确定".
3.在"创建器"中点"+"号来增加代码块.在弹出的对话框中点"确定".
将代码块一复制到"创建器"中的"代码块"栏中.并选择"插入代码"栏为"在<html>标签的上方"和"相对位置"栏为"就在<html>标签上方".
4.效仿代码块一,将代码块二页增加到"创建器"中.并选择"插入代码"栏为"相对去选定"和"相对位置"栏为"在选定前".
5.单击创建器中的"高级"按钮,自定义"服务器行为标题",例如"ASP在线人数",在选定代码块栏中选择代码块二.
最后单击"确定".(制作完毕)
若要使用则选选择页面中插入位置,然后打开服务器行为,自己创建的服务器行为会赫然在列,单击,即可自行在页面中增加一个动态文本,用来显示当前在线人数.
----------------------------------------
|
自制ASP统计在线人数的服务器行为
半支烟发表于：