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

asp显示在线人数有关问题

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

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. 是不是可以配置到OUTLOOK中的邮件服务器就可以用JMail来发送邮件?该如何解决
  2. 怎么通过web的方式检测USB插拔事件
  3. 构建你的网站新闻自动发布系统之五
  4. 从vbscrpit升级到vb7(一)变量的声明和使用
  5. 用户在线学习时间统计有关问题
  6. 使用ServerVariables集合
  7. 改进性能和样式的 24个 ASP 技巧
  8. NextRecordset的有关问题 希望大家能帮兄弟一下呀 小弟我真的搞不懂了
  9. 在ASP中用EasyMailObject组件处理Exchange邮件源代码(5)_组件开发_ASP教程