主题:  求两段代码,谢谢

绿蚁
职务：普通成员
等级：1
金币：0.0
发贴：33
#12004/9/23 16:16:45
我想在网页上随时显示出目前在线的人数,那位好心人能给我一段这方面的代码吗?谢谢!!! 另外,能不能有一段代码当目前这个网址打不开时,自动跳转到另外一个规定好的网址?麻烦大家好



南宫彩虹
职务：普通成员
等级：2
金币：5.0
发贴：684
#22004/9/27 17:57:31
绿蚁在上个帖子中说
引用:
我想在网页上随时显示出目前在线的人数,那位好心人能给我一段这方面的代码吗?谢谢!!! 另外,能不能有一段代码当目前这个网址打不开时,自动跳转到另外一个规定好的网址?麻烦大家好
显示在线人数方法较多，不过有一个省劲的方法，用插件http://www.udsky.com/download/contents.asp?D_ID=52有一个插件可以显示在线数
至于跳到别的网站则比较麻烦，是显示404错误打不开还是一定时间内打不开，另外你的服务器怎么知道我的硬盘上的东西打不开。



我想飞
职务：普通成员
等级：1
金币：0.0
发贴：17
#32004/10/2 10:08:20
跳转可以用response.redirect方法
统计在线人数
<%
dim RefreshTime ,IdleTime,TotalUsers,OnlineUser(),Tmp(),Num,I,ID
RefreshTime=10
IdleTime=RefreshTime*3
Application.Lock

If Application("TotalUsers")=Empty Then Application("TotalUsers")=0
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
%>


<HTML>
<HEAD>
<META HTTP-EQUIV="Refresh" CONTENT="<%RefreshTime%>,URL=<%=
Request.ServerVariables("PATH_INFO")%>">
</HEAD>
<BODY>
目前在线的人数：<%Application("TotalUsers")%>
</BODY>
</HTML>