计数问题,不知道为什么实现不了

purerain 2004-07-16 07:40:06

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

</SCRIPT>

COUNTER.ASP 内容如下:

<%@language=VBscript%>
<Html>
<head>
<title>
防止刷新的计数器
</title>
</head>
<body>
<center>
<font color=blue size=5>
欢迎光临本网站,当前共有<%=Application("OnLine")%>人访问本网站
</font>
</center>
</body>

测试中,出现为"欢迎光临本网站,当前共有人访问本网站",没有计数

有问题吗?为什么实现不了对网站访问的计数?

...全文

94 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

smile770329 2004-07-16

打赏
举报

请问星海之涛一个问题，先谢谢了。
你说说session 和application 的区别吗？
我是刚学习asp的一个较笨老女孩

butcher2002 2004-07-16

打赏
举报

你代码错了，应该加lock
<script language=vbscript runat=server>
sub application_onstart
application("cvec")="dsn=cvec;uid=sa;pwd=password"
application("bbs")="dsn=bbs;uid=sa;pwd=password"
application.lock
application("zaixian")=0
application.unlock
end sub
sub session_onstart
application.lock
application("zaixian")=application("zaixian")+1
application.unlock
end sub
sub session_onend
application.lock
application("zaixian")=application("zaixian")-1
application.unlock
end sub
</script>
照这个写~