asp显示在线人数有关问题
日期：2014-05-17 浏览次数：21054 次
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环境下运行。
<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环境下运行。
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
