<P align="center" style="color:GRAY ">
<%Response.Write("现在有"+Application("whoson")+"人在线")%>
</P>

global.asa文件为：

<script LANGUAGE="VBScript" RUNAT="SERVER">
sub Application_OnStart()
Application.Lock()
Application("whoson")=0
Application.UnLock()
End sub

sub session_OnStart()
Application.Lock()
Application("whoson")=Cint(Application("whoson"))+1
Application.UnLock()
End sub

sub session_OnEnd()
Application.Lock()
Application("whoson")=Cint(Application("whoson"))-1
Application.UnLock()
End sub
</script>


敬请诸位指点！

有错误提示吗？

去掉那几个事件名后面的括号，否则那几个事件不会响应

[此贴子已经被作者于2006-10-10 13:45:46编辑过]

是什么错误？是显示错误？还是程序错误？
<script LANGUAGE="VBScript" RUNAT="SERVER">
sub Application_OnStart()
Application.Lock()
Application("whoson")=0
Application.UnLock()
End sub
sub Application_OnEnd()
Application.Lock()
Application("whoson")=0
Application.UnLock()
End sub
sub session_OnStart()
Application.Lock()
Application("whoson")=Cint(Application("whoson"))+1
Application.UnLock()
End sub

sub session_OnEnd()
Application.Lock()
Application("whoson")=Cint(Application("whoson"))-1
Application.UnLock()
End sub
</script>

我的是这样写的没错误哈

没有错误提示,主要问题是不能显示在线人数!!

我的golasa文件是这样写的
事件没有() 的

<script language="vbscript" runat="server">
sub Application_OnStart

Application.Lock
Application("all")=0
Application.Unlock

end sub
sub Application_OnEnd

end sub
sub Session_OnStart
session.timeout=600
session("name")=""
If IsEmpty(Session("Connected")) Then
Application.Lock
Application("all")=Application("all") + 1
Application.UnLock
End If
Session("Connected")=True
end sub
sub Session_OnEnd
session("id")=""
session("name")=""
session.abandon
Application("all")=Application("all")-1

end sub
</script>
Application("all")-显示的就是在线的人数

去掉括号也不行啊~~~

你先检查下事件是否有响应
你的程序暂时没有什么问题

一定要创建“应用程序”，golasa才会起作用！