1. 爱易网页
  2. ASP教程
  3. asp显示在线人数有关问题

asp显示在线人数有关问题

日期：2014-05-17　 浏览次数：21112 次

asp显示在线人数问题？
<script language=vbscript runat=server> 
sub application_onstart 
application("zzzonline") = 0 
end sub 

Sub Session_OnStart 
Session.timeout=1 
Application.Lock 
application("zzzonline")=application("zzzonline")+1 
Application.Unlock 
End sub 

Sub Session_OnEnd 
Application.Lock 
Application("zzzonline")=application("zzzonline")-1 
Application.Unlock 
End sub 
</script>

在线<%=application("zzzonline")%>人

为什么显示在页面上显示为“在线人”，在线为数为空？？？

------解决方案--------------------
你这代码 三个SUB函数 
没见你调用啊
------解决方案--------------------
用两个文件.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>

 



------解决方案--------------------
经测试，你的代码完全没有问题。

1.代码要放到GLOBAL.ASA文件里。
2.在IIS环境下运行。

相关资料更多>

  1. 这样的结果如何计算
  2. 前几天在国外官网上买的FlexPaper AdaptiveUI源代码不知道如何用，求帮助！
  3. 救命呀！stream对象的loadfromfile不能通过网络获取客户端的文件！解决方案
  4. 请教怎么从服务器把网站代码下载到电脑呀
  5. 将表单内容向邮件提交的简单实现
  6. ASP去除字符串中的小写字母应该如何做
  7. 用户在线学习时间统计有关问题
  8. 对初学者的:自助友情链接(企业在线管理)来做着玩一下...(一
  9. 单元格内嵌入另外的一个表格，为何边框总会有一点点的变化？解决办法