请问怎么通过Application使得进入页面，也会使总数加1

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_onStart
Application("Total") = 0
Application("OnLine") = 0
End Sub

Sub Session_onStart
Session.TimeOut=30
Application.Lock
Application("OnLine") = Application("OnLine") + 1
Application("Total") = Application("Total") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("OnLine") = Application("OnLine") - 1
Application.Unlock
End Sub
这样写，只有登陆，才可以使总数加1

先谢谢了！！

</SCRIPT>

不太明白你的意思～～？？

实际上，在客户端关闭浏览器时是不能触发Session_OnEnd，它是过了Session.TimeOut才触发的

RUNAT=Server
这代码不是客户端运行的
关键是这些代码只有在global.asa文件中才有用

我的意思是这样子的:
在我以上代码里只有登陆会员,记录Session
Application["total"]才会加1,

不知道能不能,让不登陆会员,只要一进网站都能加1

就是三楼说的
把代码放在global.asa
如果是.net，就放在global.asax
global.asa或global.asax都要放在网站的根目录下才起作用

我就是放在global.asa中,但是只有会员登陆记录Session才能起作用!!

那就不知道了～～

Sub Session_onStart
Session.TimeOut=30
if (当前会员为真)
{Application.Lock
Application("OnLine") = Application("OnLine") + 1
Application("Total") = Application("Total") + 1
Application.Unlock
}
End Sub
Session_onStart是一进你的网站就调用的，所以记录的是所有人的数量，这个判断不一定就要在Session_onStart中，但总人数一定要在这个函数中
可以修改如下
Sub Session_onStart
Session.TimeOut=30
if (当前会员为真)
{
Application.Lock
Application("OnLine") = Application("OnLine") + 1
Application.Unlock
}
Application.Lock
Application("Total") = Application("Total") + 1
Application.Unlock
End Sub