Application 변수를 사용하시면 됩니다.

한서버에서 모든 사용자가 공유하는 전역변수라고 생각하시면 됩니다.

Session 변수와 혼동이 될 수 있는데 Session 변수는 사용자 혼자만 공유하는

변수입니다.

 

* 접속하는 부분의 소스

dim ip, users

ip = Request.ServerVariables("REMOTE_ADDR")
users = application("users")
if instr(users, ip) = 0 then
    users = users & "," & ip
    application.lock
    application("users") = users
    application.unlock
end if

 

* 접속 끊는 부분의 소스

ip = Request.ServerVariables("REMOTE_ADDR")
application.lock
application("users") = replace(application("users"), "," & ip, "")
application.unlock

 

* 접속자 표시 부분

response.write "현재 접속 IP = " & application("users")