위는 php에서 보는 방법이구요...
asp에서는 이렇게 봅니다.
************************
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
SUB Session_OnStart
Application.Lock
Application( "Counts" ) = Application( "Counts" ) +1
Application.UnLock
END SUB

SUB Session_OnEnd
Application.Lock
Application( "Counts" ) = Application( "Counts" ) -1
Application.UnLock
END SUB

SUB Application_OnStart
Application( "Counts" ) = 0
END SUB

SUB Application_OnEnd
END SUB

</SCRIPT>
**************************

위 내용을 global.asa에 삽입(global.asa파일이 없다면 새로 만들어야 합니다)하시고(global.asa파일은 홈페이지의 www폴더 아래에 있어야 합니다.)
페이지의 원하시는 부분에
현재 온라인<%=application("counts")%>:명
이런식으로 삽입하시면 됩니다.