网络编程
位置:首页>> 网络编程>> Asp编程>> ASP显示当前在线人数统计代码

ASP显示当前在线人数统计代码

  发布时间:2010-04-24 15:47:00 

标签:在线统计,Application,asp

 用两个文件.GLOBAL.ASA和online.asp

下面分别给出两个文件的源代码.呵呵,我也是菜鸟,大家加油哟!

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_onStart 
     Application("OnLine") = 0 
End Sub 
  
Sub Session_onStart 
     Application.Lock 
     Application("OnLine") = Application("OnLine") + 1 
     Application.Unlock 
End Sub 
如果防止刷新,不要下面这段!
Sub Session_OnEnd 
   Application.Lock 
   Application("OnLine") = Application("OnLine") - 1 
   Application.Unlock 
End Sub 
    
</SCRIPT>

online.asp代码如下!

<%@language=VBscript%>
<Html>
<head>
<title>
显示在线人数
</title>
</head>
<body>
<center>
欢迎光临本Aspxhome.com,当前共有<%=Application("OnLine")%>在线
</center>
</body>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com