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环境下运行。
