<SCRIPT LANGUAGE=VBScript RUNAT=Server> Sub Application_OnStart Session.TimeOut=3 '将会话超时设为3分钟 Application.Lock '锁住Application Application("intuseronline")=0 '初始化在线人数为0 Application("intuserall")=0 '初始化访问人数为0 Application.UnLock '解开Application End Sub

Sub Session_OnStart Application.Lock '锁住Application '当一次新用户会话开始时，使在线人数和访问人数都加1 Application("intuseronline")=Application("intuseronline")+1 Application("intuserall")=Application("intuserall")+1 Application.UnLock '解开Application End Sub

Sub Session_OnEnd Application.Lock '锁住Application '会话超时或用户退出时，使在线人数减1 Application("intuseronline")=Application("intuseronline")-1 Application.UnLock '解开Application End Sub

</SCRIPT> 上面一段代码是global.asa文件 下面这一段是 <% Response.Write("<br>当前网站在线人数是："&Application("intuseronline")) Response.Write("<br>网站总访问量是："&Application("intuserall")) %> 上面几段代码是用于统计在线人数和网站总访问量的 请问该怎么用？

[此贴子已经被作者于2005-3-7 15:32:52编辑过]

提示什么错误啊?
Sub Session_OnStart
    Application.Lock
Application("intuseronline")=Application("intuseronline")+1
Application("intuserall")=Application("intuserall")+1
End Sub

就是不知道该怎么弄啊。

有没有人知道该怎么弄？

可以上网找一下，你的办法可能有问题．

将global所在的目录创建为一个虚拟应用程序

可以说清楚点吗？