ASP 인스턴스 : 현재 페이지 뷰어의 즉각적인 표시

<!-#포함 파일 = dbconn.asp->

<%

OnlineTimeout = 10 ''온라인 활동의 시간 간격을 정의합니다

기능 userip ()

getClientip = request.servariables (http_x_forwarded_for) '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''은 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''''urent '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '은' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''-별을

getClientip = 또는 isnull (getclientip) 또는 isempty (getclientip) 인 경우

getClientIP = request.serverVaribles (remote_addr) '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''프록시 서버를 사용하지 않으면 소스 IP 주소가 표시됩니다.

끝 If

userip = getClientIP입니다

엔드 기능

sql = c_online에서 o_id를 선택하십시오.

set rs = conn.execute (SQL)

rs.eof와 rs.bof라면

SQL = C_ONLINE (O_IP) 값 ( ''& userip () & '')에 삽입 데이터베이스에 없으면 새 IP라면 삽입 작업을 의미합니다.

Conn.Execute (SQL)

또 다른

SQL = 업데이트 c_online set o_ltime = now () 여기서 o_ip = ''& userip () & ''데이터베이스의 현재 시간

Conn.Execute (SQL)

끝 If

sql = dateadd ( ''s '', & onlinetimeout*60 &, o_ltime) <now ()를 새로 고치기 위해 10 분을 정의합니다.

Conn.Execute (SQL)

Rs.Close

RS = 아무것도 설정하지 않습니다

기능 Alonline ()

tmprs = conn.execute (c_online에서 count (o_id) 선택)

Allonline = TMPRS (0)

tmprs = 아무것도 설정하지 않습니다

엔드 기능

%>

<%response.write document.write (온라인 & allonline () & people)%>