是这样的啊，为什么呢？为什么Session_OnEnd没有起作用呢？

你的代码怎么写的？

<SCRIPT Language=VBScript RUNAT=Server>
Sub Application_onStart
application.lock
application("online")=0
application.unlock
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>

提示我也试过：

<SCRIPT Language=VBScript RUNAT=Server>
Sub Application_onStart
application("online")=0
end sub

Sub Session_OnStart
application("online")=application("online")+1
End sub


Sub Session_OnEnd
application("online")=application("online")-1
End sub
</SCRIPT>

都不行。有什么错误吗？不胜感激！

那就不太清楚了，按说在退出所有网页时应该触发Session_OnEnd事件。

Sub Session_OnStart
application.lock
application("online")=application("online")+1
application.unlock
End sub

把这段去掉，试试

这段是不能去的，如果去了，上线的人怎么记录呢？一直就为0人了

你试了吗？
对了，你忙了这么长时间，为什么不用cookes？