どのようにリアルタイムで何人がオンラインで知っていますか？

global.asa＜script LANGUAGE=“VB Script”RUNAT=“Server”Sub Appliation_OnStart      ' Subアプリ_OStartはサーバーが起動するたびにアクティブにする方法です。      Session.Timeout=3'はユーザーのオンライン時間を定義し、定義時間内にアクティブな接続がない場合、彼のsession変数のインスタンスを削除して、ログアウトします。      Apple.Lock      ' ロック方法でAppplication変数をロックして運転を継続します。ロックしないと変数「WhosOn」に変化が発生しません。      アプリ(「WhosOn」)=0      ' 変数は0から始まります      Apple.ユニロック ' appicationにロックを解除します。End SubSub Session_OnStart      ' Sub Session_OnStartは各時刻に新しく来たユーザーを検出します。      Apple.Lock      アプリ（「WhosOn」）＝Appplication（「WhosOn」）＋1      Apple.Unlock'ここはユーザーが訪問する際に増加するカウントです。ロック／オープンアプリ変数を覚えてください。End SubSub Session(u)OnEnd      ' Sub Session_OnEndは、各時刻にウェブサイトを終了するユーザを検出し、Session:Timeout in定義終了後数分以内にカウントします。      Apple.Lock      アプリ（「WhosOn」）＝Appplication（「WhosOn」）-1      Apple.Unilock'は、ユーザーが退出すると、「Whos On」変数の中で1つの数を減らします。同様に、appication変数をロック／オンします。End Subcount.asp<%  reponse.write「今あります。」＆Appliation(「WhosOn」)＆「人は風に乗って踊っています。帰るのを忘れています。」1）