您当前的位置:中客资源站网络学院ASP 编程ASP 应用 → 文章内容 退出登录 用户管理
本类热门文章
相关下载
ASP显示在线人数
作者:中客资源  来源:中客资源  发布时间:2007-2-7 2:24:55

减小字体 增大字体

 

用两个文件.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>
欢迎光临本网站,当前共有<%=Application("OnLine")%>在线
</center>
</body>


[] [返回上一页] [打 印]
文章评论 (评论内容只代表网友观点,与本站立场无关!)

用户名: 查看更多评论

分 值:100分 85分 70分 55分 40分 25分 10分 0分

内 容:

         (注“”为必填内容。) 验证码: 验证码,看不清楚?请点击刷新验证码