不让两位联机者同时执行 Application Lock Application("counter")=Application("counter )+1 Application. UnLock<% Application.Lock Application("counter") = Application("counter") + 1 Application.UnLock %> 不让两位联机者同时执行