| 用ASP实现统计当前在线人数 |
| 作者：小雨 文章来源：本站原创 点击数： 更新时间：2005-2-2 10:51:55 |
|
|
用两个文件.GLOBAL.ASA和online.asp
下面分别给出两个文件的源代码.
GLOBAL.ASA的源码
<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>
-
-
|
|
| 文章录入：admin 责任编辑：小雨 |
|
上一篇文章： ASP设计常见问题及解答精要-3
下一篇文章： ASP设计常见问题及解答精要-2 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
|
|
首页 
用户登录 
新用户注册 
（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
